VB.NET低级别键盘钩子在VS2017中无法检测按键求助

我之前也踩过类似的钩子迁移坑，结合你的代码和.NET版本差异，给你梳理几个关键的排查和修复方向：

1. 先确认最基础的点：钩子实例是否被初始化 #

你的Form1代码里只声明了Private WithEvents KbHook As KeyboardHook，但没看到初始化代码！如果没有实例化钩子对象，自然不会触发任何事件。在Form的加载事件里补全初始化：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    KbHook = New KeyboardHook()
End Sub

2. 修复P/Invoke的64位兼容性问题 #

这是迁移时最容易踩的坑！VB2010默认可能是32位编译，而VS2017默认是Any CPU，在64位系统下会以64位进程运行。你的代码里P/Invoke函数的参数和返回值类型没有适配64位架构：

• SetWindowsHookEx的返回值是Integer，但实际应该是IntPtr（64位下句柄是8字节，Integer只有4字节会截断数据）
• UnhookWindowsHookEx的参数是Integer，需要改成IntPtr
• CallNextHookEx的第一个参数和返回值也需要同步改成IntPtr

修改后的P/Invoke声明：

<DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
Private Overloads Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal HookProc As KBDLLHookProc, ByVal hInstance As IntPtr, ByVal wParam As UInteger) As IntPtr
End Function

<DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
Private Overloads Shared Function CallNextHookEx(ByVal idHook As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function

<DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
Private Overloads Shared Function UnhookWindowsHookEx(ByVal idHook As IntPtr) As Boolean
End Function

3. 优化钩子过程的实现 #

更新KeyboardProc函数的返回值类型为IntPtr，同时用泛型版本的Marshal.PtrToStructure简化结构解析，避免类型转换错误：

Private Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    If (nCode = HC_ACTION) Then
        Dim struct As KBDLLHOOKSTRUCT = Marshal.PtrToStructure(Of KBDLLHOOKSTRUCT)(lParam)
        Select Case wParam.ToInt32()
            Case WM_KEYDOWN, WM_SYSKEYDOWN
                RaiseEvent KeyDown(CType(struct.vkCode, Keys))
            Case WM_KEYUP, WM_SYSKEYUP
                RaiseEvent KeyUp(CType(struct.vkCode, Keys))
        End Select
    End If
    ' 传递正确的钩子ID给CallNextHookEx
    Return CallNextHookEx(HHookID, nCode, wParam, lParam)
End Function

4. 修复模块句柄的获取方式 #

原来的Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly.GetModules()(0))在.NET4.5+环境下可能返回无效句柄，换成更可靠的方式：

Public Sub New()
    ' 获取当前类所在模块的句柄
    Dim hModule As IntPtr = Marshal.GetHINSTANCE(GetType(KeyboardHook).Module)
    HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHOOKProcDelegate, hModule, 0UI)
    If HHookID = IntPtr.Zero Then
        ' 获取错误码帮助排查具体问题
        Dim errorCode As Integer = Marshal.GetLastWin32Error()
        Throw New Exception($"钩子安装失败，错误码：{errorCode}")
    End If
End Sub

5. 确保委托不会被GC回收 #

虽然你的委托是类的私有字段，但在某些.NET优化场景下可能被GC回收，导致钩子失效。可以把委托改成Shared字段，确保全局强引用：

' 改成Shared字段，避免被GC回收
Private Shared KBDLLHOOKProcDelegate As KBDLLHookProc = New KBDLLHookProc(AddressOf KeyboardProc)

6. 检查项目平台目标 #

VS2017默认的Any CPU可能在64位系统下引发兼容性问题，尝试把项目的平台目标改成x86（和VB2010一致）：

• 右键项目 → 属性 → 编译 → 高级编译选项 → 目标CPU选择x86

7. 权限排查 #

尝试以管理员身份运行Visual Studio或编译后的程序，低级别钩子有时需要系统权限才能正常工作。

按照这些步骤逐一排查，应该能解决你的问题！

内容的提问来源于stack exchange，提问作者blondkarol