|
发表于 2010-11-29 17:59:57
|
显示全部楼层
楼主,截图的时候就可以直接保存了啊,在我这里试的时候发现创建文件夹“我的文档\图片\”时 “图片” 两个字是乱码,不知道什么原因。
#Include <File.au3>
#Include <Array.au3>
#include <ScreenCapture.au3>
$Dir = @MyDocumentsDir & "\截图"
If FileExists($Dir) = 0 Then DirCreate($Dir)
For $i = 1 To 5
$FileList = _FileListToArray($Dir, @YEAR & @MON & @MDAY & "*.jpg")
If @Error = 1 Or @Error = 4 Then
$Num = 1
Else
$Num = UBound($FileList)
EndIf
_ScreenCapture_Capture($Dir & "\" & @YEAR & @MON & @MDAY & StringFormat("%02i", $Num) & ".jpg", 0, 0, 200, 200)
Next
ShellExecute($Dir) |
|