TA的每日心情 | 开心 2024-1-5 23:34 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
参照网上例子,编写登陆脚本如下,在setting的run下面设置run on all rows 去无法实现循环,请教是什么原因?
Dim Status
Browser("Login").Page("Login").WebEdit("UserName").Set DataTable("username", dtLocalSheet)
Browser("Login").Page("Login").WebEdit("Password").Set DataTable("password", dtLocalSheet)
Status = DataTable("Status", dtLocalSheet)
If Status="pass" Then
Browser("Login").Page("Login").WebButton("登入").Click
Browser("Login").Page("Page").Link("渠道管理").Click
End If
If Status="该用户不存在" Then
Reporter.ReportEvent micFail, "登陆", "登陆失败."
Browser("Login").close
End If
If Status="密码不存在" Then
Reporter.ReportEvent micFail, "登陆", "登陆失败."
Browser("Login").close
End If |
|