用QTP测试：登录脚本求助！！！

marian · 发表于 2010-7-16 11:11:13

最近在学QTP，测试一个登录功能：先录制登录，然后设计了一个登录用例，放在本地xls表单中。
定义变量，把用户名密码参数化。。。。。。附脚本和测试结果，哪位大侠能帮帮小女子～。～？万分感谢了！！！
Dim outputvalue
Dim istatus
Dim i
For i=1 to datatable.GetSheet("登录订票网站").GetRowCount
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set DataTable("name",dtLocalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure DataTable("pwd",dtLocalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Object CheckPoint("Welcome: Mercury Tours")

outputvalue=DataTable("outmsg",dtLocalSheet)
istatus=DataTable("tatus",dtLocalSheet)

If outputvalue<>istatus Then reporter.ReportEvent 1,"登录测试","期望值："+istatus+"实际输出值："+outputvalue
else reporter.ReportEvent 0,"登录测试","OK"
End If
DataTable.GetSheet("Login").SetNextRow
Next

marian · 发表于 2010-7-16 11:12:51

真郁闷。。。谁帮帮我～～

marian · 发表于 2010-7-16 11:37:59

marian · 发表于 2010-7-16 11:38:15

skyzhu · 发表于 2010-7-16 11:41:46

SetSecure 换成 set
if xxx then 后面换行
else 后面换行

candyren · 发表于 2010-7-16 13:17:47

建议先把if.....else去掉找找原因，应该没有大问题！

marian · 发表于 2010-7-16 13:53:24

哎。。。then else本来是换行写的，结果说我脚本里缺少then。。。。。。。。。。

ermine · 发表于 2010-7-16 21:54:10

If outputvalue<>istatus Then reporter.ReportEvent 1,"登录测试","期望值："+istatus+"实际输出值："+outputvalue
else reporter.ReportEvent 0,"登录测试","OK"
End If
改为
If outputvalue<>istatus Then
reporter.ReportEvent 1,"登录测试","期望值："+istatus+"实际输出值："+outputvalue
else reporter.ReportEvent 0,"登录测试","OK"
End If
试试

taoxianhua89 · 发表于 2010-7-21 11:28:10

If outputvalue<>istatus Then
reporter.ReportEvent 1,"登录测试","期望值："+istatus+"实际输出值："+outputvalue
else
reporter.ReportEvent 0,"登录测试","OK"
End If

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 用QTP测试：登录脚本求助！！！

本帖子中包含更多资源

相关帖子

建议

回复 5# 的帖子

站长推荐 /1