satanttin 3 Report post Posted July 21, 2014 Hello, This program put little snippets we all like to use (i assume) into a tray menu so we don't have to look for them anymore. the only thing u need to do is make a map name it Snippets and put your snippets in there.(note: The Snippets Tray Tool doesn't go in there but in the same place as the folder is) The script: (note: to easy change the folder name to your own liking just open the script in scite and ctrl + f and look for Snippets and replace those 2 names with the name u want to use) expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** ;#AutoIt3Wrapper_Icon=.ico #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_Res_Comment=By: ;#AutoIt3Wrapper_Res_Description= #AutoIt3Wrapper_Res_Fileversion=1.0 #AutoIt3Wrapper_Res_SaveSource=y ;#AutoIt3Wrapper_Res_Icon_Add=.ico #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 #AutoIt3Wrapper_Run_Tidy=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <File.au3> #include <GUIConstantsEx.au3> #include <TrayConstants.au3> Opt("TrayMenuMode", 3) Opt("TrayIconHide", 0) Opt("GUIResizeMode", 1) Opt("TrayIconDebug", 1) Opt("TrayAutoPause", 0) Opt("MouseCoordMode", 2) Opt("GUIOnEventMode", 1) Opt("MustDeclareVars", 0) Opt("GUIEventOptions", 1) Opt("TrayOnEventMode", 0) Opt("ExpandEnvStrings", 1) Opt("WinDetectHiddenText", 1) ;Tray Local $PLTray, $PSTray, $STTray, $NTray, $PTray, $CTTray, $ExitItem ;Vars Local $Au3filesArray, $Item, $State, $Msg, $GuiMsg, $CursorInfo, $txt TraySetIcon("ico.ico") $ExitItem = TrayCreateItem("Close") TrayItemSetOnEvent(-1, "Quit") SrchAdd() GUISetState() TraySetState(1) TraySetClick(8) ;============================================================================= Do $Msg = TrayGetMsg() If $Msg > 0 Then $txt = TrayItemGetText($Msg) ConsoleWrite('$txt ' & $txt & @CRLF) If $txt = 'Close' Then Quit() ConsoleWrite(@ScriptDir & '\' & $txt & @CRLF) Run("C:\Program Files (x86)\AutoIt3\SciTE\SciTE.exe " & @ScriptDir & '\' & "Snippets" & '\' & $txt) EndIf Sleep(50) Until GUIGetMsg() = $GUI_EVENT_CLOSE ;============================================================================= Func SrchAdd() $Au3filesArray = _FileListToArray(@ScriptDir & '\'& "Snippets" & '\', '*.au3', 1, 0) ConsoleWrite('$Au3filesArray[1] ' & $Au3filesArray[1] & @CRLF) For $i = 1 To $Au3filesArray[0] $Au3filesArray[$i] = TrayCreateItem($Au3filesArray[$i]) TrayItemSetOnEvent($Au3filesArray[$i], $Au3filesArray[$i]) Next EndFunc ;==>SrchAdd ;============================================================================= Func Minimize() WinSetState('', '', @SW_MINIMIZE) EndFunc ;==>Minimize Func Restore() WinSetState('', '', @SW_RESTORE) EndFunc ;==>Restore Func Quit() Exit EndFunc ;==>Quit ;============================================================================= The guy behind this code is careca <-- i just edited the script a little bit so u u don't get a gui with a button anymore to load the snippets in the tray menu. If you have any questions feel free to comment and i will try to help you reason i uploaded this script is because i think a lot of people would like it. Greetings Share this post Link to post Share on other sites
Celtic88 18 Report post Posted July 21, 2014 gooood thank you Share this post Link to post Share on other sites
satanttin 3 Report post Posted July 21, 2014 Enjoy ^^ Share this post Link to post Share on other sites
