Question

vbs 检测进程

写一个命令：检测A.exe是否被关闭，如果是则打开A.exe
1秒检测一次，死循环

Answer 1

Do
    If Not ProcessExists("A.exe") Then 
        CreateObject("Wscript.Shell").Run "C:\A.exe",0
    End If
    Wscript.Sleep 1000
Loop
 
Function ProcessExists(ProcessName)
    ProcessExists = False
    set WMI=GetObject("winmgmts:\\.\root\cimv2") 
    set Process=WMI.ExecQuery("select * from win32_process where name='" & ProcessName & "'") 
    For Each ID In Process 
        ProcessExists = True 
    Next
End Function

 

有问题追问！