Question

VBS快速结束20个进程 并重新打开程序

VBS快速结束20个进程1-9.exe a-j.exe 结束进程后在打开这20个程序最后在打开123.vbs，每个程序中间延时3秒，程序路径都是D:\ 谢谢帮忙的朋友 没有分了 不好意思

Answer 1

Dim WMI,W,AppNameArr,WS,FolderPath
Set WMI=getobject("winmgmts:\\.\root\cimv2")
set WS=CreateObject("WScript.Shell")
' 变量定义
AppNameArr=Split("1.exe|2.exe|3.exe|4.exe|5.exe|6.exe|7.exe|8.exe|a.exe|b.exe|c.exe|d.exe|e.exe|f.exe|g.exe|h.exe|i.exe|j.exe|","|")
FolderPath="D:\"
' 结束进程
For j=0 To UBound(AppNameArr)
   set W=WMI.execquery("select * from win32_process where name='" & AppNameArr(j) & "'")
   for each i in W
      i.terminate()
   Next
Next
' 运行程序
For i=0 To UBound(AppNameArr)
   WScript.Sleep 3000
   WS.Run folderpath & AppNameArr(i)
Next
WScript.Sleep 3000
WS.Run folderpath & "123.vbs"
' 说明：
' 1、程序名称在AppNameArr中增减
' 2、路径不能含有空格