VB 判断指定名字的进程是否存在函数

1. 
   
2. '=============================================================
   
3. '函数名：CheckApplicationIsRun
   
4. '作  用：判断进程是否存在
   
5. '参  数：szExeFileName   ----进程名字
   
6. '返回值：布尔值   ----True进程存在,False不存在
   
7. '=============================================================
   
8. Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
   
9.       On Error GoTo Err
   
10.       Dim WMI
    
11.       Dim Obj
    
12.       Dim Objs
    
13.       CheckApplicationIsRun = False
    
14.       Set WMI = GetObject("WinMgmts:")
    
15.       Set Objs = WMI.InstancesOf("Win32_Process")
    
16.       For Each Obj In Objs
    
17.                If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
    
18.                      CheckApplicationIsRun = True
    
19.                      If Not Objs Is Nothing Then Set Objs = Nothing
    
20.                      If Not WMI Is Nothing Then Set WMI = Nothing
    
21.                      Exit Function
    
22.                End If
    
23.       Next
    
24.       If Not Objs Is Nothing Then Set Objs = Nothing
    
25.       If Not WMI Is Nothing Then Set WMI = Nothing
    
26.       Exit Function
    
27.    Err:
    
28.       If Not Objs Is Nothing Then Set Objs = Nothing
    
29.       If Not WMI Is Nothing Then Set WMI = Nothing
    
30. End Function

复制代码

1. 
   
2. '测试
   
3. Private Sub Command1_Click()
   
4.       If CheckApplicationIsRun("notepad.exe") = True Then
   
5.             MsgBox "已经运行了记事本程序"
   
6.       Else
   
7.             MsgBox "记事本程序没有运行"
   
8.       End If
   
9. End Sub

复制代码