【QTP】截图操作

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

[vb]  view plain  copy

 print ?

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

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

[vb]  view plain  copy

 print ?

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

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

[vb]  view plain  copy

 print ?

1. QTP_Capture  

就行了。