AutomationElement.Current.Name出现等待，没有返回

Question

AutomationElement.Current.Name出现等待，没有返回

匿名

自动化测试过程中调用AutomationElement.Current.Name 出现了无限等待，并且程序没有抛出异常

同时发现，查询目标窗体的时候也会有同样的问题，加入异步的超时处理无法成功

Dim rootElement = AutomationElement.RootElement.FindFirst(TreeScope.Children, New AndCondition(GetNameProperty(“窗体名称”), GetWindowProperty))

通过debug无法获取到窗体信息，如下图

确认了窗体当前状态为未获取焦点，属性IsEnabled = true , IsOffscreen = false 用户的图像

问题1：

当前状态下出现异常等待的原因是什么？

问题2：

针对上述现象请提供解决方案

1 个答案

你的答案

Answer 1

Jiachen Li-MSFT 34,221 Microsoft 外部员工

一些可能导致这个问题的原因：

目标窗体的 Name 属性为空或不可访问
- AutomationElement.Current.Name 依赖 UI Automation 提供的属性，某些窗口可能没有正确实现 UI 自动化支持，导致 Name 访问失败或长时间等待。
- 部分应用（尤其是 Win32 或 WPF）在无焦点时不会返回 Name，或者 Name 依赖某些动态加载数据。
目标窗体在 UI Automation 树中的状态异常
- 由于某些安全限制或窗口架构（比如权限问题），FindFirst 可能会卡住。
- rootElement.FindFirst 可能在查找时遇到隐藏或不可访问的窗口。

可以尝试下面的方案：

用AutomationElement.GetCurrentPropertyValue Method代替 Current.Name，尝试 GetCurrentPropertyValue(AutomationElement.NameProperty)。
可以尝试 TreeWalker遍历 UI 结构作为 FindFirst 的替代方案。

如果答案是正确的，请点击“接受答案”并点赞。如果您对此答案还有其他疑问，请点击“评论”。 **注意：如果您想接收相关电子邮件，请按照我们的文档中的步骤启用电子邮件通知。 **

匿名

2025-02-20T03:34:55.6333333+00:00
用AutomationElement.GetCurrentPropertyValue Method代替 Current.Name，尝试 GetCurrentPropertyValue(AutomationElement.NameProperty)。

可以尝试 TreeWalker遍历 UI 结构作为 FindFirst 的替代方案。

谢谢您的回复，确认了上述两种方案都无法解决，现在分析了问题的原因可能是窗体的状态是未响应状态导致的

Process.GetProcessById(AutomationElement.Current.ProcessId).Responding = false

请问在窗体未响应的状态下，怎么可以查找指定名称的窗口信息

Jiachen Li-MSFT 34,221 Microsoft 外部员工

在窗口处于未响应（Not Responding）状态时，UIAutomation 无法正常获取窗口信息， AutomationElement.Current.Name 可能会超时或卡住。这时可以通过WinAPI（Windows API）来获取窗口信息，而不依赖 UIAutomation。

    ' Find window by title or class name
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    End Function

    ' Get the window text (title)
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer
    End Function

    ' Get the length of the window text
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowTextLength(hWnd As IntPtr) As Integer
    End Function

    ' Function to get window title
    Private Function GetWindowTitle(hwnd As IntPtr) As String
        Dim length As Integer = GetWindowTextLength(hwnd)
        If length = 0 Then Return String.Empty

        Dim sb As New StringBuilder(length + 1)
        GetWindowText(hwnd, sb, sb.Capacity)
        Return sb.ToString()
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim windowTitle As String = "目标窗口名称" ' 替换为实际窗口名称
        Dim hwnd As IntPtr = FindWindow(Nothing, windowTitle)
        If hwnd <> IntPtr.Zero Then
            Console.WriteLine("找到窗口，句柄: " & hwnd.ToString())
            Console.WriteLine("窗口标题: " & GetWindowTitle(hwnd))
        Else
            Console.WriteLine("未找到指定名称的窗口。")
        End If
    End Sub