51Testing软件测试论坛

标题: 如何在一个Test中对Test自身进行操作？？ [打印本页]

作者: red_tea1980 时间: 2009-9-17 10:04
标题: 如何在一个Test中对Test自身进行操作？？
在QTP的测试工程中，怎样才能保存当前正在执行的Test？？

在QTP的示例中，提供了下面的代码来进行保存动作：
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application") 'Create Application object
qtApp.Launch ' start Quicktest
qtApp.Visible = true ' make it visible
qtApp.test.save ' save the Test
Set qtApp = Nothing ' relase object
但是跟我的要求不符合，我希望能够保存当前执行的Test。
不知道大家有什么好的方法没？？？

作者: hsjzfling 时间: 2009-9-17 10:49
在QTP执行过程中是不能对当前的QTP进程做任何操作的，要保存也只能在QTP脚本结束之后
另外，LZ这个要求有什么实际的意义么？

作者: aishifu1 时间: 2009-9-17 10:55
一个系统环境下不能同时开启2次QTP。所以楼主想法不通。
请LZ说出需求，为什么要保存当前正在执行的Test。说不定大家可以帮帮忙。

作者: red_tea1980 时间: 2009-9-17 11:38
回楼上的朋友：

主要是为了解决一个相对路径XML文件读取失败的问题。
这是我昨天发的帖子：
【在QTP中读取XML文件失败】
地址 http://bbs.51testing.com/viewthread.php?tid=170399

作者: hsjzfling 时间: 2009-9-17 15:29
就你这个问题本身而言，在VBS脚本中执行AOM代码就行了，能实现在执行Test前先保存下。
至于XML那个问题就是另外一回事了，应该有其它更好的解决办法。比如在Options->Folder中设置路径等

作者: red_tea1980 时间: 2009-9-17 16:20
麻烦楼上的朋友给出示例代码？？
AOM？

作者: hsjzfling 时间: 2009-9-17 16:31
你不是自己都贴出来了么。。。稍微改点就好了
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application") 'Create Application object
qtApp.Launch ' start Quicktest
qtApp.Visible = true ' make it visible
qtApp.Open <要执行的脚本名>, False
qtApp.test.save ' save the Test
qtApp.Test.Run
qtApp.test.close
Set qtApp = Nothing ' relase object

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)