写段QTP脚本与大家一起分享

Dim b,c

ic=datatable.GetSheet("Action1").GetRowCount　51Testing软件测试网l:R/L o`

For i=1 to ic

Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)51Testing软件测试网y.Bsy@.J

Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)51Testing软件测试网 G0}teC)@ ze;Y*|)a

Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click

Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click51Testing软件测试网bE3~0j o_ TP

a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony"))　51Testing软件测试网R.]_6DxD"XEU

 51Testing软件测试网J?'|'Sh

b=abs(a)　51Testing软件测试网`~+Gcc T.pO

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

If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致！"51Testing软件测试网0`QO-k:|5Q x"`

Else  reporter.ReportEvent micFail ,"错误：","第"&i&"个用例实际执行结果与预期不一致！"

End If　51Testing软件测试网:SCS,J] f+ak5I`

Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click

Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click51Testing软件测试网R`M&S2A C

DataTable.GetSheet("Action1").SetNextRow　

Next