AOM

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

AOM就是一个可以自动化QTP的自动化对象模型，它可以对QTP的进行自动化配置操作以及QTP的运行回放进行自动化等等功能。

最简单的创建AOM的例子：

Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
'Start QuickTest
qtApp.Visible = True

C#等也都能够调用AOM来自动化QTP，这是因为QTP安装程序中已经注册了一个核心DLL文件的COM，这个DLL就是在安装文件夹下的BIN目录下:QTObjectModel.dll

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

我们在这里使用VBSEDIT工具

1、首先在这里引用QTObjectModel.dll

引用方法：

TOOLS - REFERENCES - add

在PROG ID中输入  QUICKTEST.APPLICATION

在TYPELIB PATH中找到这个dll的路径，位于安装路径的BIN目录下

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

当创建好AOM对象的同时也可以在对象浏览器中看到这个DLL下的所有方法和属性

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

1. Set qtapp=CreateObject("quicktest.application")
2. '创建对象
3. qtapp.Launch
4. '启动
5. QTPqtapp.Visible=True
6. '设置为可见
7. qtapp.Open "d:/Test"
8. '打开相应的QTP测试脚本
9. qtapp.Test.Run
10. '运行测试脚本
11. qtapp.Quit
12. '退出QTP
13. Set qtapp=Nothing
14. '释放

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

 注意事项:

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

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