请问高手 qtp 有自我关闭的命令吗

gunjack2008

请问高手 qtp 有自我关闭的命令吗？
是作为脚本执行的命令，执行到这个语句时，qtp就自动关闭，不知道能不能实现。请高手指点

CPC

从启动QTP－》执行测试脚本－》关闭QTP，这整个流程都是可以通过vbs脚本实现。

psruby

Dim qtApp as QuickTest.Application
Set qtApp = createobject("QuickTest.Application")
qtApp.Quit                  '关闭qtp

yhzmw

原帖由 psruby 于 2007-6-19 11:48 发表
Dim qtApp as QuickTest.Application
Set qtApp = createobject("QuickTest.Application")
qtApp.Quit                  '关闭qtp

不能运行
错误如图

winfood

仔细看看3楼的语句有点儿问题sdlkfj2

QTP提供了Automation对象以便从外部以自动化的方式控制它的运行。
如果是VSCript脚本，应该是：

1. 
   
2. Dim qtApp
   
3. Set qtApp = createobject("QuickTest.Application")
   
4. qtApp.Quit                  '关闭qtp
   

复制代码

VBScript中用Dim定义变量没有类型的声明的。

如果是VB，应该是

1. 
   
2. Dim qtApp as QuickTest.Application
   
3. qtApp = new QuickTest.Application
   
4. qtApp.Quit                  '关闭qtp
   

复制代码

前提是QTP的对象库加载到VB开发环境当中。