51Testing软件测试论坛

标题: 有点儿启发 [打印本页]

---

作者: lovetest6    时间: 2005-5-17 11:47
标题: 有点儿启发
最近看到一段代码。

1. ' Close the QTBATCH
   
2. On Error Resume Next
   
3. strComputer = "."
   
4. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
   
5. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'QTBATCH.exe'")
   
6. For Each objProcess in colProcessList
   
7. objProcess.Terminate()
   
8. Next
   
9. 
   
10. ' Close the QTPro
    
11. On Error Resume Next
    
12. strComputer = "."
    
13. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
14. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'QTPro.exe'")
    
15. For Each objProcess in colProcessList
    
16. objProcess.Terminate()
    
17. Next

复制代码

得到些启发，
1，用命令行调用QTP比较不错，尤其适合做回归测试，
比如DailyBuild后的DailyTest.总之是些回归测试，配置一台服务器，
每次有新的变动，就录制/编写新的测试脚本。放到服务器上。
2，这代码写的没大仔细看，好像是打算关掉QTBatch，呵呵，
看来这人没有TD也不用MTM呵呵，竟然用QTBATCH也能玩得这么爽。
呵呵。真是不俗。估计用的QTP可能也是6.5的。
卖不起TD的只用QTP就能如此做法。
让我们这些各种都有破解的人真是汗颜啊。

[ Last edited by lovetest6 on 2005-5-17 at 12:17 ]

---

作者: QA_BAY    时间: 2005-5-17 13:16
不错.
写代码我喜欢!
可惜从来没有写过这么长的代码!

---

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

Powered by Discuz! X3.2