Re: (INFO) Como lanzar procesos de forma oculta

Alguien sabe si esto es aplicable también para Win98??

"Antonio FD" <antonio_fd@XXXmsn.com> escribió en el mensaje news:u1HX9qGUEHA.2724@TK2MSFTNGP11.phx.gbl...
Hola,
No hace mucho he leido por aqui la necesidad de lanzar algo que no se vea en nuestra barra, o sea, escondidillo para jugar a los
espias,
Nos vamos a hacer un simple script copiando estos datos en un bloc de notas y lo guardamos como lo_que_sea.vbs por ejemplo.
Eso lanza el picture de ms, pero podra ser lo que te de la gana, no lo vas a ver en la barra de tareas normal en el escritorio, pero
para comprobar que si funciona clickeas "control alt supr" simultanenate, se abrira el administardor de tareas, picas sobre procesos
y veras como si esta el mspaint iniciado. Ahora la imaginacion es libre, desde iniciarlo en programas/inicio, hasta correrlo en un
bat en msconfig..

'INICIO
Const HIDDEN_WINDOW = 12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create("mspaint.exe", null, objConfig, intProcessID)
'FINAL

Donde mspaint.exe lo cambiaremos por la aplicacion a lanzar, en este caso el ms paint
buen provecho :-)


Saludos

Antonio FD
MS Windows Embedded