如何在VBA中使用SendInput函数向Chrome窗口发送组合按键？

核心问题分析 #

你遇到的问题大概率是两个原因：一是Chrome窗口未正确获得输入焦点（或焦点落在了不响应快捷键的控件上）；二是SendInput的键盘事件序列构造错误。以下是针对性的解决方案：

步骤1：确保Chrome窗口及目标控件获得焦点 #

Chrome采用多进程架构，主窗口并非直接接收输入的控件，需要先激活主窗口，再将焦点定位到可响应快捷键的区域（如标签页内容区或地址栏）。

关键API调用 #

• SetForegroundWindow：将Chrome窗口设为前台窗口
• AttachThreadInput：确保当前线程能控制Chrome窗口的输入焦点
• SetFocus：将焦点设置到Chrome的输入控件（如地址栏）

步骤2：正确构造SendInput的键盘事件序列 #

SendInput需要严格按照「按下修饰键→按下普通键→释放普通键→释放修饰键」的顺序发送事件，每个按键的按下和释放都需要单独的INPUT结构。

必要的API声明与结构定义 #

' 声明Windows API
Private Declare PtrSafe Function SendInput Lib "user32.dll" (ByVal nInputs As LongPtr, pInputs As INPUT, ByVal cbSize As LongPtr) As LongPtr
Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function AttachThreadInput Lib "user32.dll" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32.dll" () As Long
Private Declare PtrSafe Function SetFocus Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr

' 定义常量
Private Const INPUT_KEYBOARD As Long = 1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_CONTROL As Long = &H11
Private Const VK_H As Long = &H48

' 定义API所需结构
Private Type INPUT
    dwType As Long
    ki As KEYBDINPUT
    mi As MOUSEINPUT
    hi As HARDWAREINPUT
End Type

Private Type KEYBDINPUT
    wVk As Long
    wScan As Long
    dwFlags As Long
    time As Long
    dwExtraInfo As LongPtr
End Type

Private Type MOUSEINPUT
    dx As Long
    dy As Long
    mouseData As Long
    dwFlags As Long
    time As Long
    dwExtraInfo As LongPtr
End Type

Private Type HARDWAREINPUT
    uMsg As Long
    wParamL As Long
    wParamH As Long
End Type

步骤3：完整实现代码 #

Sub SendCtrlHToChrome()
    Dim chromeHwnd As LongPtr
    Dim chromeChildHwnd As LongPtr
    Dim currentThreadId As Long
    Dim chromeThreadId As Long
    
    ' 找到Chrome主窗口（类名为"Chrome_WidgetWin_1"）
    chromeHwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    If chromeHwnd = 0 Then
        MsgBox "未找到Chrome窗口"
        Exit Sub
    End If
    
    ' 获取当前线程ID和Chrome窗口线程ID
    currentThreadId = GetCurrentThreadId()
    chromeThreadId = GetWindowThreadProcessId(chromeHwnd, 0)
    
    ' 附加线程输入，确保能设置焦点
    AttachThreadInput currentThreadId, chromeThreadId, 1
    
    ' 将Chrome设为前台窗口
    SetForegroundWindow chromeHwnd
    
    ' 找到Chrome的地址栏控件（类名为"Chrome_OmniboxView"）
    chromeChildHwnd = FindWindowEx(chromeHwnd, 0, "Chrome_OmniboxView", vbNullString)
    If chromeChildHwnd = 0 Then
        ' 如果找不到地址栏，尝试设置焦点到主窗口的第一个子控件
        chromeChildHwnd = FindWindowEx(chromeHwnd, 0, vbNullString, vbNullString)
    End If
    
    ' 设置焦点到目标控件
    If chromeChildHwnd <> 0 Then
        SetFocus chromeChildHwnd
    End If
    
    ' 发送Ctrl+H组合键
    SendKeyDown VK_CONTROL
    SendKeyDown VK_H
    SendKeyUp VK_H
    SendKeyUp VK_CONTROL
    
    ' 分离线程输入
    AttachThreadInput currentThreadId, chromeThreadId, 0
End Sub

' 发送按键按下事件
Private Sub SendKeyDown(ByVal vKey As Long)
    Dim inputStruct As INPUT
    inputStruct.dwType = INPUT_KEYBOARD
    inputStruct.ki.wVk = vKey
    inputStruct.ki.dwFlags = 0
    SendInput 1, inputStruct, LenB(inputStruct)
End Sub

' 发送按键释放事件
Private Sub SendKeyUp(ByVal vKey As Long)
    Dim inputStruct As INPUT
    inputStruct.dwType = INPUT_KEYBOARD
    inputStruct.ki.wVk = vKey
    inputStruct.ki.dwFlags = KEYEVENTF_KEYUP
    SendInput 1, inputStruct, LenB(inputStruct)
End Sub

注意事项 #

• Chrome的窗口类名可能因版本略有不同，如果Chrome_WidgetWin_1找不到，可以用Spy++工具查看实际的类名
• 如果发送快捷键后仍无响应，可尝试在设置焦点后添加Sleep 100（需声明Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)），给Chrome足够的时间处理焦点切换
• 确保Chrome处于正常状态（未最小化、未被其他窗口遮挡）

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