QTP脚本例子汇总(一)

以下语句指示 QuickTest 选中 Itinerary 网页上的所有复选框：

Set MyDescrīption = Descrīption.Create()

MyDescrīption("html tag").Value = "INPUT"

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

Set Checkboxes = Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)

NoOfChildObjs = Checkboxes.Count

For Counter=0 to NoOfChildObjs-1

Checkboxes(Counter).Set "ON"

Next

例二:(来自51testing)

目标如下：
3C m,X2PR1286491.    脚本需要处理成功和失败的用户的登陆
u-d+P;K? H$}1286492.   数据驱动

设计开发脚本如下：

软件测试专业网站:51Testing软件测试网5Zfe.w@Gy
第一步录制脚本如下软件测试专业网站:51Testing软件测试网]b;Cq+A6ZW1Ij
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "吕巍"软件测试专业网站:51Testing软件测试网6Nu6pe RMB5G
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""软件测试专业网站:51Testing软件测试网"o"g2{2IO%UN
Browser("智能变电巡检仪系统 4.0").Page("Page").Syn软件测试专业网站:51Testing软件测试网 ` KT(?6g+xR|
Browser("智能变电巡检仪系统 4.0").Close

以上为录制的正确的用户名,下边录制错误的用户名软件测试专业网站:51Testing软件测试网4r
_UJ$n2J@"Q
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"
6g&C(I4KU"H7Eyt128649Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""
H2L.mCZ'p/lr128649出现错误提示“该用户不存在”

第二步 增强脚本

现在需要设计的是一套脚本驱动所有的测试数据，这样可以驱动所有的用例数据，qtp中提供了datatable。软件测试专业网站:51Testing软件测试网cWp*^2|
但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名，如何结合起来呢？软件测试专业网站:51Testing软件测试网` v3xIz1K&U
这里我把datatable看作存放测试用例的地方，里面放入测试数据，还放入测试的预期结果。这样我的设计已经出现雏形了。
[ D^#_6b'G_]128649我把datatable设计为三列

username  password status
&V TOgiJg9J128649吕x               软件测试专业网站:51Testing软件测试网k;p8xr(U"f)`\5Gx
xxx       xxxx     该用户不存在

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

修改脚本如下：
l'wN@U!GsE128649Dim iStatus

Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet)软件测试专业网站:51Testing软件测试网*l.} B!dyzb g#Z
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set DataTable("password", dtLocalSheet)软件测试专业网站:51Testing软件测试网@u/QC;P!j \
iStatus = DataTable("status", dtLocalSheet)

If   iStatus=""  Then软件测试专业网站:51Testing软件测试网hy:P1S%R2? @8Qt)m d&Q%^
  Browser("智能变电巡检仪系统 4.0").Close软件测试专业网站:51Testing软件测试网m.S}9b0B
End If

o/M7p}\)_~E8[128649If   iStatus="该用户不存在"    Then软件测试专业网站:51Testing软件测试网M-? ~_sJ,v
     Reporter.ReportEvent micFail, "登陆", "登陆失败."软件测试专业网站:51Testing软件测试网6](Lg v3C'r
End If

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

第三步，设置脚本运行过程

打开 tests-〉settings软件测试专业网站:51Testing软件测试网 M4F2Qn-r3k ]3R
设置RUN TAB页面下 Datatable iterations中 Run On all rows

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