QuickTest Professional 自动化对象模型

!kn`%t Iy
a0   正如使用 QuickTest 实现应用程序测试自动化一样，也可以使用 QuickTest Professional 自动化对象模型实现 QuickTest 操作自动化。 可以使用由 QuickTest 自动化对象模型公开的对象、方法和属性来编写程序，用以配置 QuickTest 选项和运行测试或业务组件，而不必使用 QuickTest 界面手动执行这些操作。51Testing软件测试网!p$gvn H/I(WAG

Q3uu9?j Ev0   自动化程序在以下情形特别有用：多次执行相同任务或就多个测试或组件执行相同任务；根据特定环境或应用程序的需要快速配置QuickTest。51Testing软件测试网4f(XE*A;h|/@T1l

aO!s*A$r$KI} ]0   其实要自动化运行QuickTest 相当简单,只需自己在电脑上建个vbs文件,完成后双击运行就可以实现了.下面给个最简单的配置QuickTest自动化启动,打开测试脚本,然后保存测试结果,然后自己关闭QuickTest程序的例子脚本.

dim qtApp  51Testing软件测试网Oei\H

dim qttest51Testing软件测试网!w%{:ZMtb@4\5~

set qtApp = Createobject("QuickTest.Application")   '创建 Application 对象51Testing软件测试网#^8`+A#u j*t/?

qtApp.launch   ' 启动

}t
^R/x z#f Mfa0qtApp.Options.Run.ViewResults = true51Testing软件测试网(J9yF;^)E_

qtApp.Visible = True  '可见51Testing软件测试网v@5M6B|,aH

qtApp.open "E:\Test1",true   '用只读的方法打开测试脚本51Testing软件测试网5Sm7M4H(` ^Xe,Vj)G.E

Set qtTest = qtApp.Test   '创建 Test 对象

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 创建 Run Results Options 对象

qtResultsOpt.ResultsLocation = "E:\Test1\Res1" ' 设置测试结果保存位置51Testing软件测试网o2L]2b
V)]G$U
O

}v,r['^ eAe1~nL0qtTest.run qtResultsOpt   '   执行测试

qtTest.close   ' 关闭测试51Testing软件测试网aV5C]vZ1q

qtApp.quit    '关闭QTP51Testing软件测试网K cP(I j\.lK,p+s

Set qtTest = Nothing ' 释放 Test 对象

set qtApp =nothing   '释放51Testing软件测试网w6N[5p?:g

.D3SVxG3p0有兴趣的可以自己再研究更深层次的配置运行,QTP中基本上大多数的配置都可以通过它提供的对象及其方法和属性来通过代码实现51Testing软件测试网7kEaSI8~z
51Testing软件测试网)p C F;p;g9YJ