Screenshot Utility

[t0ddie]

this requires microsoft paint to work.

it basically uses the printscreen button to capture your screen, and pastes the image stored in the clipboard to mspaint.exe. it then saves picture on your desktop.

sure it could be improved, but the main thing is, IT WORKS!

just hit the - key after running this to take a picture of the screen.

expandcollapse popup

Opt("wintitlematchmode",2)
$count = 0
HotKeySet("-","pic")
HotKeySet("{esc}","quit")
MsgBox(0,"ScreenShot Utility","Press " & '"-"' & " to take a screenshot!" & @CRLF & "Press Esc to exit",5)
while 1
    sleep(100)
WEnd

Func pic()
TrayTip("","",0)
        sleep(500)
    HotKeySet("","pic")
        Send("{PRINTSCREEN}")
        Run("mspaint.exe", "", @SW_MAXIMIZE)
        WinWaitActive("untitled - Paint")
        Sleep(100)
        Send("^v")
sleep(100)
Send("^s")
Do
     $count = $count + 1
 Until Not FileExists(@DesktopDir & "\ScreenShot" & $count & ".bmp")
 
        WinWaitActive("Save As")
        sleep(100)
        MouseClick("left",54,227,1,0)
        sleep(100)
        Send("ScreenShot" & $count)
        sleep(100)
        Send("{enter}")
    WinClose("- Paint") 
TrayTip("", "pic saved as ScreenShot" & $count & ".bmp",1,16)
    $count = 0
    HotKeySet("-","pic")
EndFunc

Func quit()
    MsgBox(0,"ScreenShot Utility","Thanks for using ScreenShot utility..." & @CRLF & "Goodbye!" ,3)
    Exit
EndFunc

Edited September 7, 2006 by t0ddie

[FuryCell]

Cool

Tried it and it worked quite well.

Also the following dll may be of interest to you:

captdll

Edited September 7, 2006 by SolidSnake

[t0ddie]

Cool

Tried it and it worked quite well.

Also the following dll may be of interest to you:

captdll

ahhh.. someone already made somehting like this.. but slightly different

any editing of the pic i can do in a picture editing program. (like cut out regions)

that dll looks nice though. i just dont have any use for it ATM

either one will do the job. however,

simplicity is purity.

glad mine worked for you