Posted By

094290006 on 11/22/09

Tagged

Versions (?)

Last Edited at 11/22/09 11:43am

Statistics

Viewed 812 times

Favorited by 0 user(s)

Related snippets

Autoit Screen Capture Program

/ Published in: AutoIt

This took me not very long...

Highlighted TextExpand

HotKeySet ( "{F10}", "DID_CLICK" )
HotKeySet ( "{F11}", "CLOSE" )
TraySetToolTip("Mr.Numbers Quick Screen Shot")
Opt("TrayMenuMode",1)

$JPEG_ITEM  = TrayCreateItem("JPEG")
TrayCreateItem("")
$PNG_ITEM = TrayCreateItem("PNG")
TrayCreateItem("")
$BMP_ITEM   = TrayCreateItem("BMP")
TrayCreateItem("")
$EXIT_ITEM	= TrayCreateItem("Exit")

MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Welcome to Mr.Numbers quick screen shot tool! Using this tool, you can take quick screenshots!")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Please tell me where to save your files!")
$WINDOWSPATH = FileSelectFolder ( "Choose A Folder", "" , 1 )

If $WINDOWSPATH = "" Then
	Exit 0
	Endif

MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press OK to start your screen capturing! Simply press F10! (Your clipboard will be erased)")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Edit the DATA.INI File to change the desired file format")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press F11 to close this program")
$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
If $NUMBER = "X" Then
	IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", "1")
	IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
	IniWrite( $WINDOWSPATH & "\DATA.INI", "COMMENTS", "DIFFERENT FILE TYPES", "JPEG, PNG, BMP")
	$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "")
	$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
	EndIf

TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $JPEG_ITEM
            IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
        Case $msg = $PNG_ITEM
            IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "PNG")
        Case $msg = $BMP_ITEM
			IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "BMP")
        Case $msg = $EXIT_ITEM
            ExitLoop
    EndSelect
WEnd

Func DID_CLICK()
	$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
	$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
	Send("{PRINTSCREEN}")
    Run( "mspaint.exe" )
	WinWaitActive("Untitled - Paint")
	Send("^v")
	WinClose("Untitled - Paint")
	WinWaitActive( "Paint")
	Send("s")
	WinWaitActive( "Save As" )
	Send($WINDOWSPATH & "\" & $NUMBER)
	If $FILETYPE = "JPEG" Then
		Send("{Enter}")
	Elseif $FILETYPE = "PNG" Then
		Send("{TAB}")
		Send("p")
		Send("{ENTER}")
	Elseif $FILETYPE = "BMP" Then
		Send("{TAB}")
		Send("{DOWN}")
		Send("{UP}")
		Send("{ENTER}")
		Send("{ENTER}")
		Endif
	INIWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", $NUMBER + 1)
		
EndFunc

Func CLOSE()
	Exit 0
EndFunc

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.