如何使用UFT处理Web应用中无法识别的条件触发对话框OK按钮

嘿，这个问题我之前帮不少人踩过坑，那种UFT抓不到的动态触发对话框确实挺棘手的。给你几个亲测有效的解决方案，你挨个试试：

有些看似“隐身”的弹窗其实是浏览器原生的alert/confirm/prompt，UFT专门有对应的对象处理方法。哪怕Spy没识别到，你可以手动在对象仓库（OR）里添加WebDialog对象，属性可以填弹窗标题，或者用正则匹配模糊定位。然后用这段代码试试：

' 等待弹窗加载后点击OK
Browser("你的浏览器对象").Page("目标页面").WebDialog("对话框").WinButton("OK").Click
' 或者直接给页面发送回车指令
Browser("你的浏览器对象").Page("目标页面").SendKeys "{ENTER}"

Shell模拟回车经常因为焦点问题失效，试试用Windows API定位弹窗句柄，再发送指令。给你一段现成的VBS代码，直接加到UFT脚本里就行：

' 先声明需要的API函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Const BM_CLICK = &HF5
Const VK_RETURN = &HD
Const WM_KEYDOWN = &H10
Const WM_KEYUP = &H11

Sub HandleUnrecognizedDialog()
    Dim dialogHwnd As Long
    ' 用标准对话框类名#32770定位，大部分系统/浏览器弹窗都用这个类
    dialogHwnd = FindWindow("#32770", vbNullString)
    If dialogHwnd <> 0 Then
        SetForegroundWindow dialogHwnd ' 把弹窗拉到前台
        ' 先尝试定位OK按钮并点击
        Dim okBtnHwnd As Long
        okBtnHwnd = FindWindowEx(dialogHwnd, 0, "Button", "OK")
        If okBtnHwnd <> 0 Then
            SendMessage okBtnHwnd, BM_CLICK, 0, 0
        Else
            ' 找不到按钮就直接发回车指令
            SendMessage dialogHwnd, WM_KEYDOWN, VK_RETURN, 0
            SendMessage dialogHwnd, WM_KEYUP, VK_RETURN, 0
        End If
    End If
End Sub

调用的时候直接写HandleUnrecognizedDialog()就行，要是知道弹窗标题，把vbNullString换成标题能更精准。

如果是React/Vue这类框架生成的自定义弹窗，UFT的Spy大概率识别不了，这时候直接绕开UFT的对象识别，用JS操作页面元素：

' 替换成你弹窗OK按钮的CSS选择器，比如.class或者#id
Browser("你的浏览器对象").Page("目标页面").RunScript("document.querySelector('.confirm-btn').click();")

不知道选择器的话，打开浏览器开发者工具，找到OK按钮右键复制CSS选择器就行，这个方法对自定义弹窗几乎百试百灵。

如果以上都不行，试试UFT的Device Replay模式，它会模拟真实的鼠标键盘操作，就像你手动点击一样：

' 切换到Device Replay模式
Setting.WebPackage("ReplayType") = 2
' 确保浏览器在前台，然后发送回车
Browser("你的浏览器对象").Page("目标页面").Click
SendKeys "{ENTER}"
' 用完切回原来的模式
Setting.WebPackage("ReplayType") = 1

这个模式唯一要注意的是，执行时浏览器窗口必须在前台，不能被最小化。

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