VBA基于Chrome DevTools Protocol：模拟按键触发输入框自动补全

直接修改输入框的value属性不会触发前端的自动补全/过滤逻辑，因为这类功能通常依赖input、keyup等用户交互事件，而非DOM属性的直接变更。以下是两种适配你所用CDP框架的解决方案：

方法1：通过JS模拟输入事件（轻量高效） #

先定位元素，再手动触发必要的交互事件来模拟真实输入：

' 定位目标输入框并缓存到全局变量el
chrome.jsEval "el = document.evaluate('//input[contains(@placeholder,''Search'')]', document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue;"

' 聚焦并清空输入框
chrome.jsEval "el.focus(); el.value = '';"

' 获取需要输入的文本
Dim inputText As String
inputText = WorkSheet.Cells(2, 3).Value

' 直接赋值并触发核心事件（若页面仅监听input事件，此步即可生效）
chrome.jsEval "el.value = '" & inputText & "'; el.dispatchEvent(new Event('input', {bubbles: true, cancelable: true}));"

' 可选：补充触发change/keyup事件增强兼容性
chrome.jsEval "el.dispatchEvent(new Event('keyup', {bubbles: true}));"
chrome.jsEval "el.dispatchEvent(new Event('change', {bubbles: true}));"

如果上述直接赋值+事件触发无效，尝试逐个字符输入来完全模拟用户操作：

' 定位、聚焦、清空步骤同上
' ...

' 遍历每个字符逐个输入
Dim i As Integer
For i = 1 To Len(inputText)
    Dim char As String
    char = Mid(inputText, i, 1)
    ' 追加字符并触发input事件
    chrome.jsEval "el.value += '" & char & "'; el.dispatchEvent(new Event('input', {bubbles: true}));"
    ' 短暂延迟匹配真实输入节奏
    Application.Wait Now + TimeValue("00:00:00.1")
Next i

方法2：利用CDP原生命令（最贴近真实用户操作） #

通过Chrome DevTools Protocol的Input命令直接发送按键事件，绕过DOM操作，完全模拟浏览器接收输入的流程：

' 定位并聚焦输入框
chrome.jsEval "el = document.evaluate('//input[contains(@placeholder,''Search'')]', document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue; el.focus();"

' 获取输入文本
Dim inputText As String
inputText = WorkSheet.Cells(2, 3).Value

' 遍历字符发送CDP按键事件
Dim i As Integer
For i = 1 To Len(inputText)
    Dim char As String
    char = Mid(inputText, i, 1)
    ' 发送插入文本命令（替代手动拼接value）
    chrome.SendCommand "Input.insertText", "{""text"": """ & char & """}"
    ' 可选：补充发送keydown/keyup事件
    chrome.SendCommand "Input.dispatchKeyEvent", "{""type"": ""keyDown"", ""text"": """ & char & """}"
    chrome.SendCommand "Input.dispatchKeyEvent", "{""type"": ""keyUp"", ""text"": """ & char & """}"
    Application.Wait Now + TimeValue("00:00:00.1")
Next i

关键说明 #

• 优先测试方法1的直接赋值+input事件触发，效率最高；若无效再尝试逐个字符或方法2
• 延迟时间可根据页面响应速度调整，避免因操作过快导致前端未及时处理
• 不同前端框架监听的事件可能不同，可通过浏览器开发者工具的事件监听器面板查看目标输入框绑定的事件，针对性触发

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