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

本文轉自 fish_yy 51CTO部落格，原文連結：http://blog.51cto.com/tester2test/137614，如需轉載請自行聯系原作者