Question

如何用vbs编写监视程序ABC.exe是否运行，否的话就自动启动该程序？要求能运行后就一直监视

也就是说一旦该程序被终止或退出后就能自动启动
（能完美运行的则得到奖励）
再具体说明一下需求

检测程序进程 xlshuijing.exe, 如没有，则关闭进程 firefox.exe， 同时启动进程路劲：C:\shuijin\xlshuijing.exe， 每5分钟检测一次

Answer 1

On Error Resume Next
Dim FSO,WS,File,C,H,WMI,Col,Pro,Exist,Fn
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set WS=WScript.CreateObject("WScript.Shell")
Set WMI=GetObject("winmgmts:\\.\root\cimv2")
File="C:\shuijin\xlshuijing.exe"
'程序名
C=Chr(34)
H=vbCrLf
If FSO.FileExists(File)<>True Then subErro
Fn=FSO.GetFile(File).Name
Do
 Set Col=WMI.ExecQuery("Select * From Win32_Process Where Name='" & Fn & "'")
 Exist=False
 For Each Pro In Col
  Exist=True
 Next
 If Exist<>True Then
  WS.Run "taskkill.exe /f /im ""firefox.exe"+C,0,True
  WS.Run C+File+C,1
 End If
Loop

Private Sub subErro()
 MsgBox "您指定的文件"+H+File+H+"不存在,无法进行监视!",16,"错误"
 WScript.Quit
End Sub

追问

可以运行，但在低配置的机器运行cpu占用100%，不知道代码是否能再优化？
此外没加时间循环监控？希望是5分钟监控一次，加入WSCRIPT.SLEEP是否会降低cpu占用？

追答

可以呀,你在LOOP的上面加上SLEEP就行了.