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

Dim b,c51Testing软件测试网#U6BpF;X^,J

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

For i=1 to ic

Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)51Testing软件测试网LE!kQ_r^*T

Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)51Testing软件测试网D-\ C6r/gG6[5zA6^p

Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click51Testing软件测试网 U}!\G5{'A'q:Y

Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click

a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony"))　

 51Testing软件测试网6r?%n%Fs,@9cl

b=abs(a)　

c=abs(DataTable("result", dtLocalSheet))51Testing软件测试网H'Y2F~\6D7l

If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致！"

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

End If　51Testing软件测试网gf-w9D+k [gI7@+@

Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click51Testing软件测试网T*XS)?Of-gw

Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click51Testing软件测试网0iw%Q
|RjV

DataTable.GetSheet("Action1").SetNextRow　51Testing软件测试网lLq2ng_&e3~q

Next51Testing软件测试网(K~uj%f1^M/Xis@