以下代码是在QC里运行QTP来执行脚本过程,当执行过程中发现用例失败后就会自动截图,然后把用例返回到最初始的状态,模拟了场景恢复的机制 Class QCImageErrorCapture Dim qtpApp Sub Class_Initialize() Set qtpApp = CreateObject("QuickTest.Application") If qtpApp.CurrentDocumentType = "Test" Then qtpApp.Test.…
Post-Recovery Test Run Options Screen When you clear the Add another recovery operation check box in the Recovery Operation screen and click next, the Post-Recovery test run options screen opens. The Post-Recovery test run options specify how to cont…