将线程ID传递给SetWindowsHookEx

Question

我的两个API调用是：

Private Declare PtrSafe 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 PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long

我的钩子键盘功能：

Public Sub HookKeyboard()
    Dim ThreadID As Long
    ThreadID = GetCurrentThreadId

    KeyboardHandle = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardCallback, Application.Hinstance, ThreadID)

    Call HookedInitalize
End Sub

不知为什么我的钩子没抓到。如果我用0替换ThreadID，表示钩子是系统范围的，那么钩子就会捕获。但是，当我试图将其限制在应用范围内时，它并没有被捕获。

Answer 1

WH_KEYBOARD_LL是一个全局钩子，所以必须将0作为线程ID传递。它不会以任何其他方式工作。

您可以在函数中看到这一点；特别是在备注部分中，它枚举钩子类型及其作用域。

还要注意:如果在尝试使用非零线程ID调用Err.LastDllError之后调用SetWindowsHookEx，您将看到错误ERROR_GLOBAL_ONLY_HOOK，提供了相同的信息。