StopAndReRunQTP函数会检查flag是否存在于Setting中,如果不存在则停止QTP,此处Setting设置持续周期起到了关键作用,如果没有它则无法完成以上所实现的功能。
AsyncReRunQTP函数创建并执行了一个VBScript脚本,而此脚本会在运行时重新运行QTP,重运行脚本如下:
'创建QTP应用对象 Set qtpApp = CreateObject("QuickTest.Application") '等待测试停止 While qtpApp.Test.IsRunning Wend '运行测试 qtpApp.Test.Run ,False |
原文转自:http://www.uml.org.cn/Test/201307084.asp