51Testing软件测试论坛

标题: QTP如何获取弹出对话框 [打印本页]

作者: angle-ying 时间: 2010-3-31 17:59
标题: QTP如何获取弹出对话框
不知道如何获取弹出的对话框望大家给解答谢谢啊
[attach]60831[/attach]

作者: skyzhu 时间: 2010-3-31 18:20
一般来说弹出的是 Dialog 对象
只是存在不存在的话，用exist判断下就可以了
如果说是要截上面的文字，可以用description找这一类CLASS NAME的子对象，但会出现不止一个，一般2、3个。对其中的对象遍历，找到“提示内容”相关的那个属性，非空值的那个就是“请输入您的姓名”
所有能区别哪个Dialog 的属性都是和提示内容有关系的。。暂时没想到什么别的好办法

[ 本帖最后由 skyzhu 于 2010-3-31 19:23 编辑 ]

作者: yunbin_7 时间: 2010-3-31 21:24
标题: 回复 1# 的帖子
首先，你要先添加这个弹出窗口到对象库里。然后，根据这个是一个win应用程序，窗口的对象就是Browser().Dialog("来自 .......")，取出对象的值，程序如下：
error=Browser().Dialog("来自 .......").Status(" 请输入您的姓名").GetRoprotery("text")
这个不知道是不是你想要的结果？

作者: shotstar 时间: 2010-4-1 10:01
楼上几位都回答的差不多了。我想问LZ，获取对话框你要做什么，是想判断是否有这个对话框，还是要看对话框里面的文字信息是否正确？

作者: angle-ying 时间: 2010-4-6 13:57
标题: 回复 4# 的帖子
我想看看是否有这个对话框，并且判断是什么信息！！！

作者: yunbin_7 时间: 2010-4-6 15:55
那你就要使用 Browser().Dialog("来自 .......").Exist 判断这个值是否为真，如果为真的话，就输入对话框中信息的值，即
Browser().Dialog("来自 .......").status("....").GetROProperty("innertext").试试看可不可以。呵呵。

作者: yujie6832 时间: 2010-4-7 09:35
可以获取到内容的，楼上的也说了，不过能简化就简化吧，貌似这样做意义不大，业务需求一定要？

作者: 清水石塘 时间: 2011-7-30 11:06
Dim i '定义行号
Dim outputvalue'定义读取系统实际的提示信息的变量
Dim isyuqizhi'定义读取系统预期值的变量

For i=1 to datatable.GetSheet("Action1").getrowcount
If Browser("xxx").Dialog("来自网页的消息").Exist Then
Browser("xxx").Dialog("来自网页的消息").WinButton("确定").Click
End If
Browser("xxx").Page("xxxx").WebEdit("txt_USER_ID_V1").Set DataTable("username",dtLocalSheet)
Browser("xxx").Page("xxxx").WebEdit("txt_PASSWORD_V1").SetSecure DataTable("password", dtLocalSheet)
Browser("xxx").Page("xxxx").Image("load").Click
outputvalue=Browser("xxx").Dialog("来自网页的消息").Static("myname").GetTOProperty("Text")

datatable("outmsg",dtlocalsheet)=outputvalue'将实际输出值赋予变量outputvalue
isyuqizhi=datatable("yuqizhi",dtlocalsheet)'将预期值赋予变量isyuqizhi

If outputvalue<>isyuqizhi Then
reporter.ReportEvent 1,"登录功能测试","逾期值为："+isyuqizhi+"，实际值为："+outputvalue+"。"
End If

Datatable.GetSheet("Action1").setnextrow'获取Action1中的下一行数据

Next

Browser("xxx").Page("xxxx").Link("退出").Click
Browser("xxx").Page("xxxx_2").Sync
Browser("xxx").Close

、、、、、、、、、、、、这样写还是无法获取输出值，请各位帮我看看问题在哪里，非常感谢！！

作者: Ganve_001 时间: 2011-8-1 17:36
outputvalue=Browser("xxx").Dialog("来自网页的消息").Static("myname").GetROProperty("Text")试下

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)