VB6 根据进程ID(PID)获取窗体句柄

模块代码：

Option Explicit

Private Const GW_HWNDNEXT = 2

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwprocessid As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Function ProcIDFromWnd(ByVal hwnd As Long) As Long

Dim idProc As Long

' Get PID for this HWnd

GetWindowThreadProcessId hwnd, idProc

' Return PID

ProcIDFromWnd = idProc

End Function

Public Function GetWinHandle(hInstance As Long) As Long

Dim tempHwnd As Long

' Grab the first window handle that Windows finds:

tempHwnd = FindWindow(vbNullString, vbNullString)

' Loop until you find a match or there are no more window handles:

Do Until tempHwnd = 0

' Check if no parent for this window

If GetParent(tempHwnd) = 0 Then

' Check for PID match

If hInstance = ProcIDFromWnd(tempHwnd) Then

' Return found handle

GetWinHandle = tempHwnd

' Exit search loop

Exit Do

End If

End If

' Get the next window handle

tempHwnd = GetWindow(tempHwnd, GW_HWNDNEXT)

Loop

End Function