advanced code snippet search

Posted By

094290006 on 11/22/09


Tagged

numbers screen capture program MrNumbers Mista Numba Mister Mr


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

tspitzr


Autoit Screen Capture Program

 / Published in: AutoIt
 

This took me not very long...

Expand | Embed | Plain Text 
  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  

You need to login to post a comment.