如何利用钩子拦截鼠标消息

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:39:54
希望有实例代码。谢谢！
不好意思。问题补充一点。
启动窗口为form1 ,在屏幕任何任何一个地方点击鼠标左键弹出form2.

'WH_JOURNALRECORD
'WH_MOUSE_LL
'通过拦截上面两个消息均可以得到鼠标消息.

'BAS

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32"