Question

一个监视判断指定程序是否存在并相应动作的VBS需求

看流程图就好





Answer 1

第一张流程图是守护特定其他进程？可行，代码见下文

第二张流程图是守护自身进程？不可行，因为你无法让没运行的脚本运行判断代码，这等同于说“没来的人请举手”。

如果非要守护脚本进程，可以用相互守护。A判断B，B判断A。

代码：

Dim wsh,wmi,fso,path_a,path_b,list,pid

Set wsh = CreateObject("WScript.Shell")
Set wmi = GetObject("winmgmts:" & "{impersonationlevel=impersonate}!\\.\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")

path_a = "x:\x\pid.txt"
path_b = "x:\x\x.xxx"
t = 5000

i = 0
DO Until i = 1
  check()
  Wscript.Sleep t
Loop

Function check()
  Set list = fso.OpenTextFile(path_a, 1, 0)
  Do While list.AtEndOfStream <> True
    pid = list.ReadLine
    If Not isProcessExists(pid) Then wsh.run path_b
  Loop
  list.Close
End Function  

Function isProcessExists(x)
    Set find = wmi.ExecQuery("Select * from Win32_Process Where handle='" & x & "'")
    isProcessExists = (find.Count <> 0)
End Function

追问

(写了一堆敬语，字符超出限制了... ...)

第二个流程图多了一个将自己的pid写入到x:\x\xx.txt，因为需要另一个相对监视的进程，就是您说的“相互守护”，所以要将自己的pid写入到一个文件
还有就是不知道您知不知道ScriptCryptor这个软件，它在编译的时候可以把vbs转换为不需要wscript.exe的程序，不知道还能不能实现准确将自己的pid写入到一个文件