QTP启动引擎的问题

ct_051

Dim qtApp
Dim qtTest
Dim qtResultsOpt
Set qtApp=CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible=True
qtApp.Options.Run.ImageCaptureForTestResults="ONError"
qtApp.Options.Run.RunMode="Fast"
qtApp.Open "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Test1",True
Set qtTest=qtApp.Test
qtTest.Settings.Run.OnError="NextStep"
Set qtResultsOpt=CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation="C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Test1\Res1"
qtTest.Run
'qtTest.Close
Set qtResultsOpt=Nothing
Set qtTest=Nothing
Set qtApp=Nothing


上面的代码，执行后我有几个疑惑，请大家指点下小弟。
1：qtResultsOpt.ResultsLocation="C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Test1\Res1"
执行结果不会保存在以上目录。
2：
Set qtResultsOpt=Nothing
Set qtTest=Nothing
Set qtApp=Nothing
以上代码的作用是什么？
3:若我想添加保存QTP当前配置，再执行上述对配置的修改，最后还原QTP配置的代码该如何写呢？

lyscser

qtp的配置都在options里面，你就再QTP里面敲代码好了
qtApp.Options加上一个“.”就会带出来各个参数，你先把这些参数取出来，然后保存
比如：

1. print "App.Options.DisableVORecognition                       =" App.Options.DisableVORecognition
   
2. print "App.Options.AutoGenerateWith                           =" App.Options.AutoGenerateWith
   
3. print "App.Options.WithGenerationLevel                        =" App.Options.WithGenerationLevel
   
4. print "App.Options.TimeToActivateWinAfterPoint                =" App.Options.TimeToActivateWinAfterPoint
   
5. print "App.Options.SaveLoadAndMonitorData                     =" App.Options.SaveLoadAndMonitorData
   
6. print "App.Options.Run.RunMode                                =" App.Options.Run.RunMode
   
7. print "App.Options.Run.ViewResults                            =" App.Options.Run.ViewResults
   
8. print "App.Options.Run.StepExecutionDelay                     =" App.Options.Run.StepExecutionDelay
   
9. print "App.Options.Run.MovieCaptureForTestResults             =" App.Options.Run.MovieCaptureForTestResults
   
10. print "App.Options.Web.AddToPageLoadTime                      =" App.Options.Web.AddToPageLoadTime
    
11. print "App.Options.Web.RecordCoordinates                      =" App.Options.Web.RecordCoordinates
    
12. print "App.Options.Web.RecordMouseDownAndUpAsClick            =" App.Options.Web.RecordMouseDownAndUpAsClick
    
13. print "App.Options.Web.RecordAllNavigations                   =" App.Options.Web.RecordAllNavigations
    
14. print "App.Options.Web.RecordByWinMouseEvents                 =" App.Options.Web.RecordByWinMouseEvents
    
15. print "App.Options.Web.BrowserCleanup                         =" App.Options.Web.BrowserCleanup
    
16. print "App.Options.Web.RunOnlyClick                           =" App.Options.Web.RunOnlyClick
    
17. print "App.Options.Web.RunMouseByEvents                       =" App.Options.Web.RunMouseByEvents
    
18. print "App.Options.Web.RunUsingSourceIndex                    =" App.Options.Web.RunUsingSourceIndex
    
19. print "App.Options.Web.EnableBrowserResize                    =" App.Options.Web.EnableBrowserResize
    
20. print "App.Options.Web.PageCreationMode                       =" App.Options.Web.PageCreationMode
    
21. print "App.Options.Web.CreatePageUsingUserData                =" App.Options.Web.CreatePageUsingUserData
    
22. print "App.Options.Web.CreatePageUsingNonUserData             =" App.Options.Web.CreatePageUsingNonUserData
    
23. print "App.Options.Web.CreatePageUsingAdditionalInfo          =" App.Options.Web.CreatePageUsingAdditionalInfo
    
24. print "App.Options.Web.FrameCreationMode                      =" App.Options.Web.FrameCreationMode
    
25. print "App.Options.Web.CreateFrameUsingUserData               =" App.Options.Web.CreateFrameUsingUserData
    
26. print "App.Options.Web.CreateFrameUsingNonUserData            =" App.Options.Web.CreateFrameUsingNonUserData
    
27. print "App.Options.Web.CreateFrameUsingAdditionalInfo         =" App.Options.Web.CreateFrameUsingAdditionalInfo
    
28. print "App.Options.WindowsApps.AttachedTextRadius             =" App.Options.WindowsApps.AttachedTextRadius
    
29. print "App.Options.WindowsApps.AttachedTextArea               =" App.Options.WindowsApps.AttachedTextArea
    
30. print "App.Options.WindowsApps.ExpandMenuToRetrieveProperties =" App.Options.WindowsApps.ExpandMenuToRetrieveProperties
    
31. print "App.Options.WindowsApps.NonUniqueListItemRecordMode    =" App.Options.WindowsApps.NonUniqueListItemRecordMode
    
32. print "App.Options.WindowsApps.RecordOwnerDrawnButtonAs       =" App.Options.WindowsApps.RecordOwnerDrawnButtonAs
    
33. print "App.Options.WindowsApps.ForceEnumChildWindows          =" App.Options.WindowsApps.ForceEnumChildWindows
    
34. print "App.Options.WindowsApps.ClickEditBeforeSetText         =" App.Options.WindowsApps.ClickEditBeforeSetText
    
35. print "App.Options.WindowsApps.VerifyMenuInitEvent            =" App.Options.WindowsApps.VerifyMenuInitEvent
    
36. print "App.Options.TextRecognitionOrder                       =" App.Options.TextRecognitionOrder
    
37. print "App.Options.TextRecognitionBlockType                   =" App.Options.TextRecognitionBlockType
    
38. print "App.Options.TextRecognitionLanguages                   =" App.Options.TextRecognitionLanguages

复制代码

然后再一项项把所有设置改回去

App.Options.TextRecognitionLanguages = *****
……

把所有项都用不同的参数保存它的变量也行，至于整体一次性保存，貌似只有安装目录下的“SaveRestoreSettings.exe”这个程序了，你可用QTP调一下试试

ct_051

回复 2# lyscser


您知道，保存QTP当前配置的代码该如何写么，以前好像有见过，在执行引擎前先保存，执行后再给他还原，避免原配置丢失

ct_051

回复 2# lyscser


    谢谢您，长知识了

lyscser

1.qtTest.Run qtResultsOpt，你少带了一个要保存测试结果的参数
2.对象使用完是要释放的，否则长时间占用或者以后的代码可能会因为重复的创建而出现异常