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

Question

同上。

Answer 1

你可以看一下这个http://www.bjjr.com.cn/yefan/sourcecode/mmouse.rar

Answer 2

模块
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 SubPrivate Sub MDIForm_Unload(Cancel As Integer)
    UnhookWindowsHookEx hHook
End Sub