UC知道VB 和 进程 的问题，
来源：百度知道 编辑：UC知道 时间：2024/09/23 11:53:21
VB能判断一个进程是否存在吗？
我想判断一个进程是否存在，如果存在，执行一种命令，如果不存在执行另一种。
源码，最好加点解释。
我想判断一个进程是否存在，如果存在，执行一种命令，如果不存在执行另一种。
源码，最好加点解释。
Private Sub Command1_Click()
On Error Resume Next
Dim s, objWMIService, colProcessList, objProcess
Dim mFind As Boolean
s = InputBox("请输入进程名：") '或者如：s="calc.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
End Sub