我的地盘我做主!
博客:http://tester2test.cnblogs.com/
msn:win_soft@163.com
写段QTP脚本与大家一起分享
上一篇 /
下一篇 2008-05-16 14:36:06
/ 个人分类:性能测试
Dim b,c
+BpHn/M|0
ic=datatable.GetSheet("Action1").GetRowCount 51Testing软件测试网e&Xel sQ6x
For i=1 to ic
*O/P9ks#yD3W9@Y,p0
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)51Testing软件测试网:x^~O#wC;p
YMX
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)
c4y+M-V}6bm;h0
Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click
-Yl'K.IO n
}!J8I0
Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click
+[ HC_vVpUr]0
a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony")) 51Testing软件测试网{&\Bk5w&Xci)Y
)I)pT6E@9j0
b=abs(a) 51Testing软件测试网c1caf(I
c=abs(DataTable("result", dtLocalSheet))
FP:dkS:F0
If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致!"51Testing软件测试网2W
pn_}d
Else reporter.ReportEvent micFail ,"错误:","第"&i&"个用例实际执行结果与预期不一致!"51Testing软件测试网6\*Lvsq
V!H%r:I#u
End If
:i'uF;f*F/nB2q0
Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click51Testing软件测试网?Yp
|)A6X*W
u
Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click
zQII"JF[0
DataTable.GetSheet("Action1").SetNextRow
|h.BV;[ Jj+q0
Next51Testing软件测试网$Q/jd]r:B}_
*Wv`gxw$j$U051Testing软件测试网#uO|bU^y-q!|S6l@4v o-I5@e0j@7K
m)}\Y0Link URL:
http://www.cnblogs.com/tester2test/archive/2008/03/12/1101876.html
收藏
举报
TAG: