|
- Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
- Dim pDefColl 'As QuickTest.ParameterDefinitions ' Declare a Parameter Definitions collection
- Dim pDef ' As QuickTest.ParameterDefinition ' Declare a ParameterDefinition object
- Dim rtParams 'As QuickTest.Parameters ' Declare a Parameters collection
- Dim rtParam ' As QuickTest.Parameter ' Declare a Parameter object
- 'Dim cnt, Indx As Integer
- Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
- qtApp.Launch ' Start QuickTest
- qtApp.Visible = True ' Make the QuickTest application visible
- qtApp.Open "D:\Test1" //该目录为用例的QTP文件保存文件夹
- qtApp.Test.Run , True' Run the test with changed parameters.
复制代码 |
|