При загрузке формы:
- Код: Выделить всё
IEWindowHwnd = GetForegroundWindow()
SetParent Me.hWnd, IEWindowHwnd
hInstance = GetWindowLong(IEWindowHwnd, GWL_HINSTANCE)
hThreadId = GetWindowThreadProcessId(IEWindowHwnd, 0)
hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf TestHook, hInstance, hThreadId)
Сам обработчик:
- Код: Выделить всё
Public Function TestHook(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_LBUTTONDOWN Then
MsgBox "Click!!!"
End If
End Function
По выходу:
- Код: Выделить всё
UnhookWindowsHookEx hHook
В результате - ничего не происходит... Что я делаю не так? Что провтыкал?