如何检查一个指定的程序是否在运行?

On Error Resume Next
Dim s, objWMIService, colProcessList, objProcess
Dim mFind As Boolean
s="excel.exe" '要查找的进程名称
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList '查找进程
mFind = True
Next
If mFind Then '如果找到
'在此加入代码
Else '如果找不到
'在此加入代码
End If

判断窗口标题~
dim HWND_a as long
HWND_a=findwindow(vbnullstring,"窗口名")
if HWND_a <> 0 then
msgbox"已经有相同程序运行!"
end
end if