VBA UI自动化库按钮点击失效：如何确保单次Invoke调用成功？

并非所有VBA用户都了解可引用UI自动化库，相关细节可查阅微软官方文档。

在自动化某特定程序UI时，已成功获取该应用的所有按钮自动化元素，但调用Invoke模式执行“点击”操作时，并非每次都能成功。尝试对每个按钮调用三次Invoke方法，多数情况下点击能生效，但偶尔会出现重复点击，因此无法依赖这种方式。需要实现单次方法调用确保每个按钮点击都成功。

示例代码如下：

Private Sub keypadPress(key As Byte)
    Dim keypadButtonPress As UIAutomationClient.IUIAutomationInvokePattern
    Dim keypadButton As UIAutomationClient.IUIAutomationElement
    Dim pCondition As UIAutomationClient.IUIAutomationCondition
    Dim patternID As Long
    Set pCondition = propertyCondition(cAuto, "Button" & key, xAutomation)
    Set keypadButton = keypad.FindFirst(TreeScope_Children, pCondition)
    patternID = UIAutomationClient.UIA_InvokePatternId
    Set keypadButtonPress = keypadButton.GetCurrentPattern(patternID)
    Debug.Print patternID
    keypadButtonPress.Invoke
End Sub

注：key参数用于指定要点击的按钮名称；此处的“失败”指代码正常执行，但目标程序无任何反应，按钮未被触发。

优化方案 #

• 先校验元素交互状态：在调用Invoke前，确认按钮处于可启用、可获取焦点的状态，避免对不可交互元素执行操作：

  If keypadButton.CurrentIsEnabled And keypadButton.CurrentIsKeyboardFocusable Then
      keypadButtonPress.Invoke
  End If
  

• 添加短延迟等待：部分程序UI加载或响应存在滞后，获取元素后添加短暂等待，确保元素完全就绪：

  Application.Wait Now + TimeValue("00:00:00.5") ' 等待0.5秒，可按需调整
  

• 改用API模拟点击：如果Invoke模式稳定性差，可通过SendMessage API直接向按钮发送点击消息，绕过UI自动化的Invoke模式：

  Private Declare PtrSafe Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
  Private Const BM_CLICK = &HF5
  
  ' 在获取keypadButton对象后执行以下代码
  Dim btnHwnd As LongPtr
  btnHwnd = keypadButton.CurrentNativeWindowHandle
  SendMessage btnHwnd, BM_CLICK, 0, 0
  

• 验证点击结果并有限重试：执行Invoke后，检查是否触发了预期的UI变化（比如关联元素状态、文本更新），若未达到预期则重试一次（限制重试次数避免重复点击）：

  Dim retryCount As Integer
  retryCount = 0
  Do While retryCount < 1
      keypadButtonPress.Invoke
      ' 替换为你的验证逻辑，比如检查目标按钮的状态或关联元素
      Dim isClicked As Boolean
      isClicked = (keypadButton.CurrentAutomationId = "Button" & key And keypadButton.CurrentIsEnabled = False) ' 示例验证条件
      If isClicked Then Exit Do
      retryCount = retryCount + 1
      Application.Wait Now + TimeValue("00:00:00.3")
  Loop
  

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