VB6: Wie man auf die Ausführung eines Befehls wartet

Question

Der Code, den ich unten habe, läuft ohne Fehler.

Aber ich brauche es zu warten, bis der Prozess an dieser Zeile abgebrochen wurde: WshShell.Exec "TASKKILL /F /IM " & EngineRun.ProcessID vor dem Anzeigen der msgbox, dass es beendet wurde.

Option Explicit 

Dim WshShell As Object 
Dim EngineRun As Object 

Sub main() 

Set WshShell = CreateObject("WScript.Shell") 
Set EngineRun = WshShell.Exec("notepad.exe") 

MsgBox EngineRun.ProcessID 

WshShell.Exec "TASKKILL /F /IM " & EngineRun.ProcessID 

MsgBox EngineRun.ProcessID & (" terminated") 

End Sub 

Vielen Dank für jede Hilfe

Answer 1

Könnten Sie verwenden, um die Run Methode statt? Siehe MSDN. Es unterstützt eine bWaitOnReturn Parameter:

WshShell.Run "TASKKILL /F /IM " & EngineRun.ProcessID,4 , True 

Answer 2

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

Set colItems = objWMIService.ExecQuery("Select * From Win32_Process") 

For Each objItem in colItems 
    'msgbox objItem.ProcessID & " " & objItem.CommandLine 
    If objItem.name = "Calculator.exe" then objItem.terminate 
Next 

Tun Sie Dinge richtig:

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn]) 

So Ihr Code aussehen würde.