例一:51Testing软件测试网2beY.t X2hV,mQ*F8d

以下语句指示 QuickTest 选中 Itinerary网页上的所有复选框： ~C8^#f9wn+E?#X0       Set MyDescrīption = Descrīption.Create()51Testing软件测试网]$\M"C:Q1]C7mX+u        MyDescrīption("html tag").Value = "INPUT"51Testing软件测试网RB5B8K.gZ,dS'y9T$q        MyDescrīption("type").Value = "checkbox" *f z:Hd.Eb!L z+~.ZP0       Set Checkboxes = Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)51Testing软件测试网;tj:kCCA        NoOfChildObjs = Checkboxes.Count51Testing软件测试网*NvI9aq)_$p"c        For Counter=0 to NoOfChildObjs-1 %a aLf5[k4\0       Checkboxes(Counter).Set "ON" #fZs@qbCU0       Next51Testing软件测试网+{3On)RC:nsG

8P],U Y&Cb)`0      例二:51Testing软件测试网)w:k3Y_6Zhe
      目标如下：51Testing软件测试网]0Wvr\p
       1.   脚本需要处理成功和失败的用户的登陆
,R p:I ?H0R0       2.  数据驱动51Testing软件测试网%~H)ma] c-N:E'?c
      设计开发脚本如下：51Testing软件测试网l-N9I/Qh:j
      第一步录制脚本如下
-rrj9k8c"hS R4D7h;G0

Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "吕巍" n~kn~Z6y-a0       Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set "" 8m[7l:{*Uw![*T0       Browser("智能变电巡检仪系统 4.0").Page("Page").Syn51Testing软件测试网/s2p-r6O\O7D{        Browser("智能变电巡检仪系统 4.0").Close ^rPv'^`j6U3f0

51Testing软件测试网9o:Q&n,\\ B O8Y`
      以上为录制的正确的用户名,下边录制错误的用户名
;kS4r(cz0

Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"51Testing软件测试网8K!V$|4N,Pem ]qD        Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网_-b _%^CV^'P to

6r#Hp1i:TQR3Lo"p0      出现错误提示“该用户不存在”
+J
^9R]dFH0      第二步 增强脚本51Testing软件测试网5MKSx.s!q
      现在需要设计的是一套脚本驱动所有的测试数据，这样可以驱动所有的用例数据，qtp中提供了datatable。
qJ$C O {A*pI0      但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名，如何结合起来呢？
L-O0Pv6sy4t/Z&B#j0      这里我把datatable看作存放测试用例的地方，里面放入测试数据，还放入测试的预期结果。这样我的设计已经出现雏形了。
b,f-Cz
H"q2f0      我把datatable设计为三列51Testing软件测试网 r*Dc,_H M OEG X \

username password status51Testing软件测试网Feh?h7K       吕x #DCD5G/j Ssv0       xxx      xxxx   该用户不存在51Testing软件测试网U5|'Zyy6lGOR

?E [KKis+|0      第三列放入最后执行的结果,我设计的是空为成功登陆,如果有信息就用实际运行的结果和这一列对比.好了万事俱备只欠东风了51Testing软件测试网"v'U)]J7r;s a
      修改脚本如下：51Testing软件测试网y'^ CZ
[D4xuy)[

Dim iStatus NAm,L6@T l0       Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet) 1m Gky5?U.R0       Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set DataTable("password", dtLocalSheet) W#k5Mp&\,A0       iStatus = DataTable("status", dtLocalSheet) /rH _*L2I?5FJ `0       If  iStatus="" Then +fV4Z)ck0         Browser("智能变电巡检仪系统 4.0").Close JP{F2e'h0       End If )af.A]RS*_9P~#y0       If  iStatus="该用户不存在"   Then h,rc2a(^G Q r0            Reporter.ReportEvent micFail, "登陆", "登陆失败." .U-w[`'o ~-GQ[ ^"{u0       End If /}]uDx;uz0       Browser("智能变电巡检仪系统 4.0").Close K e$o*J]c4l4asJ1cK0

51Testing软件测试网,]4Ymn~g&O2z7q;\
      第三步，设置脚本运行过程51Testing软件测试网[-o4i:|+c
h;C
      打开tests-〉settings51Testing软件测试网%e5j2e5DvZAU O
      设置RUN TAB页面下中国IT实验室Datatable iterations中 Run On all rows51Testing软件测试网Qg#v S-jh*x;C*K
      这样就完成了整个脚本的设计工作，以上通过一个简单例子吧脚本的设计和软件的功能结合起来，达成脚本的设计效果。51Testing软件测试网v,q;?N%b o0N