SendKeys.Send无法粘贴字符串问题求助（附VB.NET代码）

看起来你当前的代码有几个关键问题需要修正，而且SendKeys在某些场景下确实不够可靠，我来一步步帮你解决：

1. 先修正基础问题：快捷键检测与缺失的粘贴触发 #

你的代码目前只检测了Ctrl+V，没有包含Alt键，而且完全没有调用SendKeys发送粘贴指令——这是为什么你设置了剪贴板但没看到内容粘贴的核心原因之一！另外，每次Tick都实例化Random会导致随机数重复，我们先把这些基础问题解决：

Public Class Form1
    ' 把Random实例移到类级别，避免短时间内重复实例化导致随机数重复
    Private Rand As New Random()
    ' 用于标记快捷键是否已经触发，避免Timer Tick重复执行
    Private IsHotkeyTriggered As Boolean = False

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Tmr.Interval = 100
        Tmr.Start()
    End Sub

    Private Sub Tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        ' 正确检测Ctrl+Alt+V同时按下：GetAsyncKeyState的最高位表示按键是否处于按下状态
        Dim ctrlPressed As Boolean = (GetAsyncKeyState(Keys.ControlKey) And &H8000) <> 0
        Dim altPressed As Boolean = (GetAsyncKeyState(Keys.Menu) And &H8000) <> 0 ' Keys.Menu对应Alt键
        Dim vPressed As Boolean = (GetAsyncKeyState(Keys.V) And &H8000) <> 0

        If ctrlPressed And altPressed And vPressed Then
            If Not IsHotkeyTriggered Then
                IsHotkeyTriggered = True
                ' 随机选取字符串
                Dim PhrasesArray() As String = {"1", "2", "3", "4"}
                Dim Index As Integer = Rand.Next(PhrasesArray.Length) ' Rand.Next的上限是排他的，直接传Length即可
                Dim SelectedValue = PhrasesArray(Index)

                ' 设置剪贴板内容
                My.Computer.Clipboard.SetText(SelectedValue)
                ' 发送Ctrl+V粘贴指令，用SendWait确保发送完成后再继续
                SendKeys.SendWait("^v")
            End If
        Else
            ' 按键释放后重置标志
            IsHotkeyTriggered = False
        End If
    End Sub

    ' 需要声明GetAsyncKeyState的API
    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Private Shared Function GetAsyncKeyState(ByVal vKey As Keys) As Short
    End Function
End Class

这里的关键改进： #

• 正确检测Ctrl+Alt+V组合键（注意Alt键对应的枚举是Keys.Menu）
• 用SendKeys.SendWait替代Send，它会等待按键发送完成，避免剪贴板还没就绪就发送粘贴指令
• 添加IsHotkeyTriggered标志，避免Timer在按键按住期间重复执行代码
• 优化Random的使用，避免短时间内生成重复的随机数

2. 如果SendKeys还是失效？试试更可靠的SendInput #

SendKeys依赖于Windows消息机制，在一些全屏应用、游戏或者高权限程序里可能无法正常工作。这时候可以用SendInput API来模拟硬件级别的按键输入，兼容性更好：

我们需要添加SendInput的API声明，然后封装一个模拟Ctrl+V的方法：

Public Class Form1
    Private Rand As New Random()
    Private IsHotkeyTriggered As Boolean = False

    ' SendInput相关API声明
    <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
    Private Structure INPUT
        Public type As UInt32
        Public ki As KEYBDINPUT
    End Structure

    <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
    Private Structure KEYBDINPUT
        Public wVk As UInt16
        Public wScan As UInt16
        Public dwFlags As UInt32
        Public time As UInt32
        Public dwExtraInfo As System.IntPtr
    End Structure

    Private Const INPUT_KEYBOARD As UInt32 = 1
    Private Const KEYEVENTF_KEYUP As UInt32 = &H2

    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SendInput(ByVal nInputs As UInt32, ByVal pInputs() As INPUT, ByVal cbSize As Int32) As UInt32
    End Function

    ' 模拟按下并释放Ctrl+V
    Private Sub SimulateCtrlV()
        Dim inputs(3) As INPUT ' 需要4个输入：Ctrl按下、V按下、V释放、Ctrl释放

        ' 按下Ctrl键
        inputs(0).type = INPUT_KEYBOARD
        inputs(0).ki.wVk = CType(Keys.ControlKey, UInt16)
        inputs(0).ki.dwFlags = 0

        ' 按下V键
        inputs(1).type = INPUT_KEYBOARD
        inputs(1).ki.wVk = CType(Keys.V, UInt16)
        inputs(1).ki.dwFlags = 0

        ' 释放V键
        inputs(2).type = INPUT_KEYBOARD
        inputs(2).ki.wVk = CType(Keys.V, UInt16)
        inputs(2).ki.dwFlags = KEYEVENTF_KEYUP

        ' 释放Ctrl键
        inputs(3).type = INPUT_KEYBOARD
        inputs(3).ki.wVk = CType(Keys.ControlKey, UInt16)
        inputs(3).ki.dwFlags = KEYEVENTF_KEYUP

        ' 发送输入
        SendInput(4, inputs, System.Runtime.InteropServices.Marshal.SizeOf(GetType(INPUT)))
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Tmr.Interval = 100
        Tmr.Start()
    End Sub

    Private Sub Tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        Dim ctrlPressed As Boolean = (GetAsyncKeyState(Keys.ControlKey) And &H8000) <> 0
        Dim altPressed As Boolean = (GetAsyncKeyState(Keys.Menu) And &H8000) <> 0
        Dim vPressed As Boolean = (GetAsyncKeyState(Keys.V) And &H8000) <> 0

        If ctrlPressed And altPressed And vPressed Then
            If Not IsHotkeyTriggered Then
                IsHotkeyTriggered = True
                Dim PhrasesArray() As String = {"1", "2", "3", "4"}
                Dim Index As Integer = Rand.Next(PhrasesArray.Length)
                Dim SelectedValue = PhrasesArray(Index)

                My.Computer.Clipboard.SetText(SelectedValue)
                ' 替换为SendInput模拟的Ctrl+V
                SimulateCtrlV()
            End If
        Else
            IsHotkeyTriggered = False
        End If
    End Sub

    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Private Shared Function GetAsyncKeyState(ByVal vKey As Keys) As Short
    End Function
End Class

为什么SendInput更可靠？ #

它直接模拟硬件输入信号，绕过了Windows消息队列，所以在大多数游戏、全屏应用或者不响应标准WM_KEYDOWN消息的程序里都能正常工作。

3. 额外的注意事项 #

• 剪贴板权限：如果你的应用运行在Windows 10/11的高权限环境下（比如管理员模式），可能无法访问普通应用的剪贴板，这时候需要确保应用以普通权限运行，或者调整剪贴板权限设置。
• 窗口焦点：确保触发快捷键时，目标输入框处于激活状态——全局快捷键触发时，系统通常会保留当前激活窗口的焦点，但如果你的应用本身抢占了焦点，可能需要先切换回目标窗口（可以用SetForegroundWindow API实现，但需要获取目标窗口句柄）。
• Timer间隔：100ms的间隔足够检测按键，但如果需要更灵敏的响应，可以适当缩短到50ms，但不要太短避免占用过多资源。

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