紧急求助~！关于QuickTest Automation 的问题。。

wugecat

我想通过vbs调用QTP并且实现保存执行的录像。。在帮助中查到object.MovieCaptureForTestResults。。可是为什么我吧他的例子直接拷贝过来，执行时在qtApp.Options.Run.MovieCaptureForTestResults = "OnWarning"一行会报“对象不支持此属性和方法”的？？

1. Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
   
2. 
   
3. Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
   
4. 
   
5. Dim qtMovieOpts 'As QuickTest.ScreenRecorderOptions ' Declare a Run Results Options object variable
   
6. 
   
7. Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
   
8. 
   
9. 
   
10. 
    
11. Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
    
12. 
    
13. qtApp.Launch ' Start QuickTest
    
14. 
    
15. qtApp.Visible = True ' Make the QuickTest application visible
    
16. 
    
17. 
    
18. 
    
19. ' Set QuickTest movie options
    
20. 
    
21. qtApp.Options.Run.MovieCaptureForTestResults = "OnWarning" 'Set QuickTest to capture movie segments of each error and warning
    
22. 
    
23. qtApp.Options.Run.SaveMovieOfEntireRun = "FALSE" 'Save only the movie segements that lead up to an error or warning
    
24. 
    
25. qtApp.Options.Run.MovieSegmentSize = "4000" 'Set each movie segment to be a maximum of 4MB.
    
26. 
    
27. 
    
28. 
    
29. 
    
30. 
    
31. Set qtMovieOpts = qtApp.Options.Run.ScreenRecorder ' Create a Screen Recorder Options object
    
32. 
    
33. 
    
34. 
    
35. 'Set movie recording preferences to minimize the movie file size
    
36. 
    
37. qtMovieOpts.DeactivateShowWindowContents = True
    
38. 
    
39. qtMovieOpts.RecordSound = False
    
40. 
    
41. qtMovieOpts.SetPlainWallpaper = True
    
42. 
    
43. 
    
44. 
    
45. 
    
46. 
    
47. qtApp.Open "C:\Tests\Test1", True ' Open a test in read-only mode
    
48. 
    
49. 
    
50. 
    
51. ' set run settings for the test
    
52. 
    
53. Set qtTest = qtApp.Test
    
54. 
    
55. qtTest.Settings.Run.IterationMode = "oneIteration" ' Run one iteration of the test
    
56. 
    
57. qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when an error occurs
    
58. 
    
59. 
    
60. 
    
61. Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
    
62. 
    
63. qtResultsOpt.ResultsLocation = "C:\Tests\Test1\Res1" ' Set the results location
    
64. 
    
65. 
    
66. 
    
67. qtTest.Run qtResultsOpt ' Run the test and record a movie of the run.
    
68. 
    
69. 
    
70. 
    
71. qtTest.Close ' Close the test
    
72. 
    
73. 
    
74. 
    
75. Set qtResultsOpt = Nothing ' Release the Run Results Options object
    
76. 
    
77. Set qtTest = Nothing ' Release the Test object
    
78. 
    
79. Set qtApp = Nothing ' Release the Application object
    

复制代码

wugecat

up

wugecat

up

medoraemon

静待佳音