QTP脚本例子汇总(一)

以下语句指示 QuickTest 选中 Itinerary 网页上的所有复选框：51Testing软件测试网?*}A"X0jglg9Ix

Set MyDescrīption = Descrīption.Create()51Testing软件测试网}1Id1ds

MyDescrīption("html tag").Value = "INPUT"51Testing软件测试网 k%W:F'r$FE

MyDescrīption("type").Value = "checkbox"

Set Checkboxes = Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)51Testing软件测试网1lE4r2_vT

NoOfChildObjs = Checkboxes.Count

For Counter=0 to NoOfChildObjs-151Testing软件测试网+t-V-`-t s

Checkboxes(Counter).Set "ON"51Testing软件测试网2NL^!zxk5c

Next

例二:(来自51testing)51Testing软件测试网
gM-S,C@6NO8e2|X

目标如下：51Testing软件测试网P"ER1hE/w!Z~ H!G
1.    脚本需要处理成功和失败的用户的登陆51Testing软件测试网V
X!BKDt
2.   数据驱动

设计开发脚本如下：

1W8L~!q&doQ0第一步录制脚本如下51Testing软件测试网"x9mgY
yL!B
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "吕巍"
1aG*t2`O6K0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网SS,S ]5_
l.d"L9w
Browser("智能变电巡检仪系统 4.0").Page("Page").Syn51Testing软件测试网!t$tL\ e
Browser("智能变电巡检仪系统 4.0").Close

1gy)Z(pe'a+iV0以上为录制的正确的用户名,下边录制错误的用户名
0YPdp#{1}V0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"51Testing软件测试网9lFpL3o
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网(n(W)O,z5B'~4~ g
出现错误提示“该用户不存在”51Testing软件测试网F VkoA2@!?*o

+Rs6TgU9gsT'L0第二步 增强脚本51Testing软件测试网.n~.@Br

现在需要设计的是一套脚本驱动所有的测试数据，这样可以驱动所有的用例数据，qtp中提供了datatable。
wE9{\%Dm!y0但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名，如何结合起来呢？51Testing软件测试网#c*D*| ?P{I
这里我把datatable看作存放测试用例的地方，里面放入测试数据，还放入测试的预期结果。这样我的设计已经出现雏形了。
hX0?+?%GD,N AI/[D0我把datatable设计为三列

username  password status
u'F#c0W9u0吕x               
Ig,^L~X0xxx       xxxx     该用户不存在51Testing软件测试网0Z2qmne,ob|mu

y?"bReT,^c0第三列放入最后执行的结果,我设计的是空为成功登陆,如果有信息就用实际运行的结果和这一列对比.好了万事俱备只欠东风了

BT%ENN|:D0修改脚本如下：
2w&v0f9hS3D0Dim iStatus51Testing软件测试网&V^Mr#b

o#Tm6v-X8A;J5[r0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet)
-K&X(puH#I-t X2R0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set DataTable("password", dtLocalSheet)
| }{?L{-^,@`7^3m0iStatus = DataTable("status", dtLocalSheet)

$V3L3l+wC1r-K3s!N8E4C2W E0If   iStatus=""  Then51Testing软件测试网1[!kps%N[G
  Browser("智能变电巡检仪系统 4.0").Close51Testing软件测试网QFw
CK0Lyq
End If

51Testing软件测试网,~MWD5Qf
If   iStatus="该用户不存在"    Then51Testing软件测试网p
}(Cb8pZRG;f
     Reporter.ReportEvent micFail, "登陆", "登陆失败."51Testing软件测试网r }Edd1tN!I2|3QO
End If51Testing软件测试网3?9~-]#i*\o"n,f*A

Browser("智能变电巡检仪系统 4.0").Close

第三步，设置脚本运行过程51Testing软件测试网M9f7_zixSw;`

\.}!SOG{ ?A0打开 tests-〉settings51Testing软件测试网.S)HC1F4vp*?
设置RUN TAB页面下 Datatable iterations中 Run On all rows51Testing软件测试网E!e E^[ d

这样就完成了整个脚本的设计工作，以上通过一个简单例子吧脚本的设计和软件的功能结合起来，达成脚本的设计效果。