对于webelement报错的QTP测试,怎么做?

jing1578

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

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

TinaGao1219

Dim  istatus
你定义的是istatus, 后面用的是status