Question

我下面的代码运行没有错误。

但是我需要等到该进程在此行被杀死WshShell.Exec "TASKKILL /F /IM " & EngineRun.ProcessID，然后才显示msgbox已终止该进程。

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

感谢您的帮助

Answer 1

您可以使用Run方法吗？见MSDN。它支持bWaitOnReturn参数：

object.Run(strCommand, [intWindowStyle], [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

妥善处理。

VB6：如何等待命令执行

2 个答案: