Question

我想用VBS检测A程序是否在运行 如果在就不执行A程序． 不在运行就执行A程序 然后这样一直自动循环

Answer 1

A程序的路径在哪？自己输入吧，A程序的名称自己改一下。

Dim WMI,colProc,ProcName
Set wShell=CreateObject("Wscript.Shell")
Set WMI=GetObject("winmgmts:\\.\root\cimv2")
ProcName=InputBox("输入进程路径")
Do
Set colProc=WMI.ExecQuery("Select * From Win32_Process Where Name='A.exe'")
If colProc.Count=0 Then
wShell.Run ProcName
End If
WScript.Sleep 1000
Loop