VB6 : 명령을 실행할 때까지 기다리는 방법

Question

아래 코드는 오류없이 실행됩니다.

하지만이 줄에서 프로세스가 종료 될 때까지 기다려야합니다 : WshShell.Exec "TASKKILL /F /IM " & EngineRun.ProcessID msgbox가 종료되었다는 것을 표시하기 전에 기다려야합니다. 어떤 도움

Answer 1

에 대한

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 

덕분에 대신 Run 방법을 사용할 수 있을까요? MSDN을 참조하십시오. 그것은 bWaitOnReturn 매개 변수를 지원합니다 제대로

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 

하는 일 :

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

그래서 코드는 같을 것이다.