|
6#
楼主 |
发表于 2012-8-9 13:48:42
|
只看该作者
回复 5# 黑羽祭
我是写的关与bugzilla登陆的测试脚本,按你的修改后还是很慢,脚本如下
SystemUtil.Run"http://192.168.10.188/bugzilla/"
Browser("Bugzilla 首页").Page("Bugzilla 首页").Link("登录").Click
Browser("Bugzilla 首页").Page("Bugzilla 首页").WebEdit("Bugzilla_login").Set DataTable("username", "Global")
Browser("Bugzilla 首页").Page("Bugzilla 首页").WebEdit("Bugzilla_password").SetSecure DataTable("password", "Global")
Browser("Bugzilla 首页").Page("Bugzilla 首页").WebButton("登录").Click
If Browser("Bugzilla 首页").Page("Bugzilla 首页").Link("注销").Exist Then
Reporter.ReportEvent micPass, "登陆成功","用户名和密码正确。"
else If Window("Windows Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Exist(0.5)Then
Window("Windows Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Reporter.ReportEvent micFail, "登陆失败","用户名或密码不能为空。"
else If Browser("Bugzilla 首页").Page("无效的用户名称或密码").Exist(0.5) Then
Reporter.ReportEvent micFail, "登陆失败","用户名或密码错误。"
End If
End If
End If
Browser("Bugzilla 首页").Close |
|