Dim a
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Link("用户登录").Click
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_用户登录").WebEdit("user").Set DataTable("username", dtGlobalSheet)
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_用户登录").WebEdit("pass").SetSecure DataTable("pass", dtGlobalSheet)
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_用户登录").Image("ImageButton1").Click 16,17
If Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Dialog("Microsoft Internet Explorer").Exist(1) Then
error_message=Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Dialog("Microsoft Internet Explorer").Static("用户名不能为空密码不能为空").GetROProperty("regexpwndtitle")
a= DataTable("check_message", dtGlobalSheet)
If (a=error_message) Then
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
reporter.ReportEvent micDone,"成功","执行与预期一致!"
else
reporter.ReportEvent micFail,"错误:","第"&i&"个用例实际执行结果与预期不一致!"
End If
Else
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_待办事宜").Sync
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_待办事宜").Check CheckPoint("浙江新能量科技有限公司_待办事宜")
reporter.ReportEvent micDone,"成功:","可以正常登陆"
End if
Browser("浙江新能量科技有限公司-国内电子招投标、电子采购领域领导厂商").Page("浙江新能量科技有限公司_待办事宜").Link("·退出当前登录").Click
运行不了哎 |