Question

vb6 api 如何使用ChildWindowFromPoint或者ChildWindowFromPointEx获取已禁用的控件的句柄

如图所示,怎么获取该禁用控件的句柄
用鼠标移动过去获取

Answer 1

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long
Public Function GetHwnd() As Long
Dim hwnd As Long
Dim PID As Long
Dim TID As Long
Dim hWndFocus As Long

hwnd = GetForegroundWindow

If hwnd Then

TID = GetWindowThreadProcessId(hwnd, PID)

AttachThreadInput App.ThreadID, TID, True

GetHwnd = GetFocus

AttachThreadInput App.ThreadID, TID, False
End If

End Function
Private Sub Command1_Click()
GetHwnd
MsgBox hwnd
End Sub
Private Sub Form_Load()
Call Command1_Click
End Sub