QTP运行发生错误是截屏并显示到结果文件中

Function capture_desktop(Object, Method, Arguments, retVal) Dim datestamp Dim filename datestamp = Now() filename = Environment("TestName")&"_"&Environment("ActionName")&"_"&datestamp&".png" filename = Replace(filename,"/","") filename = Replace(filename,":","") filename = "C:/QTP_ScreenShots"&"/"&filename Desktop.CaptureBitmap filename,true Reporter.ReportEvent micFail,"image","<<img src="" & filename & "" mce_src="" & filename & "">" End Function

 

将此函数加入Recovery Scenario中，Trigger选择on any error。即可实现运行发生错误是截屏，并且显示到结果文件中。而且可以方便的查看错误信息。

 

PS：小技巧，qtp10中新增功能，可以从结果文件中按CTRL+J，跳入当前选中结果步骤对应的QTP代码行。 呵呵，挺好用。