【QTP系列讲座 11】 == AOM应用（一） QuickTest Automation ==

这一章的内容网51Testing软件测试网7j3fJk`3}

 51Testing软件测试网*F,D$DZ!V-~!b%W@;j

SR xAo#j4c-DBd}(I0 51Testing软件测试网{.?et$X:f4o P

vLR'Sp?r.Pj0首先介绍一下什么是AOM

a(I/e.C
\#d5Ix0t1P T0 

• AOM ----  Automation Object Model （自动化对象模型）

 51Testing软件测试网-d GoS4CL `T%l

简单的说AOM就是一个可以自动化QTP的自动化对象模型，它可以对QTP的进行自动化配置操作以及QTP的运行回放进行自动化等等功能。51Testing软件测试网*wkb$b*R?*U

rx1ClhQ Eu
NW0 

U~,aG:^7~+~0下面就来看一个最简单的创建AOM的例子：51Testing软件测试网0Sc@\vJ

 51Testing软件测试网g$U6I#`ue;c

Dim qtApp Set qtApp = CreateObject("QuickTest.Application") ' 创建对象 qtApp.Launch 'Start QuickTest qtApp.Visible = True ' 设置为可见 

$P XFRD u;O"T9R?0 51Testing软件测试网#|8o.O&i/b,v

TW*g.m7q0将以上代码保存为VBS后缀格式的文件后，双击运行即可自动启动QTP应用程序51Testing软件测试网\,PN-n}M-L{

以上代码只是VBScript的调用方式，其实我们还可以有很多种方式去调用QTP的AOM

 51Testing软件测试网9PT"Z;fGo|

VB:51Testing软件测试网Q {2ER%W%HV

Dim qtApp As QuickTest.Application ' 申明AOM对象 Set qtApp = New QuickTest.Application ' 创建AOM对象 qtApp.Launch ' 启动QTP qtApp.Visible = True ' 设置为可见51Testing软件测试网["T,Z0]SB^

C#51Testing软件测试网*ngp.E AXz!tP

QuickTest.Application app = new QuickTest.Application(); // 创建QTP对象 app.Launch(); // 启动QTP app.Visible =true; // 让QTP可见

l:a0j4^U.A:ho
C4N0JavaScript.:

var qtApp = new ActiveXObject("QuickTest.Application"); // 创建AOM对象 qtApp.Launch(); // 启动QTP qtApp.Visible = true // 设置为可见51Testing软件测试网{r5tsx%Mid

6LRRO!d v'bN [5b`0 

这里就引发出了一个问题，为什么那么多语言都能够调用AOM来自动化QTP，这是因为QTP安装程序中已经注册了一个核心DLL文件的COM，这个DLL就是在安装文件夹下的BIN目录下:QTObjectModel.dll

下面我们就来简单的完成一个启动QTP--》打开脚本--》回放 这样的一个实例

l'd-g(y0g051Testing软件测试网{Ht3o1x
a2[

我们在这里使用VBSEDIT工具51Testing软件测试网Op/Q)r)x*S&c

!X7omO3@_&V;_0 51Testing软件测试网@:q~R~:L$m u

&lM8Jx*hX!V01、首先在这里引用QTObjectModel.dll51Testing软件测试网eb4C?%Uj-G B

     引用方法：

F K;v6X6UU5J%tF0     TOOLS - REFERENCES - add  

D\N2TM0i0     在PROG ID中输入  QUICKTEST.APPLICATION

     在TYPELIB PATH中找到这个dll的路径，位于安装路径的BIN目录下51Testing软件测试网Uc:uCp5N@7q,]

;BF f'[7a$n ]D[0 51Testing软件测试网nD\#n$x

2、在引用完DLL后，就可以创建AOM对象，并且会有相应的代码提示

!t;C&{t't8q(D0 当创建好AOM对象的同时也可以在对象浏览器中看到这个DLL下的所有方法和属性51Testing软件测试网~.o}_%Y

*q2A6Z"X D9k|051Testing软件测试网Q9f sB$zF4]g&E

7|-?6~Bd Iy(n0 51Testing软件测试网6|4En9Bct'z

@5V1wlQ0D+g~r03、完成以下代码之后，这样一个简单的从启动QTP、打开测试脚本、运行回放、关闭QTP的整个自动化QTP的流程就完成了

 Set qtapp=CreateObject("quicktest.application") '创建对象 qtapp.Launch '启动QTP qtapp.Visible=True '设置为可见 qtapp.Open "d:\Test" '打开相应的QTP测试脚本 qtapp.Test.Run '运行测试脚本 qtapp.Quit '退出QTP Set qtapp=Nothing '释放

 51Testing软件测试网 @O k7K,r

4.当我们还需要对QTP的设置进行自动化时，由于QTP的设置较多，一个个写的话会很繁琐，因此我们可以先在QTP里设置好，然后直接在QTP的setting和option选项中点击generate scripting进行导出，这样能去我们很多的精力来写代码。

 注意事项:51Testing软件测试网OC~(QH6O%|6V@A)B

.p t{GQj6U%F(Z:C0

#\8el-H"P7_%W01.执行以上代码时，系统多出一个QTAutomationAgent.exe的进程，此进程在运行完以上代码后会自动关闭,但是需要注意的是，当我们在调试代码或者是做非法中止以上代码而为能使以上代码执行到最后完毕的话，此进程不会自动关闭，这样就会导致我们第二次创建AOM对象时报错，因此大家如果在调试此代码时遇到“远程过程调用失败”的类似错误提示，就可以试试kill掉QTAutomationAgent.exe这个进程，然后重新调试下代码就ok了。51Testing软件测试网8z_h:BxQ

51Testing软件测试网 g"b(y[6I
b!M

2.如果在QTP直接创建AOM对象是会报错的，因为QTP只允许有一个实例对象，当我们已经开启了一个QTP之后就不可以再创建另外一个QTP了，因此这个时候我们可以直接使用GETOBJECT("","quicktest.application")来对当前启动的QTP进行操作,当我们添加下图脚本后，我们点击运行后当前QTP就会自动隐藏，运行完后自动恢复可见.

 51Testing软件测试网J8Qhq k!G

 51Testing软件测试网7u/lH6ZrI#K+O

 下一章中主要会讲解：51Testing软件测试网~8cg ]&\/@V E;s

Ic-_ ~ih ej q0 

    【QTP系列讲座 12】 == AOM应用（二） Object Repository Automation ==

• Object Repository Automation
• ObjectRepositoryUtil Object
• TOCollection Object

m*bUAlH{0