键盘输入无法捕获：自制宏录制器的按键捕获问题排查

你当前的代码用Form的KeyDown/KeyUp事件捕获键盘输入，但按键没触发事件，主要是以下几个被忽略的点：

1. 窗体焦点被子控件抢占 #

如果Form上存在TextBox、Button等子控件，键盘事件会被这些控件优先接收，Form本身的键盘事件根本不会触发。

解决办法：
开启Form的KeyPreview属性，设置为True。这个属性会让Form优先接收所有键盘事件，之后再传递给子控件。

• 可视化操作：在设计器选中Form，在属性面板找到KeyPreview并勾选。
• 代码初始化：

  Public Sub New()
      InitializeComponent()
      Me.KeyPreview = True
  End Sub
  

2. 仅能捕获窗体激活时的输入 #

当前代码只能捕获Form处于激活状态时的键盘操作，一旦用户切换到其他窗口，事件就会失效——而宏录制器需要捕获全局系统范围内的键盘输入。

解决办法：
使用Windows API设置全局键盘钩子，示例代码如下：

首先定义键盘钩子类：

Imports System.Runtime.InteropServices

Public Class KeyboardHook
    Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const WM_KEYDOWN As Integer = &H100
    Private Const WM_KEYUP As Integer = &H101

    Private Delegate Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    Private _proc As LowLevelKeyboardProc = AddressOf HookCallback
    Private _hookID As IntPtr = IntPtr.Zero

    Public Event KeyDown(ByVal key As Keys)
    Public Event KeyUp(ByVal key As Keys)

    Public Sub Hook()
        _hookID = SetWindowsHookEx(WH_KEYBOARD_LL, _proc, GetModuleHandle(Nothing), 0)
    End Sub

    Public Sub Unhook()
        UnhookWindowsHookEx(_hookID)
    End Sub

    Private Function HookCallback(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        If nCode >= 0 Then
            Dim vkCode As Integer = Marshal.ReadInt32(lParam)
            If wParam = WM_KEYDOWN Then
                RaiseEvent KeyDown(CType(vkCode, Keys))
            ElseIf wParam = WM_KEYUP Then
                RaiseEvent KeyUp(CType(vkCode, Keys))
            End If
        End If
        Return CallNextHookEx(_hookID, nCode, wParam, lParam)
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function UnhookWindowsHookEx(ByVal hhk As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
    End Function
End Class

然后在Form中使用钩子：

Private _keyboardHook As New KeyboardHook()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    AddHandler _keyboardHook.KeyDown, AddressOf KeyboardHook_KeyDown
    AddHandler _keyboardHook.KeyUp, AddressOf KeyboardHook_KeyUp
    _keyboardHook.Hook()
End Sub

Private Sub KeyboardHook_KeyDown(key As Keys)
    recordedActions.Add(String.Format("KeyDown,{0}", key))
End Sub

Private Sub KeyboardHook_KeyUp(key As Keys)
    recordedActions.Add(String.Format("KeyUp,{0}", key))
End Sub

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    _keyboardHook.Unhook()
End Sub

3. 特殊修饰键的额外处理（可选） #

如果需要单独处理Alt、Ctrl、Shift这类修饰键，全局钩子已经能捕获它们的按键消息，无需额外设置；如果用Form的事件，则需要结合e.Modifiers属性判断。

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