VB6 -如何列出与用户名相关的PID

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "psapi.dll" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpBaseName As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_VM_READ = &H10
Private Const MAX_PATH = 260

Private Sub ListProcessesByUserName(ByVal userName As String)
    Dim lpidProcess(1023) As Long
    Dim cbNeeded As Long
    Dim cb As Long
    Dim hProcess As Long
    Dim hModule As Long
    Dim szProcessName As String
    Dim i As Long
    
    EnumProcesses lpidProcess(0), 1024 * 4, cbNeeded
    
    cb = cbNeeded \ 4
    
    For i = 0 To cb - 1
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lpidProcess(i))
        
        If hProcess <> 0 Then
            EnumProcessModules hProcess, hModule, 4, cbNeeded
            szProcessName = Space$(MAX_PATH)
            GetModuleBaseName hProcess, hModule, szProcessName, MAX_PATH
            szProcessName = Left$(szProcessName, InStr(szProcessName, Chr$(0)) - 1)
            
            ' 判断进程是否属于指定用户名
            If GetProcessUserName(lpidProcess(i)) = userName Then
                Debug.Print "PID: " & lpidProcess(i) & ", 进程名: " & szProcessName
            End If
            
            CloseHandle hProcess
        End If
    Next i
End Sub

Private Function GetProcessUserName(ByVal processId As Long) As String
    ' 这里可以根据具体情况使用其他方法获取进程的用户名
    ' 例如使用WMI查询或者调用Windows API函数
    ' 此处仅作示例，不涉及具体实现
    
    ' 返回一个示例用户名
    GetProcessUserName = "exampleUser"
End Function

Private Sub Form_Load()
    ListProcessesByUserName "exampleUser"
End Sub