QTP 自动货测试桌面程序-笔记-运行结果中添加截图

3种方法：

方法1：使用设置：SnapshotReportMode

 oldMode = Setting("SnapshotReportMode")

    Setting("SnapshotReportMode") = 0      '0 - always captures images.

    x = Window("window").Exist(0)               'Capture the window

    Setting("SnapshotReportMode") = oldMode

方法 2：配置：tools-options-run 

方法3 ：使用截图 Desktop.CaptureBitmap filename 绝对路径

'=============================================
'名称：QTP_Capture
'作用：截图
'参数：TestFor 要测试的内容
'函数调用实例：QTP_Capture("测试查询功能")
'=============================================
Function QTP_Capture(TestFor)
Dim datestamp,filename,ResPath
ResPath = Environment("ResultDir")'获取测试环境（这里取的是运行结果文件夹）
datestamp = Now() '当前时间
filename = Environment("TestName")&Environment("ActionName")&"_"&datestamp&".png"'获取当前测试名称+和时间作为图片名称，例如输出为：MinnovEMS_2013410 154751.png
filename = Replace(filename,"/","")
filename = Replace(filename,":","")
filename = ResPath & "" & filename
Desktop.CaptureBitmap filename,True
Reporter.ReportEvent micWarning,TestFor,"测试截屏",filename'使用警告标志，提醒测试员查询结果
End Function

1 Environment("ResultDir")'获取测试环境-这里取的是运行结果文件夹

2 Environment("TestName") '这里是测试项目名称

3 Environment("ActionName") '这里是每个测试文件的名称

4 Desktop.CaptureBitmap filename,True '这里是截图 filename 保存图片的绝对路径，true 覆盖同名文件

Desktop.CaptureBitmap Filename,[OverrideExisting]

5 Reporter.ReportEvent micWarning,TestFor,"测试截屏",filename '这里是将图片添加到报告文件中

Reporter.ReportEvent EventStatus, ReportStepName, Details [, ImageFilePath]

EventStatus = micPass; micFail; micDone; micWarning