QTP：描述性编程和 Java 窗口答案

【问题标题】：QTP: Descriptive Programing and Java WindowQTP：描述性编程和 Java 窗口
【发布时间】：2013-11-26 14:34:55
【问题描述】：

我在 QTP 11.5 中使用描述性编程，没有 obj 存储库。

我有一个简单的网络应用程序，但是在单击“运行”按钮之前，我需要打开一个 Java 对话窗口并选择一个复选框。

你们能帮我写代码吗？我做错了什么？

Dim JavaBro, JavaDial, Jobj, JBox, JButton, JWindow

Set JavaBro = Browser("micclass:=Browser")
Set JavaDial = JavaDialog("micclass:=JavaDialog")
Set JButton = JavaButton ("micclass:=JavaButton")
Set JWindow = JavaWindow ("micclass:=JavaWindow")
Set Jobj = JavaObject("micclass:=JavaObject")
Set JBox = JavaCheckBox("micclass:=JavaCheckBox")


Set oDesc = Description.Create()
oDesc("micclass").Value = "JavaCheckBox"
JavaDialog("text:=Security Warning").JavaCheckBox("label:=I accept the risk and want to run this application\.").Set "ON"
JavaDialog("text:=Security Warning").JavaButton("text:=Run").Click

【问题讨论】：

请解释发生了什么，您期望什么行为？

标签： qtp

【解决方案1】：

首先，您不需要在顶部创建的所有对象定义，但无论如何您都不会使用它。

最后两行足以识别并点击运行按钮。

想了解 Java Dialog 是否有父级？例如，如果它在浏览器上或直接父级上？

如果它没有父代码，您的代码应该像这样工作，并正确输出出错的地方。为了让 QTP 更准确地识别对象，需要在添加一些独特属性的过程中添加更相关的描述。要学习独特的描述，请使用 object spy 并使用“，”将它们添加到此处以分隔多个描述

If JavaDialog("text:=Security Warning").Exist( 5 ) Then
     If JavaDialog("text:=Security Warning").JavaCheckBox("label:=I accept the risk and want to run this application\.").Exist( 5 ) Then
           JavaDialog("text:=Security Warning").JavaCheckBox("label:=I accept the risk and want to run this application\.").Set "ON"
           If JavaDialog("text:=Security Warning").JavaButton("text:=Run").Exist( 5 ) Then
                  JavaDialog("text:=Security Warning").JavaButton("text:=Run").Click
           Else
                  MsgBox "Unable to Identify Run Button"
           End If
     Else
           MsgBox "Unable to Identify CheckBox"
     End If
Else
     MsgBox "Unable to Identify Security Dialog"
End If

如果您将 Browser 作为父对象，请在每个对象事件语句上使用 Browser 对象开始。

祝你好运

【讨论】：