【QTP】截图操作

在运行脚本的过程中，经常需要记录Log，其中，经常使用到的便是截图：
截图的方法很简单：

[vb] view plaincopyprint?

Desktop.CaptureBitmap "D:\截图\1.png", true

这样就是截图了，后面的true参数是用来判断当重复时是否覆盖的。
True：目录中存在1.png时，替换
False（default）：目录中存在1.png时，报错 

[vb] view plaincopyprint?

'=============================================
'名称：QTP_Capture
'作用：截图
'=============================================
Public Sub QTP_Capture()
    ‘如果不想每次都定义截图名称，也可以用下面的方式，保证文件名的唯一
    Desktop.CaptureBitmap "D:\截图\" & date & "_" & timer & ".png", true
End Sub

使用的时候，只要在需要进行截图的地方，加上一句：

[vb] view plaincopyprint?

QTP_Capture

就行了。