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

[vb] view plaincopyprint?

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

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

[vb] view plaincopyprint?

  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 plaincopyprint?

  1. QTP_Capture  

就行了。