|
为了检验登录失败,我使用对弹出对话框检查的方法实现,代码如下。
Dim var_GetTOProperty
Browser("OA-用户登录").Page("OA-用户登录").WebEdit("j_username").Set "125"
Browser("OA-用户登录").Page("OA-用户登录").WebEdit("j_password").SetSecure ""
Browser("OA-用户登录").Page("OA-用户登录").WebButton("WebButton").Click
If Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").exist(1) Then
var_GetTOProperty = Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").GetVisibleText(top)
If var_GetTOProperty <> "请输入密码 !"Then
msgbox(var_GetTOProperty )
End If
Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").close
End If
执行后,返回值却是弹出框所有的属性值,而我只需要它返回弹出框的文本内容“请输入密码!”。如下图:
也采用了Static("请输入密码 !").GetROProperty("regexpwndtitle"),但却报错。 |
|