Problem with automating taking a printscreen

[YouriKamperman]

I wrote a script in AutoIT that should take a printscreen, paste it in MS Paint and automatically save it with the current date and time.

All of the main functionality is working, but the datetime seems to have some inconsistency problems in the formatting. I want the date formatted as DDMMYYYY HHMMSS but i get YYYY HHMMSS and sometimes YYY HHMMSS.

I also have a problem where the save window is opened up again after simulating the Enter keypress. Any ideas about what can be the problem? Below you can find my code.

Thanks in advance for the help.

#include <Constants.au3>
#include <Date.au3>
#Include <WinAPI.au3>
; Script Function:
;   Make a screenshot of the current screen
;


; Prompt the user to run the script.
Local $iAnswer = MsgBox(BitOR($MB_OK, $MB_SYSTEMMODAL), "Screenshot maken", "Zorg dat je op de juiste pagina in TPC bent en druk dan op OK.")

Send("{PRINTSCREEN}")
Run("mspaint")
WinWaitActive("Untitled - Paint")
Send("^v")
ChangeDateFormat()
SaveFile()


Func ChangeDateFormat()
   Global $sDate = _Now()
   Global $sOutput = StringRegExpReplace($sDate, "(?i)[^a-z0-9]", "")
EndFunc

Func SaveFile()
   Send("^s")
   Send($sOutput)
   sleep(500)
   Send("{ENTER}")
EndFunc

; Finished!

 

Edited December 11, 2017 by Melba23
Added code tags - and moved to correct section

[careca]

What about this?

#include <ScreenCapture.au3>

_ScreenCapture_SetJPGQuality(100);max image quality
$scrFile = @DesktopDir & "\screenshot - " & @MDAY & @MON & @YEAR & '-' & @HOUR &@MIN& @SEC & ".bmp"
_ScreenCapture_CaptureWnd($scrFile, "[ACTIVE]", -1, -1, -1, -1, 0)

 

[YouriKamperman]

Thanks!

Works like a charm, and a much cleaner way of doing the same thing.