写段QTP脚本与大家一起分享-白红宇

Dim b,c

ic=datatable.GetSheet("Action1").GetRowCount

For i=1 to ic

Browser("

新浪邮箱").Page("

新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)

Browser("

新浪邮箱").Page("

新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)

Browser("

新浪邮箱").Page("

新浪邮箱").WebButton("

登

录").Click

Browser("

新浪邮箱").Page("

经典再现_

新浪邮箱").Link("

这里").Click

a = Browser("

新浪邮箱").Page("

经典再现_

新浪邮箱").Check (CheckPoint("jdzytony"))

b=abs(a)

c=abs(DataTable("result", dtLocalSheet))

If (b=c) Then reporter.ReportEvent micdone ,"

成功:","

执行与预期一致！"

Else reporter.ReportEvent micFail ,"

错误：","

第"&i&"

个用例实际执行结果与预期不一致！"

End If

Browser("

新浪邮箱").Page("

新浪邮箱_2").WebButton("

收邮件").Click

Browser("

新浪邮箱").Page("

新浪邮箱_2").Image("btQuit.gif").Click

DataTable.GetSheet("Action1").SetNextRow

本文转自 fish_yy 51CTO博客，原文链接：http://blog.51cto.com/tester2test/137614，如需转载请自行联系原作者