用场景恢复实现QTP测试集失败时的桌面截图

在调试QTP脚本过程中发现，无论是Qtp自带的运行报告还是TD提供的运行报告，都无法为错误定位提供很确切、直观的参考。比如，有时错误发生在点击“订单填写”的步骤，而运行报告给出的结果是无法找到点击“订单填写”步骤之后的订单填写界面对象的缺失。因此为了更好地保留“现场”，我们在场景恢复关闭进程函数之前，先调用桌面截图函数保留“案发现场”。desktop.CaptureBitmapfilename,Ture。

通常一个测试集中包含很多个测试用例，为了方便用例和截图的对应，要对截图的命名区分处理。麦兜兜想到两种方式：

一、返回错误发生时系统当前时间，如下所示：

DimFileName,TimeNow,ResPath

ResPath="D:\TestsResult\"

TimeNow=DotNetFactory.CreateInstance("System.DateTime").Now.ToString("ddMMyyHHmmss")

FileName=ResPath&"\"&TimeNow&".bmp"

desktop.CaptureBitmapfilename,True

二、从环境变量获取当前测试脚本的名称，如下所示：

DimFileName,ResPath

ResPath="D:\TestsResult\"

TestNameNow=environment.Value("TestName")

FileName=ResPath&"\"&TestNameNow&".bmp"

desktop.CaptureBitmapfilename,True

当然也可将二者结合。