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