TA的每日心情 | 开心 2015-5-4 14:23 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
楼主,你要是只想在某个状态下检查某个按钮是否存在,可以参看一下,这只是一种思路,实现起来有点麻烦。
情景:用户登录,用户名正确,密码错误,判断弹出的对话框上的按钮是否是“确定”按钮,
录制的脚本代码如下:
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebEdit("username").Set "renkou"
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebEdit("password").SetSecure "44cf1256718805ff06722f9c26d84ec12549"
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebButton("登 录").Click
Browser("社区综合业务信息管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
修改后如下:
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebEdit("username").Set "renkou"
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebEdit("password").SetSecure "44cf1256718805ff06722f9c26d84ec12549"
Browser("社区综合业务信息管理系统").Page("社区综合业务信息管理系统").WebButton("登 录").Click
If Browser("社区综合业务信息管理系统").Dialog("Microsoft Internet Explorer").Exist(1) Then
Dim w,e
w=Browser("社区综合业务信息管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").GetRO Property("object class")
e=Browser("社区综合业务信息管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").GetROProperty("text")
If w="Button" and e="确定" Then
Browser("社区综合业务信息管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Reporter.ReportEvent 0, "按钮判断 ", "要检查的按钮存在!!!."
else
Reporter.ReportEvent 1, "按钮判断 ", "要检查的按钮不存在!!!
End If
End If |
|