VB-检测指定的进程是否存在

最新推荐文章于 2017-05-04 20:46:36 发布

qq37724861

最新推荐文章于 2017-05-04 20:46:36 发布

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Vb

本文链接：https://blog.youkuaiyun.com/qq37724861/article/details/51839745

Vb 专栏收录该内容

10 篇文章

订阅专栏

本文提供了一个使用VBScript检查指定进程（如cmd.exe）是否存在的示例代码。通过Windows Management Instrumentation (WMI) 查询本地计算机上的进程列表，并判断特定进程是否存在。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'检测指定的进程是否存在
On Error Resume Next
Dim s As String, mFind As Boolean
Dim objWMIService, colProcessList, objProcess
s = "cmd.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 '检测到则标识为真
objProcess.Terminate
Next
If mFind = False Then
MsgBox "不存在！", vbInformation, "提示"

else

MsgBox "存在！", vbInformation, "提示"
End If
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing