求助：VB宏程序实现键盘左箭头长按回放的解决方案

我来帮你搞定这个长按键盘按键的需求！你之前尝试的三种方法各有局限，核心问题是没抓住「长按」的本质：一次按下按键 -> 保持按住状态指定时间 -> 一次释放按键，而不是重复触发按键动作。下面给你具体的解决方案：

为什么之前的方法不行？ #

先快速复盘下你遇到的问题：

• 方法1：Me.KeyDown 只能在当前窗口获得焦点时触发，完全无法满足失焦操作的需求；
• 方法2：SendKeys.Send("{LEFT}") 每次调用都会执行「按下+释放」的完整动作，所以会变成重复按键，而非长按；
• 方法3：keybd_event 只发送了按键按下的指令，但没有在延迟后发送释放指令，而且用Timer循环触发按下是错误逻辑，相当于一直重复按，不是保持按住状态。

方案1：用keybd_event实现长按（简单直接） #

keybd_event是Windows旧API，但在VB.NET里依然可用，只要做对「按下-等待-释放」的流程即可：

首先要修正API声明（VB.NET里类型要匹配）：

Imports System.Runtime.InteropServices

Public Class YourFormName
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Sub keybd_event(bVk As Byte, bScan As Byte, dwFlags As UInteger, dwExtraInfo As UInteger)
    End Sub

    ' 常量定义
    Private Const KEYEVENTF_KEYDOWN As UInteger = &H0
    Private Const KEYEVENTF_KEYUP As UInteger = &H2
    Private Const VK_LEFT As Byte = 37 ' 左箭头键的虚拟键码

然后写长按的核心方法，推荐用异步方式避免阻塞UI：

' 异步长按左箭头键指定秒数
    Private Async Sub HoldLeftArrowForSeconds(seconds As Integer)
        ' 发送按下左箭头的指令
        keybd_event(VK_LEFT, 0, KEYEVENTF_KEYDOWN, 0)
        
        ' 异步等待指定秒数（不会卡住界面）
        Await Task.Delay(seconds * 1000)
        
        ' 发送释放左箭头的指令
        keybd_event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0)
    End Sub

调用示例：比如点击按钮触发3秒长按

Private Sub btnHoldLeft_Click(sender As Object, e As EventArgs) Handles btnHoldLeft.Click
        Await HoldLeftArrowForSeconds(3)
    End Sub

方案2：用SendInput实现长按（更推荐，官方新API） #

keybd_event已经被微软标记为废弃，SendInput是更可靠的替代方案，逻辑和上面一致，只是API调用方式不同：

先声明必要的结构体和API：

Imports System.Runtime.InteropServices

Public Class YourFormName
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SendInput(nInputs As Integer, pInputs As INPUT(), cbSize As Integer) As Integer
    End Function

    <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 UInteger
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure

    ' 常量定义
    Private Const INPUT_KEYBOARD As Integer = 1
    Private Const KEYEVENTF_KEYUP As UInteger = &H2
    Private Const VK_LEFT As Short = 37

封装按键按下和释放的方法：

Private Sub SendKeyDown(vkCode As Short)
        Dim input As INPUT = New INPUT()
        input.type = INPUT_KEYBOARD
        input.ki.wVk = vkCode
        input.ki.dwFlags = 0 ' 标记为按下动作
        SendInput(1, {input}, Marshal.SizeOf(GetType(INPUT)))
    End Sub

    Private Sub SendKeyUp(vkCode As Short)
        Dim input As INPUT = New INPUT()
        input.type = INPUT_KEYBOARD
        input.ki.wVk = vkCode
        input.ki.dwFlags = KEYEVENTF_KEYUP ' 标记为释放动作
        SendInput(1, {input}, Marshal.SizeOf(GetType(INPUT)))
    End Sub

同样写异步长按方法：

Private Async Sub HoldLeftArrowAsync(seconds As Integer)
        SendKeyDown(VK_LEFT)
        Await Task.Delay(seconds * 1000)
        SendKeyUp(VK_LEFT)
    End Sub

补充：用Timer实现非阻塞长按（适合定时触发场景） #

如果你需要用Timer来控制触发时机，可以这样写（避免循环发送按下指令）：

Private holdStartTime As DateTime? = Nothing
    Private readonly holdDuration As Integer = 3 ' 长按3秒

    Private Sub timer_playback_Tick(sender As Object, e As EventArgs) Handles timer_playback.Tick
        If holdStartTime Is Nothing Then
            ' 第一次Tick：按下左箭头，记录开始时间
            keybd_event(VK_LEFT, 0, KEYEVENTF_KEYDOWN, 0)
            holdStartTime = DateTime.Now
            timer_playback.Interval = 100 ' 缩短间隔，实时检查时间
        Else
            ' 检查是否达到长按时长
            If (DateTime.Now - holdStartTime.Value).TotalSeconds >= holdDuration Then
                ' 释放按键，重置状态
                keybd_event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0)
                holdStartTime = Nothing
                timer_playback.Stop()
            End If
        End Sub

    ' 启动长按的入口方法
    Private Sub StartLongPress()
        holdStartTime = Nothing
        timer_playback.Start()
    End Sub

关键注意点 #

• 不管用哪种API，核心逻辑都是一次按下 → 等待 → 一次释放，这才是「长按」的正确实现；
• 用异步方法或Timer是为了避免阻塞UI线程，否则你的程序会在等待期间卡住；
• 两种API都能在窗口失焦时正常工作，满足你的需求。

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