|
我做登录的测试
将用户名和密码参数化
第一次是测试密码错误是提示的信息
第二次是测试错误的用户名和密码时提示的错误
第三次是正确的登录,然后跳转到主页面
正确登录后我需要判断说登录的页面是否正确
我按照昨天在论坛上请教后得知的方法,用Exist方法对页面进行判断
var_Exist = Browser("Browser").Page("系统-状态").Exist
If (var_Exist) Then
msgbox "输入了正确用户名和密码后,成功跳转直页面!"
End If
第一次提示说找不到对象"系统-状态",然后我添加了"系统-状态"页面的对象
第二次没有再提示找不到对象,但是因为不管我是正确的登录还是错误的登录
都是会弹出msgbox. 这种情况要怎么做呢.
我原来的想法是这样的,密码错误和用户名错误的时候都应该不出现msgbox,等到正确登录后跳转到主页面的时候才出现magbox的啊..
请高手们帮我分析一下,然后给我个解决的办法...
先谢谢了!!!
以下是我脚本里面的code:
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://192.168.123.61/"
Browser("Browser").Page("登陆").WebEdit("username").Set DataTable("username", dtGlobalSheet)
Browser("Browser").Page("登陆").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
Browser("Browser").Page("登陆").Image("butt_submit_cn").Click
Browser("Browser").Page("登陆_2").Sync
Browser("Browser").Page("登陆_2").Check CheckPoint("用户(ad)不存在或非有效用户。 (100839)")
var_Exist = Browser("Browser").Page("系统-状态").Exist
If (var_Exist) Then
msgbox "输入了正确用户名和密码后,成功跳转直页面!"
End If |
|