VB.NET WinForm项目SendKey无法向Elite Dangerous发送按键求助

这问题我之前帮朋友排查过类似的，核心原因在于SendKeys和现代3A游戏的输入捕获机制不兼容，下面给你拆解原因和可行的解决办法：

为什么SendKeys在游戏里无效？ #

• 输入捕获方式差异：SendKeys是通过向目标窗口发送WM_KEYDOWN/WM_KEYUP这类Windows窗口消息来模拟按键操作，但《Elite Dangerous》这类游戏通常使用DirectInput或Raw Input直接读取硬件输入设备的状态，完全绕开了系统的窗口消息队列，自然不会响应SendKeys的模拟指令。
• 全屏模式的限制：如果游戏运行在全屏独占模式下，系统会将游戏进程的输入优先级拉到最高，普通的窗口消息模拟会被系统过滤掉，只有硬件级别的输入模拟才能被识别。
• 反作弊机制（可能性较低）：部分游戏的反作弊系统会拦截高层的输入模拟行为，防止脚本作弊，但这通常不是主要原因，除非你的操作触发了反作弊的检测规则。

解决方案：使用Windows API的SendInput函数 #

SendInput是Windows提供的底层API，它直接模拟硬件输入事件，能被大多数游戏（包括《Elite Dangerous》）识别。下面是VB.NET中的实现示例：

第一步：声明API和相关结构体 #

在你的WinForm类中添加以下API声明：

Imports System.Runtime.InteropServices

Public Class KeySimulator
    ' 定义INPUT结构体类型
    Private Enum InputType As Integer
        INPUT_MOUSE = 0
        INPUT_KEYBOARD = 1
        INPUT_HARDWARE = 2
    End Enum

    ' 键盘输入结构体
    <StructLayout(LayoutKind.Sequential)>
    Private Structure KEYBDINPUT
        Public wVk As Short
        Public wScan As Short
        Public dwFlags As Integer
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure

    ' 通用INPUT结构体
    <StructLayout(LayoutKind.Sequential)>
    Private Structure INPUT
        Public type As InputType
        Public ki As KEYBDINPUT
        ' 省略MOUSEINPUT和HARDWAREINPUT，仅保留键盘相关部分
    End Structure

    ' 声明SendInput API
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SendInput(ByVal nInputs As Integer, ByRef pInputs As INPUT, ByVal cbSize As Integer) As Integer
    End Function

    ' 常用虚拟键码示例（可根据需求扩展）
    Public Const VK_W As Short = &H57
    Public Const VK_S As Short = &H53
    Public Const VK_A As Short = &H41
    Public Const VK_D As Short = &H44
    Private Const KEYEVENTF_KEYUP As Integer = &H2
End Class

第二步：编写模拟按键的方法 #

在上面的类中添加模拟按键按下和释放的方法：

Public Shared Sub PressKey(ByVal keyCode As Short)
    ' 构造按键按下的输入事件
    Dim inputDown As INPUT = New INPUT()
    inputDown.type = InputType.INPUT_KEYBOARD
    inputDown.ki.wVk = keyCode
    inputDown.ki.dwFlags = 0

    ' 构造按键释放的输入事件
    Dim inputUp As INPUT = New INPUT()
    inputUp.type = InputType.INPUT_KEYBOARD
    inputUp.ki.wVk = keyCode
    inputUp.ki.dwFlags = KEYEVENTF_KEYUP

    ' 发送输入事件
    SendInput(1, inputDown, Marshal.SizeOf(GetType(INPUT)))
    SendInput(1, inputUp, Marshal.SizeOf(GetType(INPUT)))
End Sub

第三步：调用方法模拟按键 #

当你收到UDP消息后，直接调用这个方法即可：

' 比如模拟按下W键
KeySimulator.PressKey(KeySimulator.VK_W)

额外注意事项 #

• 管理员权限：如果你的游戏是以管理员权限运行的，那么你的VB.NET程序也需要右键选择“以管理员身份运行”，否则可能无法向高权限的游戏进程发送输入。
• 窗口焦点：确保游戏窗口处于前台激活状态，若程序运行时不小心切换了焦点，可以用SetForegroundWindowAPI强制激活游戏窗口（需额外声明该API）。
• 测试窗口模式：先在游戏的窗口模式下测试，确认功能正常后再尝试全屏模式，因为全屏独占模式的输入限制更严格。

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