VB-检测指定的进程是否存在
2016-06-16 15:51
579 查看
'检测指定的进程是否存在
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, "提示"elseMsgBox "存在!", vbInformation, "提示"
End If
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
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, "提示"elseMsgBox "存在!", vbInformation, "提示"
End If
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
相关文章推荐
- VB操作FireBird
- 【VB】解决Drive控件选择光驱时错误问题
- VB6自带Package & Deployment 生成桌面快捷方式
- VB判断指定的Excel文件是否打开
- VB之TabStrip控件使用举例
- VB6-该部件的许可证信息没有找到的解决方法
- 用vbscript实现ArcMap中的上下标标注功能
- 15 电气 齐振昊 VB中制作鞍点(老师讲解)K=m+1
- VB.net学习笔记(三十)认识线程池
- VB函数Time和Timer的区别
- VBA Study Notes
- VBA Study Notes
- VBA Study Notes
- VBA Study Notes
- VBA Study Notes
- VBA Study Notes
- VBA Study Notes
- vb.net 托盘图标的使用
- 经典TVB台词100句
- vbox ubuntu 挂载共享目录