VBA UIAutomation：GetFocusedElement可定位元素但FindFirst/FindAll失效

我开发了一个应用程序，通过VBA UIAutomation的GetFocusedElement方法可以找到获得焦点的文本框，说明这些元素可被UIAutomation检测到，但使用FindFirst或FindAll方法却无法找到它们。代码示例如下：

Public Wnd As IUIAutomationElement
Public Element As IUIAutomationElement
Public H_wnd As Long, PropValue(30003 To 30005)
Declare PtrSafe Function GetForegroundWindow Lib "user32" () As Long

Sub GetFocused()
  Tasks(MyApp).Activate
  H_wnd = GetForegroundWindow
  Set Element = UIauto.GetFocusedElement
  For i = 30003 To 30005 'ControlType, ?, Name
    PropValue(i) = Element.GetCurrentPropertyValue(i)
    '运行正常，可打印属性值
    Debug.Print PropValue(i)
  Next
End Sub

Sub FindElement()
  Set Wnd = UIauto.ElementFromHandle(ByVal H_wnd)
  For i = 30003 To 30005
    '使用之前保存的属性值搜索
    Debug.Print Wnd.FindFirst(TreeScope_Descendants, _
      UIauto.CreatePropertyCondition(i, PropValue(i))) Is Nothing
    '所有查询均输出True，即找不到元素
  Next
End Sub

第一个GetFocused过程可成功找到焦点元素并打印其属性，但第二个FindElement过程无法找到任何元素，即使替换TreeScope_Descendants为其他TreeScope取值也无效。

请问能否在元素未获得焦点时找到它们？我希望通过名称或属性定位这些元素，而非依赖焦点控件，因为实际使用时它们不会处于焦点状态。

针对这个问题，你可以从以下几个方向排查并解决：

1. 允许匹配非屏幕可见（Offscreen）元素 #

很多控件在未获得焦点时可能处于Offscreen状态，UIAutomation默认的查找逻辑会过滤这类元素。你需要创建包含UIA_IsOffscreenPropertyId（属性ID：30024）的条件，允许匹配非可见元素：

' 先声明所需常量
Const UIA_IsOffscreenPropertyId As Long = 30024
Const TreeScope_Subtree As Long = 0x0007 ' 包含当前元素及所有后代

Sub FindElementWithOffscreen()
  Dim condition As IUIAutomationCondition
  Dim offscreenCondition As IUIAutomationCondition
  Dim combinedCondition As IUIAutomationCondition
  
  Set Wnd = UIauto.ElementFromHandle(ByVal H_wnd)
  
  ' 创建允许匹配Offscreen元素的条件
  Set offscreenCondition = UIauto.CreatePropertyCondition(UIA_IsOffscreenPropertyId, False)
  ' 组合原属性条件与Offscreen条件（以ControlType为例）
  Set condition = UIauto.CreatePropertyCondition(30003, PropValue(30003))
  Set combinedCondition = UIauto.CreateAndCondition(condition, offscreenCondition)
  
  ' 使用TreeScope_Subtree进行查找
  Set Element = Wnd.FindFirst(TreeScope_Subtree, combinedCondition)
  Debug.Print Element Is Nothing ' 若输出False则找到元素
End Sub

2. 确认根元素的正确性 #

ElementFromHandle获取的窗口可能不是控件所在的实际容器，比如有些应用程序的控件嵌套在子窗口中。你可以先遍历顶级窗口的直接子元素，确认目标控件的实际父容器：

Sub CheckRootElement()
  Dim childElem As IUIAutomationElement
  Dim children As IUIAutomationElementArray
  Dim i As Long
  
  Set Wnd = UIauto.ElementFromHandle(ByVal H_wnd)
  Set children = Wnd.FindAll(TreeScope_Children, UIauto.CreateTrueCondition())
  
  For i = 0 To children.Length - 1
    Set childElem = children.GetElement(i)
    Debug.Print childElem.CurrentName, childElem.CurrentControlType
    ' 查看是否有包含目标控件的子容器
  Next i
End Sub

找到正确的子容器后，以该容器作为根元素进行查找。

3. 确保属性匹配的类型一致性 #

GetCurrentPropertyValue返回的是变体类型，直接用于CreatePropertyCondition可能因类型不匹配导致失败。比如Name属性是字符串，你可以显式转换类型：

' 保存Name属性时显式转为字符串
PropValue(30005) = CStr(Element.GetCurrentPropertyValue(30005))
' 查找时使用字符串类型匹配
Set condition = UIauto.CreatePropertyCondition(30005, PropValue(30005))

4. 添加查找延迟 #

部分控件可能需要时间加载完成，在查找前添加短延迟：

' 需要先声明Sleep函数
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub FindElementWithDelay()
  Set Wnd = UIauto.ElementFromHandle(ByVal H_wnd)
  Sleep 500 ' 等待500毫秒
  ' 执行查找逻辑...
End Sub

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