抓圖的 au3 _ F6capp_desttop

;Script Name F6capp_desttop
;Gets Screen HackMan

dim $sFileName
dim $saveDIR , $StartKey , $Endkey , $SaveFileFormat

;

; 修改區
; 開始快鍵
$StartKey = "{F6}"
; 結速快鍵
$Endkey = "{ESC}"

;存檔區
;存檔目錄
$saveDIR = @ScriptDir & "\capp\"
; 存檔格式 ;年月日_時分.jpg
$SaveFileFormat = @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & ".jpg"
; 修改區結束

; 主程式
if not FileExists ($saveDIR) then DirCreate ($saveDIR)
HotKeySet($StartKey, "PicFunc")
HotKeySet($Endkey, "ExitFunc")

While 1
sleep (300)
WEnd

Func PicFunc()
SEND("{PRINTSCREEN}")
Run("mspaint.exe")
WinWaitActive("[CLASS:MSPaintApp]")
WinSetState ( "[CLASS:MSPaintApp]", "", @SW_MAXIMIZE )
Send("!EP")
Send("P")
WinWaitActive("[CLASS:MSPaintApp]")
Send("!FA")
Send("!T")
Send("{DOWN}")
Send("{DOWN}")
Send("{ENTER}")
Send("!N")
$sFileName = $saveDIR & $SaveFileFormat
Send($sFileName)
Sleep(500)
Send("{ENTER}")
Sleep(500)
;winkill("$sFileName")
Winkill("[CLASS:MSPaintApp]", "")
EndFunc

Func ExitFunc()
Exit
EndFunc