VB.Net UI自动化匹配Microsoft Edge窗口字符串异常求助

问题现象 #

• 开发UI自动化工具时，查找绝大多数应用窗口正常，但Microsoft Edge窗口始终无法通过Like或Contains匹配成功
• 手动传入"*Microsoft Edge*"作为匹配参数时，即使Debug.Print输出的窗口名称明确显示为Microsoft Edge，匹配逻辑依然失效
• 只有将即时窗口中Debug.Print输出的字符串直接复制粘贴到参数位置，才能成功匹配
• 该问题同样存在于Edge内部文本（如登录选项文本）的匹配场景
• 无论使用原生System.Windows.Automation还是NuGet包UIAComWrapper.dll均会复现，环境为Visual Studio 2019 Professional + Windows 10

问题代码片段 #

rootwinds = AutomationElement.RootElement.FindAll(TreeScope.Children, New PropertyCondition(AutomationElement.LocalizedControlTypeProperty, windowType(windowType_Int)))
For a = 0 To rootwinds.Count - 1
  Debug.Print(rootwinds(a).Current.Name)

  If rootwinds(a).Current.Name Like titleCaption Then
    app2Find = rootwinds(a)
  ElseIf rootwinds(a).Current.Name.Contains(titleCaption.Replace("*", "")) Then
    app2Find = rootwinds(a)
  End If
Next

排查与解决方案 #

1. 不可见Unicode字符导致编码不匹配 #

Edge的窗口名称可能包含零宽空格、非打印控制字符等不可见Unicode字符，手动输入的"Microsoft Edge"和实际获取的字符串编码存在差异，表面显示一致但底层字符不同。

• 验证方法：输出字符串的字符长度和每个字符的Unicode编码，对比手动输入的字符串：

  Dim actualName = rootwinds(a).Current.Name
  Dim targetName = titleCaption.Replace("*", "")
  Debug.Print($"实际名称长度：{actualName.Length}，输入名称长度：{targetName.Length}")
  For Each c In actualName
      Debug.Print($"字符：{c}，Unicode编码：{AscW(c)}")
  Next
  

• 解决方法：移除所有非打印控制字符后再匹配：

  Imports System.Text.RegularExpressions
  
  ' 清理字符串中的所有非打印控制字符
  Dim cleanActual = Regex.Replace(actualName, "\p{C}", "")
  Dim cleanTarget = Regex.Replace(targetName, "\p{C}", "")
  If cleanActual.Contains(cleanTarget) Then
      app2Find = rootwinds(a)
  End If
  

2. 大小写/文化区域匹配规则差异 #

系统文化区域设置或字符串大小写差异可能导致Like和Contains的默认匹配逻辑失效。

• 解决方法：使用不区分大小写的匹配方式：

  ' Like操作符转为小写后匹配
  If LCase(actualName) Like LCase(titleCaption) Then
      app2Find = rootwinds(a)
  ' Contains使用不区分大小写的字符串比较规则
  ElseIf actualName.IndexOf(targetName, StringComparison.OrdinalIgnoreCase) >= 0 Then
      app2Find = rootwinds(a)
  End If
  

3. 基于窗口类名辅助匹配 #

Edge基于Chromium开发，窗口类名为Chrome_WidgetWin_1，可以直接通过类名缩小查找范围，避免名称匹配的问题：

' 组合条件：同时匹配窗口类型和Edge的类名
Dim findCondition = New AndCondition(
    New PropertyCondition(AutomationElement.LocalizedControlTypeProperty, windowType(windowType_Int)),
    New PropertyCondition(AutomationElement.ClassNameProperty, "Chrome_WidgetWin_1")
)
rootwinds = AutomationElement.RootElement.FindAll(TreeScope.Children, findCondition)

4. 强制缓存UIA元素属性 #

UIAutomation的Current.Name可能存在延迟加载，导致获取的字符串不完整或异常，可通过缓存属性解决：

' 创建缓存请求，指定缓存Name属性
Dim cacheRequest = New CacheRequest()
cacheRequest.Add(AutomationElement.NameProperty)
' 激活缓存后查找元素
Using cacheRequest.Activate()
    rootwinds = AutomationElement.RootElement.FindAll(TreeScope.Children, findCondition)
End Using
' 使用缓存的Name属性进行匹配
If rootwinds(a).Cached.Name Like titleCaption Then
    app2Find = rootwinds(a)
End If

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