vb6 检测某个进程是否存在

最新推荐文章于 2023-02-01 07:25:21 发布

原创

最新推荐文章于 2023-02-01 07:25:21 发布 · 838 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #integer #string #command #system

本文介绍了如何在VB6中使用CreateToolhelp32Snapshot、Process32First和Process32Next函数检测指定进程是否正在运行。通过创建系统快照并遍历进程，找到匹配的进程名称来判断。示例代码展示了如何检测‘QQLogin.exe’的运行状态，并通过消息框显示结果。

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

1.新建工程，添加模块，内容如下

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As L