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