外部调用QTP

外部调用QTP:

Dim qtApp
Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象
qtApp.Launch '启动 QuickTest
qtApp.Visible = True ' 使其可见
qtapp.Open "d:\Test" '打开相应的QTP测试脚本 
qtapp.Test.Run '运行测试脚本 
qtapp.Quit '退出QTP
Set qtapp=Nothing '释放

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

2.如果在QTP直接创建AOM对象是会报错的,因为QTP只允许有一个实例对象,当我们已经开启了一个QTP之后就不可以再创建另外一个QTP了,因此这个时候我们可以直接使用

Set qtapp = GETOBJECT("","quicktest.application")
qtapp.Visible = false

来对当前启动的QTP进行操作,当我们添加下图脚本后,我们点击运行后当前QTP就会自动隐藏,运行完后自动恢复可见.

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

3 weeks ago, this page was being read.

, ,

Subscribe to Comments