Cerco programma per spegnere il pc che..

[mied]

Programmini per spegnere il pc automaticamente ne esistono a centinaia ma io ne cerco uno che permetta di spegnere il computer quando un certo programma viene chiuso o non è più in esecuzione.
Qualcuno può aiutarmi ?

[Swos]

poweroff mi sembra lo faccia...

[TheFuture]

Originariamente inviato da Swos
poweroff mi sembra lo faccia...
Quoto poweroff lo usoanch'io ed ha questa opzione!;)

[SirBlack]

Originariamente inviato da mied
Programmini per spegnere il pc automaticamente ne esistono a centinaia ma io ne cerco uno che permetta di spegnere il computer quando un certo programma viene chiuso o non è più in esecuzione.
Qualcuno può aiutarmi ?

Salva il codice che segue come controlla_processo.vbs o come ti pare e poi lancialo.
P.S Prima di lanciarlo cambia il Programma.exe !! :D

[INIZIO CODICE]

ProcessName = "Programma.exe" ' Metti qui il nome del processo da controllare

Do Until 0 = 1
Call CheckProcess
WScript.Sleep(300000) ' aspetta 5 minuti prima di rieseguire
Loop

Sub CheckProcess
SET WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & ProcessName & "'")
If colProcesses.Count = 0 Then
WshShell.Run "CMD /c shutdown -t 10 -f",6,2
End If
End if


[FINE CODICE]

[Swos]

Originariamente inviato da SirBlack
Salva il codice che segue come controlla_processo.vbs o come ti pare e poi lancialo.
P.S Prima di lanciarlo cambia il Programma.exe !! :D

[INIZIO CODICE]

ProcessName = "Programma.exe" ' Metti qui il nome del processo da controllare

Do Until 0 = 1
Call CheckProcess
WScript.Sleep(300000) ' aspetta 5 minuti prima di rieseguire
Loop

Sub CheckProcess
SET WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & ProcessName & "'")
If colProcesses.Count = 0 Then
WshShell.Run "CMD /c shutdown -t 10 -f",6,2
End If
End if


[FINE CODICE]



:eek:

[mied]

Ottimo :D era proprio quello che cercavo.
Grazie milleeeeeeee

[SirBlack]

Originariamente inviato da Swos
:eek:

:cool: