Question

如何用VBS检测程序是否运行？

我想用VBS检测A程序是否在运行,如果在运行就强制置顶A程序，不在运行就不做处理，循环每60秒执行检测一次。

Answer 1

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

Answer 2

这个需要调用系统API，可以参考：网页链接 ， 然后，使用查找进程的 API ，窗口置顶的 API。