自动启动QTP执行测试的vbs脚本！

skysolf

1. Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
   
2. Dim pDefColl 'As QuickTest.ParameterDefinitions ' Declare a Parameter Definitions collection
   
3. Dim pDef ' As QuickTest.ParameterDefinition ' Declare a ParameterDefinition object
   
4. Dim rtParams 'As QuickTest.Parameters ' Declare a Parameters collection
   
5. Dim rtParam ' As QuickTest.Parameter ' Declare a Parameter object
   
6. 'Dim cnt, Indx As Integer
   
7. 
   
8. Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
   
9. qtApp.Launch ' Start QuickTest
   
10. qtApp.Visible = True ' Make the QuickTest application visible
    
11. qtApp.Open "D:\Test1"  //该目录为用例的QTP文件保存文件夹
    
12. qtApp.Test.Run , True' Run the test with changed parameters.

复制代码

hsjzfling

补充一下，这个是QTP中的automation object model中的一点点内容，楼主贴的只是帮助中的一小部分代码，更多详情尽在帮助中~~
当然QTP中有几处Generate script的，点了之后也能生成这样的代码，都是对QTP中相关设置的保存~

xiaoyaoke

//该目录为用例的QTP文件保存文件夹
这句前面加“‘”标为注释...

three116

我将在我的 地址中增加完整的 东西
我已经写好了 改天 加进来  呵呵

hsjzfling

每个人的习惯不同，并且针对不同的被测对象和不同的需求，对QTP都会有不同的设置，所以只要知道这个东西是怎么回事就好了，真的弄个完整的过来也没多大意义——知道方法的人都会弄
在我正在设计、开发的框架中其实就有一点内容关于automation object model，用来载入框架默认的和user指定的各种设置，动态加载对象库也会用到这个～