Sign in to follow this  
Followers 0
t0ddie

Screenshot Utility

3 posts in this topic

#1 ·  Posted (edited)

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.

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 by t0ddie

Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Share this post


Link to post
Share on other sites



Cool :P

Tried it and it worked quite well. :nuke:

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 :)


Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0