vbscript - 是否可以在 UFT 上以编程方式禁用 "Display hidden-mode notification tooltip"?

标签 vbscript qtp hp-uft alm

我正在尝试在应用程序中运行一些自动化测试,但 UFT 隐藏模式通知工具提示出现在屏幕中的对象前面,导致我的测试无法运行。
我知道我可以取消选中远程代理设置中的“显示隐藏模式通知工具提示”选项来解决此问题,并且在执行此操作后,它在我的计算机上运行良好,但这些测试是由其他用户在其他计算机上执行的我的公司,告诉他们每个人改变他们机器上的这个设置将是一个真正的努力。
是否可以通过编程方式禁用此复选框?

编辑:
以下是有关这对我的影响的更多详细信息:
我正在测试一个 Web 应用程序,在一些测试用例中我需要从该应用程序下载一个文件。我通过单击浏览器底部通知栏上显示的上下文菜单中的“另存为”来完成此操作。 以下是执行此类操作的代码部分:

Dim brwBottom
Set brwBottom = Browser("brw_Bottom_Save_As")

If brwBottom.WinObject("wo_Notification").WinButton("wb_Selector").Exist Then
    brwBottom.WinObject("wo_Notification").WinButton("wb_Selector").Click
    brwBottom.WinMenu("wm_Selector").Select "Save As"
End If

这在我的计算机上工作正常,因为未显示 UFT 通知,但在显示 UFT 通知的其他计算机中,它与菜单重叠,并且我的脚本无法选择“另存为” “选项。那么,如果无法在运行时以编程方式关闭此通知,是否有任何替代解决方案可以单击“另存为”按钮,即使此通知与其重叠?

最佳答案

我设法识别 UFT 通知工具提示并将其关闭。这样,我需要单击的按钮前面就不再有任何对象,并且我的脚本可以成功执行。 以下是使用的代码。我尚未将此标记为可接受的答案,因为我仍在等待我的团队接受该解决方案,但这确实有效。

Dim brwBottom
Set brwBottom = Browser("brw_Bottom_Save_As")

' To close UFT Notification Tooltip, if exists
If Window("regexpwndtitle:=NotificationWindow").Exist(2) Then
    If InStr(Window("regexpwndtitle:=NotificationWindow").GetROProperty("nativeclass"),"UFTRemoteAgent") > 0 Then
        Window("regexpwndtitle:=NotificationWindow").Close
    End If
End If

If brwBottom.WinObject("wo_Notification").WinButton("wb_Selector").Exist Then
    brwBottom.WinObject("wo_Notification").WinButton("wb_Selector").Click
    brwBottom.WinMenu("wm_Selector").Select "Save As"
End If

关于vbscript - 是否可以在 UFT 上以编程方式禁用 "Display hidden-mode notification tooltip"?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37322676/

相关文章:

powershell - HP UFT 注册表设置是否允许其他 HP 产品运行测试和组件?

parsing - 有趣的 CSV 格式帮助

vbscript - vbs脚本通过ftp发送文件并检查/删除原始文件

qtp - 恢复场景或在函数本身中处理大部分场景

regex - 正则表达式单词粘在一起

jenkins - 如何将 UFT 测试的输出传递到 Jenkins 控制台

intellij-idea - HP UFT 安装程序的 IntelliJ 插件选项不可用

sql - 在VBScript中的sql字符串中使用excels命名范围

vbscript - 作为计划任务运行脚本时"Path not found"

vbscript - QTP中如何添加多个函数库文件