//Note. Make sure to assign this macro a Hot Key.
 
//Show the screenshot in Windows Explorer? yes/no
Let>ShowInFolder=yes
 
//Edit the screenshot in MS Paint? yes/no
Let>EditFile=no
 
//Get the active window
GetActiveWindow>ActiveWin,Xpos,Ypos,Width,Height
 
//Calculate the window size
Let>BottomRightX=Xpos+Width
Let>BottomRightY=Ypos+Height
 
//Get time and date for the filename
Year>TheYear
Month>TheMonth
Day>TheDay
Hour>TheHour
Min>TheMin
Sec>TheSec
 
//Set file path and name
Let>FilePath=%USERDOCUMENTS_DIR%\Screenshots
Let>FileName=%FilePath%\Screenshot-%TheYear%-%TheMonth%-%TheDay%-%TheHour%-%TheMin%-%TheSec%.bmp

//Create the output folder if it doesn't exist
IfNotDirExists>%FilePath%
    CreateDir>%FilePath%
Endif
 
//Capture the screenshot
ScreenCapture>Xpos,Ypos,%BottomRightX%,%BottomRightY%,%FileName%
 
//Show the screenshot in Windows Explorer if ShowInFolder = yes
if>ShowInFolder=yes
    RunProgram>Explorer /select,%FileName%
Endif
 
 
//Edit the screenshot in MS Paint if EditFile = yes
If>EditFile=yes
    RunProgram>msPaint.exe %FileName%
    WaitWindowOpen>Paint*
    WaitReady>1
    WindowAction>1,Paint*
Endif