VB.NET中使用CreateKeyboardHook捕获键盘事件时处理重音字符的方法咨询

你当前通过低级键盘钩子捕获的是原始虚拟键码，而pt-BR键盘的重音组合是Windows键盘布局/输入法服务处理后的结果，手动记录按键拼接的方式无法覆盖所有复杂组合场景（比如不同重音键、长按组合、输入法联动等）。正确的做法是调用Windows系统API，直接获取经过键盘布局转换后的最终Unicode字符。

具体实现步骤 #

1. 声明所需Windows API与结构体 #

在你的KeyboardStroke类中添加以下API声明与结构体定义：

Imports System.Runtime.InteropServices
Imports System.Diagnostics

Public Class KeyboardStroke
    ' 低级键盘钩子常量
    Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const WM_KEYDOWN As Integer = &H100
    Private Const WM_SYSKEYDOWN As Integer = &H104

    ' 核心API声明：获取转换后的Unicode字符
    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
    Private Shared Function ToUnicode(ByVal wVirtKey As UInt32, ByVal wScanCode As UInt32, ByVal lpKeyState As Byte(), ByVal pwszBuff As StringBuilder, ByVal cchBuff As Integer, ByVal wFlags As UInt32) As Integer
    End Function

    <DllImport("user32.dll")>
    Private Shared Function GetKeyboardState(ByVal lpKeyState As Byte()) As Boolean
    End Function

    ' 钩子相关API
    Public Delegate Function HookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    Public Class User32
        <DllImport("user32.dll", SetLastError:=True)>
        Public Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
        End Function

        <DllImport("user32.dll")>
        Public Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        End Function

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

    ' 键盘钩子数据结构体
    <StructLayout(LayoutKind.Sequential)>
    Private Structure KBDLLHOOKSTRUCT
        Public vkCode As UInt32
        Public scanCode As UInt32
        Public flags As UInt32
        Public time As UInt32
        Public dwExtraInfo As IntPtr
    End Structure

    ' 类内部变量
    Private keyPressedCallback As Action(Of Char)
    Private HookKeyboardDelegate As HookProc
    Private globalKeyboardHookId As IntPtr
    Private currentModuleId As IntPtr

2. 修改钩子回调，获取转换后的字符 #

替换原有的钩子回调方法，通过ToUnicode获取系统处理后的字符：

Private Function HookKeyboardCallbackImplementation(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    If nCode >= 0 AndAlso (wParam = WM_KEYDOWN OrElse wParam = WM_SYSKEYDOWN) Then
        Dim kbdData As KBDLLHOOKSTRUCT = Marshal.PtrToStructure(Of KBDLLHOOKSTRUCT)(lParam)
        
        ' 获取当前键盘状态（包含Shift/Ctrl/Alt等按键状态）
        Dim keyState(255) As Byte
        If GetKeyboardState(keyState) Then
            ' 准备缓冲区接收转换后的字符
            Dim sb As New StringBuilder(10)
            Dim result As Integer = ToUnicode(kbdData.vkCode, kbdData.scanCode, keyState, sb, sb.Capacity, 0)
            
            If result > 0 Then
                ' 遍历返回的字符（可能多个，比如输入法候选）并调用回调
                For Each c As Char In sb.ToString().ToCharArray()
                    keyPressedCallback?.Invoke(c)
                Next
            End If
        End If
    End If

    ' 传递钩子到下一个处理程序，保证系统正常响应
    Return User32.CallNextHookEx(globalKeyboardHookId, nCode, wParam, lParam)
End Function

3. 调整钩子初始化与主程序调用 #

修改CreateKeyboardHook方法的参数类型，并更新主程序的回调逻辑：

Public Sub CreateKeyboardHook(ByVal keyPressedCallback As Action(Of Char))
    Me.keyPressedCallback = keyPressedCallback
    Me.HookKeyboardDelegate = AddressOf HookKeyboardCallbackImplementation
    
    ' 获取当前模块句柄
    Using curProcess As Process = Process.GetCurrentProcess()
        Using curModule As ProcessModule = curProcess.MainModule
            currentModuleId = curModule.BaseAddress
        End Using
    End Using
    
    Me.globalKeyboardHookId = User32.SetWindowsHookEx(WH_KEYBOARD_LL, Me.HookKeyboardDelegate, currentModuleId, 0)
End Sub

主程序调整：

Sub Main()
    Try
        Dim Kbd As New KeyboardStroke
        Dim hookTask As Task = Task.Run(Sub()
                                            Kbd.CreateKeyboardHook(Sub(charPressed)
                                                                       Console.Write(charPressed)
                                                                   End Sub)
                                            Application.Run()
                                        End Sub)
        hookTask.Wait()
    Catch ex As Exception
        Console.WriteLine($"错误：{ex.Message}")
    End Try
End Sub

核心优势 #

• 原生适配：依赖Windows原生的键盘布局处理逻辑，自动支持pt-BR键盘的重音组合（比如´+a=á），无需手动维护组合规则。
• 场景覆盖：能处理所有键盘布局下的组合键、输入法联动等复杂场景，比手动记录按键的方式更可靠。
• 简洁高效：直接获取最终Unicode字符，避免了手动拼接的逻辑漏洞。

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