写段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 　

Next