;Requiers captdll.dll
#NoTrayIcon
HotKeySet("{PRINTSCREEN}""PrintScreen")
HotKeySet("^{PRINTSCREEN}","PrintActive")

While 1
    Sleep(100)
WEnd

Func PrintScreen()
    $path = @MyDocumentsDir & '\Screenshots\'
    DirCreate($path)
    $nr = 0;
    While FileExists($path & $nr & '.jpg') = 1
        $nr = $nr + 1
    WEnd
    $filename = $nr & '.jpg'
    DllCall("captdll.dll""int""CaptureScreen""str"$path & $filename"int", 85)
EndFunc

Func PrintActive()
    $path = @MyDocumentsDir & '\Screenshots\'
    DirCreate($path)
    $nr = 0;
    While FileExists($path & $nr & '.jpg') = 1
        $nr = $nr + 1
    WEnd
    $filename = $nr & '.jpg'
    $size = WinGetPos("")
    DllCall("captdll.dll""int""CaptureRegion""str"$path & $filename"int"$size[0]"int"$size[1]"int"$size[2]"int"$size[3]"int", 85)
EndFunc





   PREV    NEXT    

http://autoit.enestad.com
http://www.enestad.com