Question

VBS 运行3个程序后结束第二个程序。

有3个程序 ， A B C
运行 A
暂停2秒
运行 B
暂停 2秒
运行C
暂停2秒
结束 B的进程

Answer 1

Dim sh
Dim obj

Set sh = WScript.CreateObject("Wscript.Shell")
sh.Run A '如果非windows程序，这里就贴A执行文件的全部路径
WScript.Sleep 2000 '暂停2s，不过一般不够用，建议5s
sh.Run B
WScript.Sleep 2000
sh.Run C
WScript.Sleep 2000

Set obj = GetObject("winmgmts:")
Set match = obj.execquery("select * from win32_process where name = '<B_name>'")'<B_name>代表b程序运行时的进程名，要自定义
For Each m In match
m.terminate '执行关掉b的命令，如果进程中已有b，也会一并关掉。没办法，进程名都一样，也没法追踪你打开的是第几个
Next

Set obj = Nothing
Set sh = Nothing