ScreenCap and save

[Mast3rpyr0]

I made this for someone on RentACoder but they declined my bid so guess ill post it here.

PrnScr will take a screenshot and save it in C:\Program Files\ScreenCap with the date and time as the name. It will then add the complete path to the image to the clipboard.

Esc will close the program.

#Include <A3LClipBoard.au3>
#Include <A3LScreenCap.au3>

HotKeySet("{PRINTSCREEN}", "PicFunc")
HotKeySet("{ESC}", "ExitFunc")

SplashTextOn("ScreenCap", "Starting ScreenCap...", 200, 50)
Sleep(1000)
SplashOff()

While 1
WEnd
Func PicFunc()
    _Clip_Empty()
    $sFileName = @ProgramFilesDir & "\ScreenCap\Cap_" & @MON & @MDAY & @HOUR & @MIN & @SEC & ".bmp"
    _ScreenCap_Capture($sFileName)
    _Clip_SetData($sFileName)
    Sleep(100)
EndFunc

Func ExitFunc()
    Exit
EndFunc

Edited July 3, 2007 by Mast3rpyr0

[lod3n]

What do you think of RentACoder?

[Mast3rpyr0]

Pretty easy money unless you find picky buyers.

[idusy]

#Include <GUIConstants.au3>

???

[Mast3rpyr0]

probably not needed but i put it in all my programs. or do you not know what tha means?

[GEOSoft]

probably not needed but i put it in all my programs. or do you not know what tha means?

Definitly not needed here gecause you don't have a GUI therefore you have no GUI Constants to include. I never include that file (or any of the constants files) anyway. Just use the value of the constant.

[idusy]

Definitly not needed here gecause you don't have a GUI therefore you have no GUI Constants to include. I never include that file (or any of the constants files) anyway. Just use the value of the constant.

I never do any #includes unless I use like 3 UDFs/Variables from them.

[SalazarCheats]

i get his error...

Please help...

[Mast3rpyr0]

You have the A3Lib installed?

If not its the first sticky post in Example scripts.

[SalazarCheats]

You have the A3Lib installed?

If not its the first sticky post in Example scripts.

yes i do... but ill reinstall now just to dubble check

Checked it still not working...

Edited July 4, 2007 by SalazarCheats

[testingtest]

I get this error

Return $aResult[0] <> 0 
Return $aResult^ ERROR

[Generator]

I get this error

Return $aResult[0] <> 0 
Return $aResult^ ERROR

Try with latest version of AutoIt, maybe that's the problem, or his version was an older version, because dllcall was different i noticed.

Anyways check out the 1 in my sign too.

[tonlo]

Mast3rpyr0 you code so cool, but it output .bmp, i wanna change output file to .jpg so it tat only change 1 line

$sFileName = @ProgramFilesDir & "\ScreenCap\Cap_" & @MON & @MDAY & @HOUR & @MIN & @SEC & ".bmp"

but when i press prtsc key, nothin happen. Help me plz, how to output .jpg ???

(Sori my ENG so bad )

[AutoItKing]

You don't need the ExitFunc. By default AutoIt exits when Esc is pressed.

[RazerM]

AutoIt does not exit by default if Escape is pressed.

Not bad program, I think you should put in a DirCreate to create the folder (I had to create the folder manually for script to work). Also, don't hotkeyset the print screen key until after the splash has finished, that way there is no screen capture during startup.

[tonlo]

i can't output *.jpg, plz help!!!!!

in A3LScreenCap.au3 :

Func _ScreenCap_SaveImage($sFileName, $hBitmap, $fFreeBmp=True)

......

......

Switch $sExt

case "BMP"

$iX = _GDIP_ImageGetWidth ($hImage)

$iY = _GDIP_ImageGetHeight($hImage)

$hClone = _GDIP_BitmapCloneArea($hImage, 0, 0, $iX, $iY, $giA3LBMPFormat)

_GDIP_ImageDispose($hImage)

$hImage = $hClone

case "JPG", "JPEG"

$tParams = _GDIP_ParamInit(1)

$tData = DllStructCreate("int Quality")

DllStructSetData($tData, "Quality", $giA3LJPGQuality)

_GDIP_ParamAdd($tParams, $GDIP_EPGQUALITY , 1, $GDIP_EPTLONG, DllStructGetPtr($tData))

so tat mean just change .bmp ====> .jpg. but y script not working????

Edited July 16, 2007 by tonlo

[GEOSoft]

AutoIt does not exit by default if Escape is pressed.

Not bad program, I think you should put in a DirCreate to create the folder (I had to create the folder manually for script to work). Also, don't hotkeyset the print screen key until after the splash has finished, that way there is no screen capture during startup.

You could use a FileCopy() or FileMove() with the flag set to 9 which will overwrite existing and create the folder structure if required.

[hackman]

Now This saves in JPG

Easy and any one can understand the code ......

;Gets Screen HackMan
SEND("{PRINTSCREEN}")
Run("mspaint.exe")
WinWaitActive("untitled - Paint")
WinSetState ( "untitled - Paint", "", @SW_MAXIMIZE )
Send("!EP")
Send("P")
WinWaitActive("untitled - Paint")
Send("!FA")
Send("!T")
Send("{DOWN}")
Send("{DOWN}")
Send("{ENTER}")
Send("!N")
$sFileName = @MON & @MDAY & @HOUR & @MIN & @SEC & ".jpg"
Send($sFileName)
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
MsgBox(0,"HackMan","This Program Has been Done by Hackman ")
MsgBox(0,"HackMan","In Case if u wanna use this to some pgm pls give me credits  ")
EXIT