大家好,我是一个新手,有一个简单问题请教,希望有高手指点下!!

ddpl2004

刚刚装了QTP9.0 可以录制脚本,但本人想能通过外部程序,如VBS,VB,VC等程序调用执行自己录制的脚本,请问有什么方法,如何操作,希望各位指点!!

hsjzfling

可以使用QTP的automation object model(在帮助文档中搜索下就可以了)
不过建议还是先把QTP的其它相关基础掌握牢一点再弄这个吧~不然意义不太大

ddpl2004

好的,谢谢!! 随便问一问:automation object model 有没有中文版!!!看ENGLISH比较吃力!!!

hsjzfling

看QTP8.2的中文帮助就好了，论坛中有的
顺便补充一句，vbs也不能让你直接执行录制的Case，还是要先通过vbs启动QTP的

ddpl2004

但我在网上找到一些定时执行QTP的VBS 脚本.但不知如何操作

kevin_swpi

对于一些共用的、常用的 函数 写在VBS文件里面
然后在QTP中调用就可以了

比如你现在有一个VBS文件test.vbs  里面有一个公共函数 Test(a,b)
那么你可以通过如下几中方式来进行调用
1:
在testing setting -- Resources将test.vbs添加进去,然后直接在你需要的地方调用Test(a,b)就可以了

2:
ExecuteFile("c:\test.vbs")  //路径
CALL Test(a,b)

hsjzfling

楼上理解楼主的问题和偶理解的有点差异啊～
楼上回答的是如何调用VBS中的Function，而貌似楼主的问题是如何通过外部代码运行QTP录制的Test吧～

hsjzfling

看看人家代码中的注释吧，或者在你下载的地方应该也会有相关的注释的
也可以把代码在这里贴出来看看

hsjzfling

看看人家代码中的注释吧，或者在你下载的地方应该也会有相关的注释的
也可以把代码在这里贴出来看看

ddpl2004

http://blog.csdn.net/aken_wang/archive/2007/03/29/1545550.aspx
在网上找!!


如何通过计划任务调用QuickTest测试脚本     




我们可以编写一个Vbs脚本，直接在Windows平台下直接运行调用qtp的测试脚本，也可以将这个脚本添加到计划任务中，可以定时执行。

脚本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim qtApp
Dim qtTest
Dim qtResultsOpt

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "C:\QuickTest Professional\tests\test1\test1.usr", True

Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "C:\QuickTest Professional\tests\test1\"
qtTest.Run

Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

作者：
        王凯，网名：aken，Testage.net成员，多年的软件开发、软件测试和测试培训经验。精通软件测试过程、软件测试技术、自动化测试技术、性能测试技术和测试团队管理。熟悉多种测试工具应用，并开发过多种Web应用的测试工具。曾组织和参与嵌入式Linux、企业管理系统和大型网站等系统的测试工作

junlingliu

楼上太牛了!

hsjzfling

“也可以将这个脚本添加到计划任务中，可以定时执行。”
定时执行是这个意思。。。。。。

而代码就是我在2楼提到的automation object model，而你贴的那串代码的作用就是启动QTP，然后将Test的On Error设置为NextStep(相当于在代码的最开头加了个On Error Resume Next)。

如果楼主是刚接触QTP，建议你先不要花精力在这个上面，还是先学好更基础的一些东东～