WINDOWS的鉤子函式可以認為是WINDOWS的主要特性之一。利用它們，您可以捕捉您自己程序或其它程序發生的事件。通過“鉤掛”，您可以給WINDOWS一個處理或過濾事件的回撥函式，該函式也叫做“鉤子函式”，當每次發生您感興趣的事件時，WINDOWS都將呼叫該函式。一共有兩種型別的鉤子：區域性的和遠端的。
區域性鉤子僅鉤掛您自己程序的事件。
遠端的鉤子還可以將鉤掛其它程序發生的事件。遠端的鉤子又有兩種：
基於執行緒的 它將捕獲其它程序中某一特定執行緒的事件。簡言之，就是可以用來觀察其它程序中的某一特定執行緒將發生的事件。
系統範圍的 將捕捉系統中所有程序將發生的事件訊息。 當您建立一個鉤子時，WINDOWS會先在記憶體中建立一個數據結構，該資料結構包含了鉤子的相關資訊，然後把該結構體加到已經存在的鉤子連結串列中去。新的鉤子將加到老的前面。當一個事件發生時，如果您安裝的是一個區域性鉤子，您程序中的鉤子函式將被呼叫。如果是一個遠端鉤子，系統就必須把鉤子函式插入到其它程序的地址空間，要做到這一點要求鉤子函式必須在一個動態連結庫中，所以如果您想要使用遠端鉤子，就必須把該鉤子函式放到動態連結庫中去。當然有兩個例外：工作日誌鉤子和工作日誌回放鉤子。這兩個鉤子的鉤子函式必須在安裝鉤子的執行緒中。原因是：這兩個鉤子是用來監控比較底層的硬體事件的，既然是記錄和回放，所有的事件就當然都是有先後次序的。所以如果把回撥函式放在DLL中，輸入的事件被放在幾個執行緒中記錄，所以我們無法保證得到正確的次序。故解決的辦法是：把鉤子函式放到單個的執行緒中，譬如安裝鉤子的執行緒。
鉤子一共有14種，以下是它們被呼叫的時機：
WH_CALLWNDPROC 當呼叫SendMessage時
WH_CALLWNDPROCRET 當SendMessage的呼叫返回時
WH_GETMESSAGE 當呼叫GetMessage 或 PeekMessage時
WH_KEYBOARD 當呼叫GetMessage 或 PeekMessage 來從訊息佇列中查詢WM_KEYUP 或 WM_KEYDOWN 訊息時
WH_MOUSE 當呼叫GetMessage 或 PeekMessage 來從訊息佇列中查詢滑鼠事件訊息時
WH_HARDWARE 當呼叫GetMessage 或 PeekMessage 來從訊息佇列種查詢非滑鼠、鍵盤訊息時
WH_MSGFILTER 當對話方塊、選單或滾動條要處理一個訊息時。該鉤子是區域性的。它時為那些有自己的訊息處理過程的控制元件物件設計的。
WH_SYSMSGFILTER 和WH_MSGFILTER一樣，只不過是系統範圍的
WH_JOURNALRECORD 當WINDOWS從硬體佇列中獲得訊息時
WH_JOURNALPLAYBACK 當一個事件從系統的硬體輸入佇列中被請求時
WH_SHELL 當關於WINDOWS外殼事件發生時，譬如任務條需要重畫它的按鈕.
WH_CBT 當基於計算機的訓練(CBT)事件發生時
WH_FOREGROUNDIDLE 由WINDOWS自己使用，一般的應用程式很少使用
WH_DEBUG 用來給鉤子函式除錯
附：如何使用鉤子函式（接收到字母A按下時，窗體由最小化彈出的完整的程式碼）
Public Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long

Public 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


Public Const WH_KEYBOARD = 2

Public Const KEY_WINSTART = 91
Public Const KEY_WINMENU = 93


Global hHook As Long

Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode >= 0 Then
If wParam = KEY_WINMENU Or wParam = KEY_WINSTART Then
If (lParam And &HC0000000) = 0 Then
MsgBox "", , ""
KeyboardProc = 1
Exit Function
End If
End If
End If
KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function

Option Explicit


Private Sub Command1_Click()
form2.Show 1

End Sub

Private Sub form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID)
Me.Show
End Sub

Private Sub form_Unload(Cancel As Integer)
Call UnhookWindowsHookEx(hHook)
End Sub