在VB6中按名称获取进程

Option Explicit

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Const MAX_PATH As Long = 260

Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim processId As Long
    Dim windowText As String
    Dim textLength As Long
    
    ' 获取窗口标题长度
    textLength = GetWindowTextLength(hwnd)
    If textLength > 0 Then
        windowText = Space$(textLength + 1)
        ' 获取窗口标题
        GetWindowText hwnd, windowText, textLength + 1
        ' 检查窗口标题是否匹配指定的进程名称
        If InStr(1, windowText, "进程名称", vbTextCompare) > 0 Then
            ' 获取进程ID
            GetWindowThreadProcessId hwnd, processId
            ' 在此处可以进行进一步处理，如获取进程详细信息等
            ' ...
            ' 输出进程ID和窗口标题
            Debug.Print "进程ID: " & processId & ", 窗口标题: " & windowText
        End If
    End If
    
    EnumWindowsProc = 1 ' 继续枚举下一个窗口
End Function

Private Sub Form_Load()
    ' 枚举所有顶级窗口
    EnumWindows AddressOf EnumWindowsProc, 0
End Sub