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

轉載于:https://blog.51cto.com/tester2test/137614

總結

以上是生活随笔為你收集整理的写段QTP脚本与大家一起分享的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。