'创建QTP应用对象 Set qtpApp = CreateObject("QuickTest.Application") '等待测试停止 While qtpApp.Test.IsRunning Wend '运行测试 qtpApp.Test.Run ,False
原文转自:http://www.uml.org.cn/Test/201307084.asp