VB無所不能之三：VB截獲Windows訊息的鉤子
——作者：鐘聲
 
    VB一直被認為是一個可以通過簡單的方法，完成Windows介面應用程式的一個語言。對Windows系統方面的程式設計似乎首先想到的絕對不是VB，而大部分程式設計師想到的一定是VC。我們今天就介紹一種用VB截獲Windows全域性訊息的方法。
   
    一、Windows全域性訊息介紹
    我不喜歡用非常晦澀的語言來介紹一個簡單的事物，因此，我想在本篇文章中就用通俗的語言來解釋這個概念吧。
    什麼是Windows全域性訊息呢？
    例如：滑鼠在自定義的視窗中移動的位置，我們可以通過這個Form中的相關方法獲取，然而，如果滑鼠並沒有在自己的Form中移動又該怎麼獲得其位置呢？
    再例如：鍵盤的敲擊動作，在別的地方敲擊鍵盤，並沒有在自己的Form中敲擊鍵盤，怎麼才能獲得按鍵的具體鍵值呢？
    對微控制器有了解的朋友都知道，滑鼠和鍵盤的操作都是利用的是“中斷”觸發事件來完成的，那麼當系統“中斷”的時候，就會發出訊息給作業系統，而這些訊息就是Windows全域性訊息。
 
    二、鉤子簡介
    鉤子是通過英文Hook翻譯過來的，所謂的鉤子就是在Windows全域性訊息傳遞到作業系統之前進行截獲，經過處理後再傳遞給作業系統或者其他鉤子的程式。
    想想看，鉤子聽起來像什麼程式？
    對沒錯，***程式，***程式，都是通過鉤子的方法獲取滑鼠鍵盤的相應操作資訊，還獲取密碼或其他有用資訊的。
    但是，鉤子其本身並不是病毒，而是提供給我們程式設計師一種獲取作業系統動作的一個方法，這個方法有時候非常有用，可以非常方便的開發針對作業系統的優質程式。
 
    三、訊息種類
 
    1、WH_CALLWNDPROC和WH_CALLWNDPROCRET
    這兩種訊息是傳送到視窗過程的訊息，系統在訊息傳送到接收視窗過程之前呼叫WH_CALLWNDPROC，並且在視窗過程處理完訊息之後呼叫WH_CALLWNDPRO 。
 
    2、WH_CBT   
    它是啟用，建立，銷燬，最小化，最大化，移動，改變尺寸等視窗事件；
    完成系統指令；來自系統訊息佇列中的移動滑鼠，鍵盤事件；
    設定輸入焦點事件；同步系統訊息佇列事件。
 
    3、WH_KEYBOARD
    WM_KEYDOWN     監視     WM_KEYUP
 
    4、WH_KEYBOARD_LL
    監視輸入到執行緒訊息佇列中的鍵盤訊息
 
    5、WH_MOUSE
    監視輸入到訊息佇列中的滑鼠訊息
 
    6、WH_MOUSE_LL
    監視輸入到執行緒訊息佇列中的滑鼠訊息
    四、鉤子型別
   
    1）    執行緒鉤子：監視指定執行緒的事件訊息。    
    2）    系統鉤子：監視系統中的所有執行緒的事件訊息。
 
    VB只能設定執行緒鉤子，因為系統鉤子會影響系統中所有的應用程式，所以鉤子函式必須放在獨立的動態連結庫(DLL)中才能做到。
 
   五、VB建立鉤子的方法步驟
 
   步驟1：掛鉤
 
   掛鉤是第一步，目的是1，告訴作業系統我要監聽什麼訊息，2是告訴作業系統得到訊息後呼叫什麼回撥函式。
 
   掛鉤的方法：
   例如：
   Private Const WH_MOUSE_LL As Long = 14
   Private hHook As Long
   ……
   hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
 
   第一個引數：告訴作業系統，我要掛的是一個滑鼠監聽鉤子。
   第二個引數：告訴作業系統，我的回撥函式是HookProc，AddressOf的作用是得到HookProc這個函式的地址。
 
   步驟二：回撥函式的編寫
 
   Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
    Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
    If wParam = WM_MOUSEMOVE Then
        Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
        pt = typMHS.pt
        `If PtInRect(hRT, pt.x, pt.y) <> 0 Then
        `    HookProc = 1 `取消原本要完成的動作
        `Else
            Form1.Caption = “mouse Cursor at ” + CStr(pt.x) + “,” + CStr(pt.y)
            HookProc = 0 `令待完成的動作繼續完成
        `End If
    End If
   
    If wParam = WM_LBUTTONDOWN Then
       Debug.Print “l”
    End If
   
    If wParam = WM_RBUTTONDOWN Then
       Debug.Print “r”
    End If
   
    `If nCode < 0 Then
       HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
    `   Exit Function
    `End If
   
End Function
 
    注意一：回撥函式的格式
    Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
     nCode：鉤子的控制程式碼
     wParam,lParam：包含了攔截到的訊息內容，同樣它也與Hook的種類和nCode的值不同而不同。比如在鍵盤鉤子（KeyBoard）中，wParam則是按鍵返回碼。如果是滑鼠事件，那麼包含的滑鼠的位置資訊和按鍵資訊。
 
    注意二：在回撥函式結束的時候，需要增加一個CallNextHookEx把訊息再傳遞給下一個鉤子或者作業系統。
    這個也很好理解，你截獲訊息以後，並不是要把這個訊息真的截獲，而只是想進行相應處理，然後再把訊息傳遞給下一個接棒者。
 
    步驟三：釋放鉤子
    在程式結束後，需要把鉤子摘掉，否則，一直會監聽系統的訊息。
 
    Call UnhookWindowsHookEx(hHook)
 
    六、完整的VB鉤子程式
 
模組程式碼：
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 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” (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Private Const HC_ACTION = 0
Private Const WH_MOUSE_LL As Long = 14
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208
Private Const WM_MBUTTONDBLCLK = &H209
Private Const WM_MOUSEACTIVATE = &H21
Private Const WM_MOUSEFIRST = &H200
Private Const WM_MOUSELAST = &H209
Private Const WM_MOUSEWHEEL = &H20A   `以上是滑鼠的各個值
Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Type MSLLHOOKSTRUCT
    pt As POINTAPI
    mouseData As Long
    Flags As Long
    time As Long
    dwExtraInfo As Long
End Type
Public hHook As Long
Public Sub EnableHook()
    If hHook = 0 Then
       hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
    End If
End Sub
Public Sub FreeHook()
    If hHook <> 0 Then
       Call UnhookWindowsHookEx(hHook)
       hHook = 0
    End If
End Sub
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
    Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
    If wParam = WM_MOUSEMOVE Then
        Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
        pt = typMHS.pt
        Debug.Print “mouse Cursor at ” + CStr(pt.x) + “,” + CStr(pt.y)
    End If
   
    If wParam = WM_LBUTTONDOWN Then
       Debug.Print “l”
    End If
   
    If wParam = WM_RBUTTONDOWN Then
       Debug.Print “r”
    End If
   
    HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
 
End Function
 
 
視窗程式碼：
 
Private Sub Form_Load()
    EnableHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
    FreeHook
End Sub