Attendez que le programme se termine

Question

Pour surveiller l'utilisation de la bande passante et ne pas inutilement charger les programmes au démarrage, je veux exécuter le dumeter.exe puis firefox.exe. Quand j'arrêterai Firefox, il devrait tuer dumeter.J'ai utilisé ce qui suit code pour commencer

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "c:\progra~1\dumeter\dumeter.exe" 
WshShell.Run "c:\progra~1\mozill~1\firefox.exe 

besoin d'exécuter taskkill que lorsque Firefox est closed.Tried à l'aide d'un fichier de chauve-souris, mais parfois le début de dumeter et ferme sur son propre n'attend pas.

WshShell.Run "taskkill /f /im dumeter.exe" 
Set WshShell = Nothing 

Answer 1

Vous pouvez attendre la fin d'un processus en vous abonnant à l'événement WMI approprié. Voici un exemple:

strComputer = "." 
Set oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

''# Create an event query to be notified within 5 seconds when Firefox is closed 
Set colEvents = oWMI.ExecNotificationQuery _ 
    ("SELECT * FROM __InstanceDeletionEvent WITHIN 5 " _ 
    & "WHERE TargetInstance ISA 'Win32_Process' " _ 
    & "AND TargetInstance.Name = 'firefox.exe'") 

''# Wait until Firefox is closed 
Set oEvent = colEvents.NextEvent 

Plus d'infos ici: How Can I Start a Process and Then Wait For the Process to End Before Terminating the Script?

Answer 2

Option Explicit 

Const PROC_NAME = "<Process_You_Want_to_Check>" 
Const SLEEP_INTERVAL_MS = 5000 '5 secs 

Dim objWMIService 
Dim colProcesses, objProcess, inteproc 

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 

inteproc = -1 'set in unknown state 

Do Until inteproc = 0 

Set colProcesses = objWMIService.ExecQuery(_ 
    "Select * from Win32_Process where Name='" & PROC_NAME & "'") 
    inteproc = colProcesses.count 

If inteproc > 0 then 
WSCRIPT.ECHO "Process " & PROC_NAME & " is still runing, wait for " & SLEEP_INTERVAL_MS/1000 & " seconds" 
WScript.Sleep(SLEEP_INTERVAL_MS) 

else 
    wscript.echo "Process " & PROC_NAME & " Finished. Continue running scripts" 

End If 

Loop