检查进程是否存在

最新推荐文章于 2021-04-08 14:38:35 发布

转载最新推荐文章于 2021-04-08 14:38:35 发布 · 594 阅读

文章标签：

#function #string #each #c

本文介绍了一个使用VBS脚本检查指定应用程序是否正在运行的方法。通过Win32_Process实例查询当前系统中所有进程，并对比目标进程名称来判断目标应用是否已启动。

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

Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs

CheckApplicationIsRun = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

For Each Obj In Objs
    If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
        CheckApplicationIsRun = True

        If Not Objs Is Nothing Then Set Objs = Nothing
        If Not WMI Is Nothing Then Set WMI = Nothing
        Exit Function
    End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing

Exit Function

Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

来源：http://hi.baidu.com/jjjjjjj/blog/item/c2672d733a776c198601b050.html