51Testing软件测试论坛

标题: 对于webelement报错的QTP测试,怎么做? [打印本页]

作者: jing1578 时间: 2014-10-12 22:24
本主题需向作者支付 30 测试积点 才能浏览

作者: jing1578 时间: 2014-10-12 22:26
Dim result
Dim  istatus

Browser("首页").Page("首页").Link("登录").Click
Browser("首页").Page("会员登录").WebEdit("用户名").Set DataTable("userName", dtLocalSheet)
Browser("首页").Page("会员登录").WebEdit("密码").Set DataTable("password", dtLocalSheet)
Browser("首页").Page("会员登录").WebEdit("请输入验证码").Set DataTable("verificationCode", dtLocalSheet)
Browser("首页").Page("会员登录").WebButton("登录").Click

if  Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").Exist(3)  Then
result= Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").GetROProperty("text")
Browser("首页").Dialog("来自网页的消息").WinButton("确定").Click
  else If Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").Exist (3)Then
result=Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").GetROProperty("text")
Browser("首页").Dialog("来自网页的消息").WinButton("确定").Click
else if Browser("首页").Page("会员登录").WebElement("欢迎登录1314    还没有1314账号？").Exist(3) Then
Browser("首页").Page("会员登录").WebElement("欢迎登录1314    还没有1314账号？").Output CheckPoint("欢迎登录1314    还没有1314账号？_3")
result=datatable("result",dtLocalSheet)
   else
result="登陆成功!"
End if
End if
End if
status=datatable("status",dtLocalSheet)
If result<>status Then
Reporter.ReportEvent micFail,"提示错误","实际的:"+result+"预期的:"+status+"不相同"
else
Reporter.ReportEvent micPass,"提示正确","实际的:"+result+"预期的:"+status+"相同"
End If

作者: TinaGao1219 时间: 2014-10-13 08:43
if Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").Exist(3)
else If Browser("首页").Dialog("来自网页的消息").Static("用户名、密码不正确！").Exist (3)
你这两句是一模一样的, 还有就是你跟了三个End if, 应该一个就够了

作者: TinaGao1219 时间: 2014-10-13 08:44
Dim istatus
你定义的是istatus, 后面用的是status

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)