Alguna aplicación que te detecte un proceso abierto o cuando se cierre el proceso realice alguna acción como, por ejemplo, apagar el equipo??
He estado buscando pero no encuentro nada así, no se si es posible..
Gracias.
Alguna aplicación que te detecte un proceso abierto o cuando se cierre el proceso realice alguna acción como, por ejemplo, apagar el equipo??
He estado buscando pero no encuentro nada así, no se si es posible..
Gracias.
#5 He creado un script guarro en vbs, que chequea cada segundo para a ver si el proccesso esta corriendo o no.
Si das mas informacion que es lo que quieres hacer se puede modificar el script y tal.
' Made in MV
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
x=1
Do While x=1
ProccList = ""
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcess
ProccList = ProccList & " " & objProcess.Name
Next
if (instr(ProccList,"calc.exe")>0) then 'substituir "calc.exe" con el proceso neseasrio
wscript.echo "Ejecutado" ' Accion cuando el processo esta corriendo
else
wscript.echo "Terminado" ' Accion cuando se termina el procceso
end if
wscript.sleep 1000
Loop
#6 awww si funciona te adorare :qq:
pues cuando se cierre un proceso, no recuerdo el nombre ahora, se apague el equipo
#7 Pues mira aqui lo tienes.
Substitue calc.exe en linea 15 con el nombre de proccesso.
El script solo apagara el ordenador cuando el proccesso es terminado, siempre y cuando esta ejecutado como administrador.
' Made in MV v1.1
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
x=1
Do While x=1
ProccList = ""
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcess
ProccList = ProccList & " " & objProcess.Name
Next
if (instr(ProccList,"calc.exe")>0) then 'substituir "calc.exe" con el proceso neseasrio
' Accion cuando el processo esta corriendo
runFlag=1 ' Bandera para determinar que el proccesso esta ejecutado
else
if runFlag=1 then ' Accion cuando se termina el procceso
set objShell = CreateObject("WScript.Shell")
objShell.run "shutdown -s -t 00"
wscript.Quit (0)
end if
end if
wscript.sleep 1000
Loop
P.S. No es un script mas optimizado pero funciona