【seagull1985-QTP】windows下任务调度方式启动QTP

seagull1985

windows下任务调度方式启动QTP

1. [hide]'==========================================================================
   
2. ' NAME: Start QTP
   
3. ' UPDATE AUTHOR: seagull1985
   
4. ' DATE  : 2013-07-11
   
5. ' COMMENT:  
   
6. '==========================================================================
   
7. Dim qtpApp
   
8. 
   
9. '创建QTP实例
   
10. Set qtpApp = CreateObject("QuickTest.Application")
    
11. '启动QTP实例
    
12. qtpApp.Launch
    
13. qtpApp.Visible = true
    
14. '打开相应的QTP脚本（如脚本为保存在D盘的Test1）
    
15. qtpApp.Open "D:\automation\SD_script\Script\SDS_Script"
    
16. Set qtpTest= qtpApp.Test
    
17. Set objTestRecovery = qtpApp.Test.Settings.Recovery
    
18. '设置QTP存储报告的目录
    
19. Set qtpResultsOpt = CreateObject("QuickTest.RunResultsOptions")
    
20. '运行QTP
    
21. qtpTest.Run qtpResultsOpt
    
22. '运行完毕，退出脚本
    
23. qtpTest.Close
    
24. '测试任务结束后，退出QTP实例
    
25. qtpApp.quit
    
26. Set qtpApp = Nothing[/hide]

复制代码

赵佳乐SMILE

棒棒哒