12.08.21飞行网登录边界值及等价类测试(datatable使用、打印报告、截图等)

'---------------------------测试网站http://www.51690.com/home/login

'------执行代码请添加红字对象，同时设置qtp-file-settings-run-run one iteraton only

'---------------------------飞行网登录边界值及等价类测试,SHEET中所有数据均为不可登录数据
On error resume next '遇到报错继续执行
Dim sNo,cName,cPassWord,Fname,i
sNo = DataTable.GetSheet("Global").GetRowCount '获取A列行数
For i =1 to sNo
Fname = "C:\qtpLog\Pic\"& i &".png" '设置使用sheet中每行参数登录后截图所保存的文件名
DataTable.GetSheet("Global").SetCurrentRow(i) '激活行
cName = DataTable.GetSheet("Global").GetParameter("A") '取A列对应行的值并赋值
cPassWord = DataTable.GetSheet("Global").GetParameter("B") '取B列对应行的值并赋值
Browser("会员登录 - 飞行网【首选】").Page("会员登录 - 飞行网【首选】").WebEdit("UserName").Set cName
Browser("会员登录 - 飞行网【首选】").Page("会员登录 - 飞行网【首选】").WebEdit("Password").Set cPassWord
Browser("会员登录 - 飞行网【首选】").Page("会员登录 - 飞行网【首选】").WebButton("登 录").Click
'-----------------------------判断qtp执行时是否出错，并将错误号码及解释打印出来
If err.Number <> 0 Then
print  err.Number &"\"&err.Description
End If
print  i&"\"&cName & "\"&cPassWord
print "---------------------------------------------------"
Browser("会员登录 - 飞行网【首选】").Page("会员登录 - 飞行网【首选】").CaptureBitmap Fname,True '将每次执行后的截图保存，True为可覆盖
Next

#################################

有什么想法和建议可以反馈给我，我写的脚本都是经过编译执行通过的，你没执行成功一定是哪里有问题！！！

测试数据图要点击放大看；

1@1.com 123456
2a我 123456
  
1234567890123456789012345678901234567890@1.com 123456
1@1.com 12345
1@1.com 1234567890123456789
1861234567 12345678901234567890
18612345678 123456789012345678901
12345678901 123456

2012-8-21 12-03-00