Advanced Search

Autoit Screen Capture Program

/ Published in: AutoIt
Save to your folder(s)
This took me not very long...

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. HotKeySet ( "{F10}", "DID_CLICK" )
  2. HotKeySet ( "{F11}", "CLOSE" )
  3. TraySetToolTip("Mr.Numbers Quick Screen Shot")
  4. Opt("TrayMenuMode",1)
  5.  
  6. $JPEG_ITEM  = TrayCreateItem("JPEG")
  7. TrayCreateItem("")
  8. $PNG_ITEM = TrayCreateItem("PNG")
  9. TrayCreateItem("")
  10. $BMP_ITEM   = TrayCreateItem("BMP")
  11. TrayCreateItem("")
  12. $EXIT_ITEM	= TrayCreateItem("Exit")
  13.  
  14.  
  15. MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Welcome to Mr.Numbers quick screen shot tool! Using this tool, you can take quick screenshots!")
  16. MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Please tell me where to save your files!")
  17. $WINDOWSPATH = FileSelectFolder ( "Choose A Folder", "" , 1 )
  18.  
  19. If $WINDOWSPATH = "" Then
  20. 	Exit 0
  21. 	Endif
  22.  
  23. MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press OK to start your screen capturing! Simply press F10! (Your clipboard will be erased)")
  24. MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Edit the DATA.INI File to change the desired file format")
  25. MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press F11 to close this program")
  26. $NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
  27. If $NUMBER = "X" Then
  28. 	IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", "1")
  29. 	IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
  30. 	IniWrite( $WINDOWSPATH & "\DATA.INI", "COMMENTS", "DIFFERENT FILE TYPES", "JPEG, PNG, BMP")
  31. 	$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "")
  32. 	$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
  33. 	EndIf
  34.  
  35. TraySetState()
  36.  
  37. While 1
  38.     $msg = TrayGetMsg()
  39.     Select
  40.         Case $msg = 0
  41.             ContinueLoop
  42.         Case $msg = $JPEG_ITEM
  43.             IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
  44.         Case $msg = $PNG_ITEM
  45.             IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "PNG")
  46.         Case $msg = $BMP_ITEM
  47. 			IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "BMP")
  48.         Case $msg = $EXIT_ITEM
  49.             ExitLoop
  50.     EndSelect
  51. WEnd
  52.  
  53.  
  54. Func DID_CLICK()
  55. 	$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
  56. 	$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
  57. 	Send("{PRINTSCREEN}")
  58.     Run( "mspaint.exe" )
  59. 	WinWaitActive("Untitled - Paint")
  60. 	Send("^v")
  61. 	WinClose("Untitled - Paint")
  62. 	WinWaitActive( "Paint")
  63. 	Send("s")
  64. 	WinWaitActive( "Save As" )
  65. 	Send($WINDOWSPATH & "\" & $NUMBER)
  66. 	If $FILETYPE = "JPEG" Then
  67. 		Send("{Enter}")
  68. 	Elseif $FILETYPE = "PNG" Then
  69. 		Send("{TAB}")
  70. 		Send("p")
  71. 		Send("{ENTER}")
  72. 	Elseif $FILETYPE = "BMP" Then
  73. 		Send("{TAB}")
  74. 		Send("{DOWN}")
  75. 		Send("{UP}")
  76. 		Send("{ENTER}")
  77. 		Send("{ENTER}")
  78. 		Endif
  79. 	INIWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", $NUMBER + 1)
  80.  
  81. EndFunc
  82.  
  83. Func CLOSE()
  84. 	Exit 0
  85. EndFunc

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.