VB.net程序模拟回车键失效（Java接收端）：求SendKeys.Send("{ENTER}")替代方案

嘿，这个问题我之前帮朋友排查过类似的情况——SendKeys确实经常在Java Swing/AWT应用里掉链子，毕竟Java的UI框架对系统键盘事件的处理逻辑和原生Windows程序（比如C++写的）不太一样。给你几个更靠谱的替代方案，亲测有效：

方案1：使用Windows API的SendInput函数（最推荐） #

SendInput是系统级的输入模拟API，比SendKeys更底层，能更准确地模拟真实的键盘操作，几乎所有应用都能识别。

首先在VB.NET里声明所需的API和结构体：

Imports System.Runtime.InteropServices

Public Class KeyboardSimulator
    <StructLayout(LayoutKind.Sequential)>
    Private Structure INPUT
        Public type As Integer
        Public ki As KEYBDINPUT
    End Structure

    <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

    Private Const INPUT_KEYBOARD As Integer = 1
    Private Const KEYEVENTF_KEYUP As Integer = &H2
    Private Const VK_RETURN As Short = &HD

    <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 Shared Sub SimulateEnterKey()
        Dim inputs(1) As INPUT

        ' 模拟按下回车键
        inputs(0).type = INPUT_KEYBOARD
        inputs(0).ki.wVk = VK_RETURN
        inputs(0).ki.dwFlags = 0

        ' 模拟释放回车键
        inputs(1).type = INPUT_KEYBOARD
        inputs(1).ki.wVk = VK_RETURN
        inputs(1).ki.dwFlags = KEYEVENTF_KEYUP

        SendInput(2, inputs(0), Marshal.SizeOf(GetType(INPUT)))
    End Sub
End Class

使用的时候，先激活目标窗口，再调用这个方法：

AppActivate("Java应用的窗口标题")
' 先发送你的文本内容（比如用SendKeys或者其他方式）
' 然后模拟回车
KeyboardSimulator.SimulateEnterKey()

方案2：直接向目标控件发送键盘消息 #

如果能找到Java应用里接收输入的控件句柄，可以直接给它发送WM_KEYDOWN和WM_KEYUP消息，这种方式更精准。

首先声明API：

Imports System.Runtime.InteropServices

Public Class WindowMessageSender
    Private Const WM_KEYDOWN As Integer = &H100
    Private Const WM_KEYUP As Integer = &H101
    Private Const VK_RETURN As Integer = &HD

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    Public Shared Sub SendEnterToControl(ByVal parentWindowHandle As IntPtr, ByVal controlClassName As String)
        ' 找到目标控件的句柄（需要知道Java控件的类名，可能需要用Spy++工具查看）
        Dim controlHandle As IntPtr = FindWindowEx(parentWindowHandle, IntPtr.Zero, controlClassName, Nothing)
        If controlHandle <> IntPtr.Zero Then
            ' 发送按下回车的消息
            SendMessage(controlHandle, WM_KEYDOWN, New IntPtr(VK_RETURN), IntPtr.Zero)
            ' 发送释放回车的消息
            SendMessage(controlHandle, WM_KEYUP, New IntPtr(VK_RETURN), IntPtr.Zero)
        End If
    End Sub
End Class

使用前需要先用FindWindow获取Java应用的主窗口句柄，再找到输入控件的句柄（可以用Windows自带的Spy++工具查看控件类名），然后调用方法。

方案3：模拟Ctrl+Enter（部分Java应用兼容） #

有些Java应用对普通Enter键的处理有特殊逻辑，但会响应Ctrl+Enter，你可以试试这个组合键：

SendKeys.Send("^{ENTER}")

不过这个方案兼容性不如前两个，只能作为备选。

为什么SendKeys会失效？ #

简单来说，SendKeys是通过Windows的消息队列发送模拟输入，但Java的Swing/AWT框架会自己处理键盘事件的分发，它可能没有正确处理SendKeys发送的WM_CHAR或者WM_KEYDOWN消息，导致回车键的事件没被识别到。而SendInput是直接模拟硬件级的输入，几乎所有应用都会正确响应。

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