51Testing软件测试论坛

标题: 如何获得弹出错误提示框的文字？ [打印本页]

作者: No1 时间: 2007-2-5 09:39
标题: 如何获得弹出错误提示框的文字？
比如一个登陆页面我没输入用户名然后系统弹出一个“请输入用户名！”错误提示框我如何获得 “请输入用户名！” 这错误提示？

作者: walker1020 时间: 2007-2-5 09:48
请楼主参考帖子：http://bbs.51testing.com/viewthread.php?tid=43647
中的解决方法来解决你的问题。看完那个帖子后，发挥你的主管能动性，你就一定能解决自己的问题。

[ 本帖最后由 walker1020 于 2007-2-5 09:51 编辑 ]

作者: yhzmw 时间: 2007-2-5 10:28
下面的代码是录制qtp自带的飞机票订票系统时，不输入用户名点击确定时，捕获的弹出窗口信息
主要使用了getroproperty这个函数。针对这个函数你可以参考qtp精华区中的http://bbs.51testing.com/thread-13554-1-1.html 链接，讲解的比较详细
Dialog("登录").WinButton("确定").Click
Dim a
a = dialog("登录").Dialog("航班预订").Static("请输入代理名称").GetROProperty("regexpwndtitle")
msgbox "当前弹出的窗口中提示信息是! ! " + a
Dialog("登录").Dialog("航班预订").WinButton("确定").Click

作者: No1 时间: 2007-2-5 10:52
多谢斑竹的热心回复。
还有点问题
Browser("51.com 我的朋友，我的家！").Page("51.com 我的朋友，我的家！").WebEdit("passport_51_user").Set "11111"
Browser("51.com 我的朋友，我的家！").Page("51.com 我的朋友，我的家！").Image("登录").Click 37,12
message=Browser("51.com 我的朋友，我的家！").Dialog("Microsoft Internet Explorer").GetVisibleText()
message1="Microsoft Internet Explorer"+"用户名只能用数字或英文，并且必须为英文字母开头"+"OK"
if(message=message1) then
msgbox "true"
else
msgbox "false"
end if
Browser("51.com 我的朋友，我的家！").Dialog("Microsoft Internet Explorer").WinButton("OK").Click

[ 本帖最后由 No1 于 2007-2-5 10:56 编辑 ]

作者: No1 时间: 2007-2-5 10:53
555555555
if(message=message1) then
这句弄错了
出问题了不过我会继续参考大家的意见把它搞定

[ 本帖最后由 No1 于 2007-2-5 10:55 编辑 ]

作者: xiaonan 时间: 2007-2-5 11:05
if message=message1 then

这里面的message1应该是个字符串吧,加上双引号.

作者: No1 时间: 2007-2-5 11:43
问题解决了谢谢大家
多谢斑竹的热心帮助！
把那个错误提示框加到对象库里
就OK了
Browser("51.com 我的朋友，我的家！").Page("51.com 我的朋友，我的家！").WebEdit("passport_51_user").Set "11111"
Browser("51.com 我的朋友，我的家！").Page("51.com 我的朋友，我的家！").Image("登录").Click 37,12
if(Browser("51.com 我的朋友，我的家！").Dialog("Microsoft Internet Explorer").Exist(1)) then
msgbox "true"
else
msgbox "false"
end if

作者: No1 时间: 2007-2-7 17:29
下面的代码是录制qtp自带的飞机票订票系统时，不输入用户名点击确定时，捕获的弹出窗口信息
主要使用了getroproperty这个函数。针对这个函数你可以参考qtp精华区中的http://bbs.51testing.com/thread-13554-1-1.html 链接，讲解的比较详细
Dialog("登录").WinButton("确定").Click
Dim a
a = dialog("登录").Dialog("航班预订").Static("请输入代理名称").GetROProperty("regexpwndtitle")
msgbox "当前弹出的窗口中提示信息是! ! " + a
Dialog("登录").Dialog("航班预订").WinButton("确定").Click

"regexpwndtitle" 是获得错误信息？
是什么意思啊给我说说阿谢谢了

作者: yhzmw 时间: 2007-2-8 15:11
"regexpwndtitle" 是获得错误信息？

regexpwndtitle 就是弹出的对话框的一个属性。这个属性对应的是弹出的对话框的提示信息，你用getroproperty获得这个属性就得到了对话框的文本信息

作者: rivermen 时间: 2007-2-8 15:54
把鼠标点击弹出的对话框上，硬拷（ctrl+c）
然后找写字板，ctrl+v，看看上面的文字是不时已经下来了？

作者: No1 时间: 2007-2-8 18:02
谢谢 yhzmw rivermen 详细的解释
谢谢大家热情的帮助

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