鼠标钩子是做什么用的，那些这方面的例子

[itme99]

同上。

[normandj]

你可以看一下这个

http://www.bjjr.com.cn/yefan/sourcecode/mmouse.rar

[taoheping]

模块
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
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
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If idHook > 0 And wParam > 0 And lParam > 0 And wParam = 114 Then
MsgBox idHook & " " & wParam & " " & lParam
End If
End Function

窗体
Private Sub MDIForm_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub

[shiyunlong]

mark