Automation Object

QTP 自动化对象模型

QTP提供了一个COM接口，允许自动化QTP本身，它能够用来写代码来执行任务

像启动QTP，配置QTP，运行脚本等等。QTP提供了一个“quicktest automation reference”解释了所有的QTPAOM所支持的对象，属性和方法

问题18-1 我们如何使用AOM去运行一个QTP测试用例

'创建一个QTP应用程序实例

Set qtpApp=CreateObject("QuickTest.Application")

'启动QTP

qtpApp.Launch

'使QTP可见

qtpApp.Visible=true

'打开一个脚本

qtpApp.open "D:\cora\QTP练习\bbs.ltesting\测试脚本\联系方式",true

'运行脚本

qtpApp.Test.run

'完成以后结束脚本，结束QTP

qtpApp.close

Set qtpApp=nothing

注意，在本章的余下部分将我们会使用qtpApp对象

问题18-2 我们如何使用AOM去改变测试用例的开始和结束的迭代数

Set qtpApp=CreateObject("QuickTest.Application")

'启动QTP

qtpApp.Launch

'使QTP可见

qtpApp.Visible=true

'打开一个脚本

qtpApp.open "D:\cora\QTP练习\bbs.ltesting\测试脚本\Test1",true

'运行迭代5到迭代9

qtpApp.Test.Settings.run.iterationMode="rngiterations"

qtpApp.Test.Settings.run.StartIteration=5

qtpApp.Test.Settings.run.EndIteration=9

qtpApp.Test.Settings.run.OnError="stop" '如果遇到错误就结束运行

'运行脚本

qtpApp.Test.Run

'检查测试用例全部状态

msgbox qtpApp.Test.LastRunResults.status

'完成以后结束脚本，结束QTP

qtpApp.Close

Set qtpApp=nothing

传参数到测试用例

就像可以传参数给action，我们也可以传参给测试用例，我们使用file-setting-parameters来来指定测试参数，如图18-1所示

使用测试参数

'检查测试参数

If testArgs("InputDataFile")<>"" Then

Datatable.Import testArgs("InputDataFile")

End If

 testArgs("OutputData")="this is the output"

注意：输入和输出参数显示在 test result summary里边

传输测试参数

有两种方法向测试用例传输参数

第一种方法是当我们运行测试用例的时候，在“input parameters”选项卡中指定参数。如图18-2所示

第二种方法是使用QTP的AOM并且传输参数，如下例所表示

'获取参数集合

Set TestArgs=qtpApp.test.ParameterDefinitions.GetParameters()

'添加输入参数

TestArgs.item("InputDataFile").value="C:\a.xls"

‘使用参数运行测试 

qtpApp.test.run ,,TestArgs

'检查输出参数

Msgbox TestArgs.item("OutputData").value

问题 18-3 我们如何使用AOM在远程启动QTP

我们可以在任何可连接的并且安装了QTP的远程机子上运行QTP,2342

'远程IP

Const remoteMachineIp="127.2.3.4"

'在远程机子上创建QTP实例

Set qtpApp=CreateObject("QuickTest.Application",remoteMachineIP)

我们现在使用qtpApp对象所做的任何操作会在远程机子上执行

注意：远程机器上的tools options->run(选项卡)保证复选框“allow other mercury products..”要被选中