我的地盘我做主!
博客:http://tester2test.cnblogs.com/
msn:win_soft@163.com
写段QTP脚本与大家一起分享
上一篇 /
下一篇 2008-07-24 17:00:37
/ 个人分类:其他
Dim b,c51Testing软件测试网}9Tk(d5h8E#W;F R
ic=datatable.GetSheet("Action1").GetRowCount
s%b|(Lq
]d0
For i=1 to ic51Testing软件测试网,l [bj Q6k)G
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)
m8`?!b
YW_5Km0
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)51Testing软件测试网s"R/R5K |6G tg
Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click
Q*i)q9| PVa0
Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click
Y/N ?r\x-Q1v0
a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony")) 51Testing软件测试网_VJ"qL7n
lsM/wMBx+z/J0
b=abs(a)
'q7N/Y
s0F0
c=abs(DataTable("result", dtLocalSheet))
YxDf"O.[JP c0
If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致!"
ZVDn7C9|6?9l0
Else reporter.ReportEvent micFail ,"错误:","第"&i&"个用例实际执行结果与预期不一致!"
J@NJzPM0
End If
/i(Od8w8Y5`"S.H;cNt*? r0
Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click51Testing软件测试网J0Y#HecX#i(D*`-CO
Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click51Testing软件测试网MB4OuAl+Z4Y s
DataTable.GetSheet("Action1").SetNextRow 51Testing软件测试网(L#ZG3~1W*v
Next51Testing软件测试网 v t^_5a,xA
51Testing软件测试网"_g$~7r|B*E ~
L:vmh'saP0[新闻]谷歌启动强大引擎 8月起全球营销成都51Testing软件测试网x!D;\D6jc"E51Testing软件测试网'y{L4R7P8MLink URL:
http://www.cnblogs.com/tester2test/archive/2008/03/12/1101876.html
收藏
举报
TAG: