[转]AOM加载qtp插件

----原文出处：http://itinit.net/thread-80-1-1.html 

QTP为每一种类型的应用都设置了一个插件，所以在启动QTP时必须要选择与应用类型相关的插件，否则QTP将无法录制或者运行相对应的脚本，而且根据应用的实际情况，每个插件都有自己的属性可以设置来满足应用的需求。

  在这里写个例子示范一下，假设场景如下：
（1）待测试应用是一个web程序；
（2）首先判别web插件是否加载；
（3）如果没有加载则开始加载web插件；
（4）加载完成后，需要自动设置web相关的属性：
  (5)选择IE浏览器，输入网址：  http://www.itinit.net
  (6)在应用退出后同时停止脚本运行
  (7)页面访问超时时间为30s
好了以上是自动化场景的要求，现在利用vbscript应用程序编写的脚本如下：

Dim qtApp '定义一个对象变量
Dim arrTestAddins
Set qtApp = CreateObject("QuickTest.Application")   '创建QTP AOM Application对象

'获取一个脚本中的Addin信息
arrTestAddins = qtApp.GetAssociatedAddinsForTest("D:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Web订票")  '根据自己用例的保存位置选择一个web用例脚本

' 循环获取脚本集合中的addin对象
For Each testAddin In arrTestAddins
  If qtApp.Addins(testAddin).Name="Web" Then   '如果对象的名称为web
       If qtApp.Addins(testAddin).Status <> "Active" Then ' 对应的对象的状态是否为active
           qtApp.SetActiveAddins(qtApp.Addins(testAddin).Name,errorDescription) '如果不是则激活对应的addin      
        End If
   Exit For        ' Exit the loop
   End if
Next

qtApp.Launch   '启动QTP
qtApp.Open "D:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Web订票"   '打开脚本，根据自己用例的保存位置选择一个web用例脚本

'根据要求配置WEB各类属性
qtApp.Test.Settings.Launchers("Web").Active=True
qtApp.Test.Settings.Launchers("Web").Browser="IE"
qtApp.Test.Settings.Launchers("Web").Address=http://www.itinit.net
qtApp.Test.Settings.Launchers("Web").CloseOnExit=True
qtApp.Test.Settings.Web.BrowserNavigationTimeout=6000
qtApp.visible=True  

Set qtApp=Nothing

如果各位感兴趣的话可以自己复制一下脚本，运行一下。