51Testing软件测试论坛

标题: QTP测试登录界面出错 [打印本页]

作者: glh6648792 时间: 2010-8-31 11:48
标题: QTP测试登录界面出错
我是新手，测试登录界面的时候出错，代码如下：总是会弹出error2那个地方错误，在登录界面时，如果其中有一个为空是会弹出一种消息对话框，当用户名会密码错误时进入一个页面，弹出另一种消息对话框。请问哪里出错，谢谢！
Dim i
Dim expc
Dim fact
For i=1 to datatable.GetSheet("Action1").Getrowcount

Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebEdit("account").Set DataTable("username", dtLocalSheet)
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebButton("登录").Click
Browser("EasyCard商户管理后台--登录").Page("失败").WebElement("error2").Output CheckPoint("error2")
Browser("EasyCard商户管理后台--登录").Page("失败").Image("fh").Click
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebEdit("account").Set "sd"
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebButton("登录").Click
Browser("EasyCard商户管理后台--登录").Dialog("来自网页的消息").Static("密码不能为空,请正确输入! 如果您是新用户第一次登陆，请输入默认密码登录后,修改密码!").Output CheckPoint("密码不能为空,请正确输入! 如果您是新用户第一次登陆，请输入默认密码登录后,修改密码!")
Browser("EasyCard商户管理后台--登录").Dialog("来自网页的消息").WinButton("确定").Click
expc=datatable("outmsg",dtLocalSheet)
fact=datatable("expc",dtLocalSheet)
If expc<>fact Then
reporter.ReportEvent 1,"功能测试","预期值为："+expc+"实际值为："+fact
End If
datatable.GetSheet("Action1").setnextrow
Next
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebEdit("account").Set "czadmin"
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebEdit("password").SetSecure "4c7c722c11df18664126f61549fa3ab445ba"
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台--登录").WebButton("登录").Click
Browser("EasyCard商户管理后台--登录").Page("EasyCard商户管理后台").Link("退出系统").Click
Browser("EasyCard商户管理后台--登录").Dialog("来自网页的消息").WinButton("确定").Click

作者: TIB 时间: 2010-8-31 13:21
把SetSecure 改为Set

作者: glh6648792 时间: 2010-8-31 14:17
标题: 回复 2# 的帖子
应该不是这个问题了，我一运行就弹出错误，好像只能识别一种输出消息，不能识别两种对话框

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