Doug Posted May 31, 2005 Share Posted May 31, 2005 I've written a bunch of tiny scripts that I run separately, whenever I need one of them. What I do now is double-click their EXE shortcut icons to run them; they run and then stop when they're done. What I'd like to do is add them all to a menu that always runs (unless I manually kill it). Each tiny script would be represented on the menu by a button; this way I could simply click a button to run a script once. What I need is the code to create the button menu, and perhaps a case statement where I can lodge each tiny script. Before I start coding myself, I thought I'd check here to see if someone has a scrap I could use for this purpose. I'm sure this wheel has already been invented, so to speak. Any suggestions? Thanks! Link to comment Share on other sites More sharing options...
Valuater Posted June 4, 2005 Share Posted June 4, 2005 I've written a bunch of tiny scripts that I run separately, whenever I need one of them. What I do now is double-click their EXE shortcut icons to run them; they run and then stop when they're done. What I'd like to do is add them all to a menu that always runs (unless I manually kill it). Each tiny script would be represented on the menu by a button; this way I could simply click a button to run a script once.What I need is the code to create the button menu, and perhaps a case statement where I can lodge each tiny script. Before I start coding myself, I thought I'd check here to see if someone has a scrap I could use for this purpose. I'm sure this wheel has already been invented, so to speak.Any suggestions?Thanks! <{POST_SNAPBACK}>Here is a CUT_OUT (not full Version or even close) from *XPClean Menu* expandcollapse popup#include <GUIConstants.au3> #include <File.au3> #include <Array.au3> #include <String.au3> #include <INet.au3> #notrayicon GUICreate(" My Favorites ") GUICtrlCreateLabel("PLEASE Create a Restore Point...", 165, 60, 260, 25) $tab11OK = GUICtrlCreateButton("Create Restore", 30, 55, 120, 25, $BS_ICON) GUICtrlSetTip(-1, "Built-in Win Xp, If you accidently delete important files, you can Restore them later") GUICtrlCreateLabel("Removes Adware from Computers", 165, 105, 260, 25) $tab12OK = GUICtrlCreateButton("Adaware SE", 30, 100, 120, 25) GUICtrlSetTip(-1, "Freeware Program, Excellent AD POP-UP stopper") GUICtrlCreateLabel("Removes Spyware Programs", 165, 150, 260, 25) $tab13OK = GUICtrlCreateButton("Microsoft Anti-Spy", 30, 145, 120, 25) GUICtrlSetTip(-1, "Free for Win Xp, Excellent SPY PROGRAM eraser") GUICtrlCreateLabel("Removes TAB items, Temp, Unused, History and More!", 165, 195, 350, 25) $tab14OK = GUICtrlCreateButton("Auto-XPClean", 30, 190, 120, 25) GUICtrlSetTip(-1, "Automate Cleaning of TAB File items") GUICtrlCreateLabel("Removes Invalid Registry Entries", 165, 240, 250, 25) $tab15OK = GUICtrlCreateButton("Registry Cleaner", 30, 235, 120, 25) GUICtrlSetTip(-1, "Freeware, Muilti-purpose Registry Cleaner") GUICtrlCreateLabel("Organizes Hard-Drive Programs", 165, 285, 250, 25) $tab16OK = GUICtrlCreateButton("Win Xp Defregment", 30, 280, 120, 25) GUICtrlSetTip(-1, "Built-in Win Xp, Optimizes Hard-Drive space") GUICtrlCreateLabel(" This Menu was a cut-out from *XPClean Menu*", 20, 325, 540, 30) $_OK = GUICtrlCreateButton("OK", 240, 365, 70, 25) $_CANCEL = GUICtrlCreateButton("Cancel", 320, 365, 70, 25) GUISetState() While 1 $Msg = GUIGetMsg() ; controls Restore Point If $Msg = $tab11OK Then If FileExists(@SystemDir & "\restore\rstrui.exe") Then Run(@SystemDir & "\restore\rstrui.exe") Sleep(2000) WinWaitActive("") Else MsgBox(64, "Sorry! ", "This Win XP Program - was not found", 8) EndIf EndIf ; controls Adaware If $Msg = $tab12OK Then If FileExists(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then Run(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Sleep(2000) WinWaitActive("") Else $iMsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & " Press *Yes*" & @CRLF & "" & @CRLF & " to visit the web-site and" & @CRLF & " Install this Great program" & @CRLF & "" & @CRLF & "", 20) Select Case $iMsgBoxAnswer = 6 ;Yes RunWait(@ProgramFilesDir & "\Internet Explorer\iexplore.exe www.lavasoft.com") EndSelect EndIf EndIf ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.. continue with other buttons If $Msg = $_OK Or $Msg = $_CANCEL Or $Msg = $GUI_EVENT_CLOSE Then Exit EndIf WEndThe Full Menu and Code is here#78760Enjoy! Link to comment Share on other sites More sharing options...
Cubbybearks Posted January 29, 2010 Share Posted January 29, 2010 (edited) Here is one I am developing for office with a minor change you could easily modify it for use in you own program set. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <file.au3> #include <Constants.au3> #include <ButtonConstants.au3> Opt("TrayMenuMode", 1) #NoTrayIcon ;==Don't Show Standard Tray Icon Global $path, $msg[15], $checkCN[15], $blank1, $blank2, $blank3, $icon, $L Global $button1, $button2, $button3, $button4 Global $button5, $Button6, $button7, $button8 Global $button9, $button10, $buttonclose, $buttonok, $buttoncancel, $x, $y Global $yes, $no, $yes2, $no2, $null, $startup, $systray, $graphical, $helpitem If FileExists("C:\Program Files\Microsoft Office\Office11\WINWORD.exe") Then ;==Check Which Copy Of Office Is Installed $path = "C:\Program Files\Microsoft Office\Office11\" ElseIf FileExists("C:\Program Files\Microsoft Office\Office12\WINWORD.exe") Then $path = "C:\Program Files\Microsoft Office\Office12\" ElseIf FileExists("C:\Program Files\Microsoft Office\Office14\WINWORD.exe") Then $path = "C:\Program Files\Microsoft Office\Office14\" EndIf If Not FileExists(@MyDocumentsDir & "OQS.txt") Then ;==Make Sure INI File Exists If Not Create One GUICreate("Office Quickstart Warning", 260, 220, -1, -1, $WS_CAPTION, $icon) ; will create a dialog box that when displayed is centered $buttonok = GUICtrlCreateButton("OK", 30, 185, 80, 30) $buttoncancel = GUICtrlCreateButton("Cancel", 130, 185, 80, 30) GUICtrlCreateLabel("Settings file not found. Program will continue" & @CRLF & "with the following default settings:", 45, 10) GUICtrlCreateLabel("Word" & @CRLF & "Excel" & @CRLF & "Access" & @CRLF & "Publisher" & @CRLF & "PowerPoint", 85, 40) GUICtrlCreateLabel("Outlook" & @CRLF & "Graphical User Interface" & @CRLF & "No startup with Windows", 85, 105) GUICtrlCreateLabel("These setting can be changed using the settings " & @CRLF & "menu. OK to Continue. Cancel to exit.", 10, 150) $icon = GUICtrlCreateIcon("shell32.dll", 23, 5, 10) GUISetState() While 1 Switch GUIGetMsg() Case $buttoncancel GUIDelete() GuiCreate("Office Quickstart",260,220,-1,-1,$WS_CAPTION) GUICtrlCreateLabel("Program terminating!",45,10) Sleep(5000) GUIDelete() Exit Case $buttonok GUIDelete() GUICreate("Office Quickstart",260,220,-1,-1,$WS_CAPTION) GUICtrlCreateLabel("Building Settings file for first time use, One Moment Please...",45,10) Sleep (7500) $msg[1] = 1 $msg[2] = 1 $msg[3] = 1 $msg[4] = 1 $msg[5] = 0 $msg[6] = 1 $msg[7] = 0 $msg[8] = 0 $msg[9] = 1 $msg[10] = 0 $msg[11] = 0 $msg[12] = 1 $msg[13] = 0 $msg[14] = 0 _FileWriteFromArray(@MyDocumentsDir & "OQS.txt", $msg, 1) FileSetAttrib(@MyDocumentsDir & "OQS.txt", "+H") ExitLoop EndSwitch WEnd Else _FileReadToArray(@MyDocumentsDir & "OQS.txt", $msg) EndIf If $msg[13] = 1 Then _Systray() EndIf $openitem = TrayCreateItem("Open File...") ;==Populate The Tray $blank1 = TrayCreateItem("") $settingsitem = TrayCreateItem("Settings") $blank2 = TrayCreateItem("") $helpitem = TrayCreateItem("Help") $exititem = TrayCreateItem("Exit") TraySetState() TraySetToolTip("Microsoft Office Quickstart") TraySetIcon("C:\users\chuck\desktop\Office12.ico") TraySetClick(16) While 1;==Wait For User Input $tray = TrayGetMsg() Select Case $tray = $button1 And $msg[13] = 1 ;ShellExecute($path & "winword.exe") Case $tray = $button2 And $msg[13] = 1 ;ShellExecute($path & "excel.exe") Case $tray = $button3 And $msg[13] = 1 ;ShellExecute($path & "msaccess.exe") Case $tray = $button4 And $msg[13] = 1 ;ShellExecute($path & "powerpnt.exe") Case $tray = $button5 And $msg[13] = 1 ;ShellExecute($path & "onenote.exe") Case $tray = $Button6 And $msg[13] = 1 ;ShellExecute($path & "outlook.exe") Case $tray = $button7 And $msg[13] = 1 ;ShellExecute($path & "groove.exe") Case $tray = $button8 And $msg[13] = 1 ;ShellExecute($path & "infopath.exe") Case $tray = $button9 And $msg[13] = 1 ;ShellExecute($path & "mspub.exe") Case $tray = $button10 And $msg[13] = 1 ;ShellExecute($path & "ois.exe") Case $tray = $openitem _CanOpener() Case $tray = $exititem ExitLoop Case $tray = $settingsitem _Settings() Case $tray = $helpitem _Help() Case $tray = $TRAY_EVENT_PRIMARYDOUBLE If $msg[12] = 1 Then _Graphical() EndIf EndSelect WEnd Func _Graphical() ;==Graphical User Interface $x = 40 $y = 0 For $i = 1 To 11 If $msg[$i] = 1 Then $x = $x + 40 EndIf Next GUICreate("Microsoft Office Manager", $x, 40, -1, -1, $WS_CAPTION) If $msg[1] = 1 Then $button1 = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "winword.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Word") EndIf If $msg[2] = 1 Then $y = $y + 40 $button2 = GUICtrlCreateButton("2", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "excel.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Excel") EndIf If $msg[3] = 1 Then $y = $y + 40 $button3 = GUICtrlCreateButton("3", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "msaccess.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Access") EndIf If $msg[4] = 1 Then $y = $y + 40 $button4 = GUICtrlCreateButton("4", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "powerpnt.exe", 1) GUICtrlSetTip(-1, "Microsoft Office PowerPoint") EndIf If $msg[5] = 1 Then $y = $y + 40 $button5 = GUICtrlCreateButton("5", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "onenote.exe", 1) GUICtrlSetTip(-1, "Microsoft Office One Note") EndIf If $msg[6] = 1 Then $y = $y + 40 $Button6 = GUICtrlCreateButton("6", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "outlook.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Outlook") EndIf If $msg[7] = 1 Then $y = $y + 40 $button7 = GUICtrlCreateButton("7", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "groove.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Groove Synchonization") EndIf If $msg[8] = 1 Then $y = $y + 40 $button8 = GUICtrlCreateButton("8", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "infopath.exe", 1) GUICtrlSetTip(-1, "Microsoft Office InfoPath") EndIf If $msg[9] = 1 Then $y = $y + 40 $button9 = GUICtrlCreateButton("9", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "mspub.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Publisher") EndIf If $msg[10] = 1 Then $y = $y + 40 $button10 = GUICtrlCreateButton("10", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, $path & "ois.exe", 1) GUICtrlSetTip(-1, "Microsoft Office Picture Manager") EndIf If $msg[11] = 1 Then $y = $y + 40 $button11 = GUICtrlCreateButton("11", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, "C:\windows\system32\shell32.dll", 46) GUICtrlSetTip(-1, "Open File") EndIf $y = $y + 40 $buttonclose = GUICtrlCreateButton("close", $y, 0, 40, 40, $BS_ICON) GUICtrlSetImage(-1, "c:\windows\system32\shell32.dll", 28) GUICtrlSetTip(-1, "Close") GUISetState() ; Run the GUI until the dialog is closed While 1 $z = GUIGetMsg() Select Case $z = $GUI_EVENT_CLOSE ExitLoop Case $z = $button1 And $msg[1] = 1 ShellExecute($path & "winword.exe") ExitLoop Case $z = $button2 And $msg[2] = 1 ShellExecute($path & "excel.exe") ExitLoop Case $z = $button3 And $msg[3] = 1 ShellExecute($path & "msaccess.exe") ExitLoop Case $z = $button4 And $msg[4] = 1 ShellExecute($path & "powerpnt.exe") ExitLoop Case $z = $button5 And $msg[5] = 1 ShellExecute($path & "onenote.exe") ExitLoop Case $z = $Button6 And $msg[6] = 1 ShellExecute($path & "outlook.exe") ExitLoop Case $z = $button7 And $msg[7] = 1 ShellExecute($path & "groove.exe") ExitLoop Case $z = $button8 And $msg[8] = 1 ShellExecute($path & "infopath.exe") ExitLoop Case $z = $button9 And $msg[9] = 1 ShellExecute($path & "mspub.exe") ExitLoop Case $z = $button10 And $msg[10] = 1 ShellExecute($path & "ois.exe") ExitLoop Case $z = $button11 And $msg[11] = 1 GUIDelete() _CanOpener() ExitLoop Case $z = $buttonclose ExitLoop Case Else EndSelect WEnd GUIDelete() EndFunc ;==>_Graphical Func _Systray() TraySetClick(9) If $msg[1] = 1 Then $button1 = TrayCreateItem("Word") EndIf If $msg[2] = 1 Then $button2 = TrayCreateItem("Excel") EndIf If $msg[3] = 1 Then $button3 = TrayCreateItem("Access") EndIf If $msg[4] = 1 Then $button4 = TrayCreateItem("PowerPoint") EndIf If $msg[5] = 1 Then $button5 = TrayCreateItem("OneNote") EndIf If $msg[6] = 1 Then $Button6 = TrayCreateItem("Outlook") EndIf If $msg[7] = 1 Then $button7 = TrayCreateItem("Groove") EndIf If $msg[8] = 1 Then $button8 = TrayCreateItem("InfoPath") EndIf If $msg[9] = 1 Then $button9 = TrayCreateItem("Publisher") EndIf If $msg[10] = 1 Then $button10 = TrayCreateItem("Office Picture Viewer") EndIf $blank3 = TrayCreateItem("") EndFunc ;==>_Systray Func _Settings() ;==System Settings Local $tab, $tab0, $startup, $graphical, $systray Local $tab1, $tab2, $settingsbutton1, $settingsbutton2 Local $checkCN[15] GUICreate("Microsoft Office Manager Settings", 240, 200, -1, -1, $WS_CAPTION) ; will create a dialog box that when displayed is centered GUISetBkColor(0x00E0FFFF) GUISetFont(9, 300) $tab = GUICtrlCreateTab(5, 5, 240, 160) $tab0 = GUICtrlCreateTabItem("Main") $startup = GUICtrlCreateCheckbox("Startup With Windows", 55, 35) If $msg[14] = 1 Then GUICtrlSetState($startup, $GUI_CHECKED) EndIf GUICtrlCreateLabel("Interface Type", 50, 65) $graphical = GUICtrlCreateRadio("Graphical", 55, 85) If $msg[12] = 1 Then GUICtrlSetState($graphical, $GUI_CHECKED) EndIf $systray = GUICtrlCreateRadio("System Tray", 55, 105) If $msg[13] = 1 Then GUICtrlSetState($systray, $GUI_CHECKED) EndIf $icon = GUICtrlCreateIcon("shell32.dll", 22, 10, 70) $tab1 = GUICtrlCreateTabItem("Programs") $checkCN[1] = GUICtrlCreateCheckbox("Word", 50, 35, 60, 20) $checkCN[2] = GUICtrlCreateCheckbox("Excel", 50, 55, 60, 20) $checkCN[3] = GUICtrlCreateCheckbox("Access", 50, 75, 60, 20) $checkCN[4] = GUICtrlCreateCheckbox("PowerPoint", 50, 95, 80, 20) $checkCN[5] = GUICtrlCreateCheckbox("OneNote", 50, 115, 75, 20) $checkCN[6] = GUICtrlCreateCheckbox("Outlook", 135, 35, 120, 20) $checkCN[7] = GUICtrlCreateCheckbox("Groove", 135, 55, 120, 20) $checkCN[8] = GUICtrlCreateCheckbox("InfoPath", 135, 75, 120, 20) $checkCN[9] = GUICtrlCreateCheckbox("Publisher", 135, 95, 120, 20) $checkCN[10] = GUICtrlCreateCheckbox("Picture Viewer", 135, 115, 120, 20) $checkCN[11] = GUICtrlCreateCheckbox("Open File...", 85, 135, 120, 20) $icon = GUICtrlCreateIcon("shell32.dll", 40, 10, 70) If FileExists($path & "winword.exe") Then If $msg[1] = 1 Then GUICtrlSetState($checkCN[1], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[1], $GUI_UNCHECKED) GUICtrlSetState($checkCN[1], $GUI_DISABLE) EndIf If FileExists($path & "excel.exe") Then If $msg[2] = 1 Then GUICtrlSetState($checkCN[2], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[2], $GUI_UNCHECKED) GUICtrlSetState($checkCN[2], $GUI_DISABLE) EndIf If FileExists($path & "msaccess.exe") Then If $msg[3] = 1 Then GUICtrlSetState($checkCN[3], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[3], $GUI_UNCHECKED) GUICtrlSetState($checkCN[3], $GUI_DISABLE) EndIf If FileExists($path & "powerpnt.exe") Then If $msg[4] = 1 Then GUICtrlSetState($checkCN[4], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[4], $GUI_UNCHECKED) GUICtrlSetState($checkCN[4], $GUI_DISABLE) EndIf If FileExists($path & "onenote.exe") Then If $msg[5] = 1 Then GUICtrlSetState($checkCN[5], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[5], $GUI_UNCHECKED) GUICtrlSetState($checkCN[5], $GUI_DISABLE) EndIf If FileExists($path & "outlook.exe") Then If $msg[6] = 1 Then GUICtrlSetState($checkCN[6], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[6], $GUI_UNCHECKED) GUICtrlSetState($checkCN[6], $GUI_DISABLE) EndIf If FileExists($path & "groove.exe") Then If $msg[7] = 1 Then GUICtrlSetState($checkCN[7], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[7], $GUI_UNCHECKED) GUICtrlSetState($checkCN[7], $GUI_DISABLE) EndIf If FileExists($path & "infopath.exe") Then If $msg[8] = 1 Then GUICtrlSetState($checkCN[8], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[8], $GUI_UNCHECKED) GUICtrlSetState($checkCN[8], $GUI_DISABLE) EndIf If FileExists($path & "mspub.exe") Then If $msg[9] = 1 Then GUICtrlSetState($checkCN[9], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[9], $GUI_UNCHECKED) GUICtrlSetState($checkCN[9], $GUI_DISABLE) EndIf If FileExists($path & "ois.exe") Then If $msg[10] = 1 Then GUICtrlSetState($checkCN[10], $GUI_CHECKED) EndIf Else GUICtrlSetState($checkCN[10], $GUI_UNCHECKED) GUICtrlSetState($checkCN[10], $GUI_DISABLE) EndIf $tab2 = GUICtrlCreateTabItem("About") GUICtrlCreateLabel("Microsoft Office Manager v2.5.7.9" & @CRLF & @CRLF & " Created By Cubbybearks" & @CRLF & @CRLF & " Jan 18,2009 - Feb.9,2009", 33, 45) $icon = GUICtrlCreateIcon("shell32.dll", 24, 10, 70) GUICtrlCreateTabItem("") ; end tabitem definition $settingsbutton1 = GUICtrlCreateButton("OK", 30, 165, 80, 30) $settingsbutton2 = GUICtrlCreateButton("Cancel", 130, 165, 80, 30) GUISetState() ; Run the GUI until the dialog is closed While 1 Switch GUIGetMsg() Case $settingsbutton2 ExitLoop Case $settingsbutton1 For $i = 1 To 11 $msg[$i] = GUICtrlRead($checkCN[$i]) Next $msg[12] = GUICtrlRead($graphical) $msg[13] = GUICtrlRead($systray) $msg[14] = GUICtrlRead($startup) _FileWriteFromArray(@MyDocumentsDir & "OQS.txt", $msg, 1) _Rebuild() ExitLoop EndSwitch If $msg[14] = 1 And @OSVersion <> "WIN_XP" And @OSVersion <> " WIN_2008" Then If IsAdmin() Then Else #RequireAdmin ;==Aquire Administrative Rights EndIf RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Office Quickstart", "REG_SZ", @ScriptFullPath) ElseIf $msg[14] = 0 Then RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "REG_SZ") EndIf WEnd GUIDelete() EndFunc ;==>_Settings Func _CanOpener() ;==Open File $message = "Choose File To Open." $var = FileOpenDialog($message, @MyDocumentsDir, "All(*.*)|Word (*.doc;*.docx)|Excel (*.xls;*.xlsx)|PowerPoint(*.pnt)|Text(*.rtf;*.txt)", 1 + 4) If @error Then Else ShellExecute($var) EndIf EndFunc ;==>_CanOpener Func _Rebuild() ;==Rebuild The System Menu TrayItemDelete($blank3) TrayItemDelete($openitem) TrayItemDelete($blank1) TrayItemDelete($settingsitem) TrayItemDelete($blank2) TrayItemDelete($helpitem) TrayItemDelete($exititem) TrayItemDelete($button1) TrayItemDelete($button2) TrayItemDelete($button3) TrayItemDelete($button4) TrayItemDelete($button5) TrayItemDelete($Button6) TrayItemDelete($button7) TrayItemDelete($button8) TrayItemDelete($button9) TrayItemDelete($button10) If $msg[13] = 1 Then _Systray() EndIf $openitem = TrayCreateItem("Open File...") $blank1 = TrayCreateItem("") $settingsitem = TrayCreateItem("Settings") $blank2 = TrayCreateItem("") $helpitem = TrayCreateItem("Help") $exititem = TrayCreateItem("Exit") EndFunc ;==>_Rebuild Func _Help() GUICreate("Help", 280, 355, -1, -1, $WS_SYSMENU) GUISetBkColor(0x00E0FFFF) GUICtrlCreateTab(5, 5, 265, 315) GUISetFont(9, 600, 0, "Arial") $tab0 = GUICtrlCreateTabItem("Help Main") GUICtrlCreateLabel("Help File Main Page", 75, 35, 235, 65) GUICtrlCreateLabel("Click Tab Above to Get More Information About Different Options accessed by Right Clicking the System Tray Icon.", 20, 70, 245, 205) $tab1 = GUICtrlCreateTabItem("File Open...") GUICtrlCreateLabel("File Open... Option", 80, 35, 235, 65) GUICtrlCreateLabel("Select this option from the System Tray to open an existing Microsoft Office file.", 20, 70, 240, 105) GUICtrlCreateLabel("All (*.*) files are shown in the Dialog Box by default .", 20, 125, 240, 205) GUICtrlCreateLabel("Use Drop Down Box to select Office Format Files or standard Text files." & @CRLF & @CRLF & "For Example:" & @CRLF & "Word (*.doc;*.docx), Excel(*.xls;*.xlsx), Text(*.rtf;*.txt).", 20, 160, 240, 205) $tab2 = GUICtrlCreateTabItem("Settings") GUICtrlCreateLabel("Settings Option", 90, 35, 235, 65) GUICtrlCreateLabel("Select this Option to change the ways that the program will act.", 20, 60, 240, 205) GUICtrlCreateLabel("Startup With Windows, Will place a shortcut in the Startup folder.", 20, 95, 240, 205) GUICtrlCreateLabel("Graphical: Opens a Dialog when the System Tray Icon is Double Clicked", 20, 130, 240, 205) GUICtrlCreateLabel("System Tray: Lists all Programs when the System Tray Icon is Clicked.", 20, 165, 240, 205) GUICtrlCreateLabel("Programs: Lists all the available programs that can be added to the menu, check each program that you would like to include.", 20, 215, 240, 340) GUICtrlCreateLabel("About will show more about the program and it's creation.", 20, 280, 240, 354) $tab3 = GUICtrlCreateTabItem("Help") GUICtrlCreateLabel("Help Option", 100, 35, 235, 65) GUICtrlCreateLabel("Brings up this Dialog Box to close click the [X] in the upper right hand corner.", 20, 60, 225, 205) $tab4 = GUICtrlCreateTabItem("Exit") GUICtrlCreateLabel("Exit", 115, 35, 225, 205) GUICtrlCreateLabel("Exit the program.", 20, 70, 240, 205) GUISetState() Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>_Help Edited January 29, 2010 by Cubbybearks Link to comment Share on other sites More sharing options...
NerdFencer Posted January 31, 2010 Share Posted January 31, 2010 http://www.autoitscript.com/forum/index.php?showtopic=109130 With just a couple small modifications, you can turn your scripts into modules fore R.O.M.E. (compiled into one script with a built in menu) or just make shortcuts to the executable in the menu. _________[u]UDFs[/u]_________-Mouse UDF-Math UDF-Misc Constants-Uninstaller Shell Link to comment Share on other sites More sharing options...
Minikori Posted February 1, 2010 Share Posted February 1, 2010 (edited) I'm surprised no one's mentioned this, but I'm pretty sure you're in the wrong forum, no?EDIT: Just realized. NerdFencer you just revived a four and a half year old thread. You may want to keep from doing this in the future, it's unnecessary. Edited February 2, 2010 by Minikori For those who are asking questions, look in the help file first. I'm tired of people asking stupid questions about how to do things when 10 seconds in the help file could solve their problem.[quote name='JRowe' date='24 January 2010 - 05:58 PM' timestamp='1264381100' post='766337'][quote name='beerman' date='24 January 2010 - 03:28 PM' timestamp='1264372082' post='766300']They already have a punishment system for abuse.[/quote]... and his his name is Valik.[/quote]www.minikori.com Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now