Xenobiologist Posted August 5, 2006 Share Posted August 5, 2006 HI, maybe Explorer --> Extras --> Folder options --> file type --> ... So long, Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 5, 2006 Author Share Posted August 5, 2006 Thanks sm0ke_n but now i have a problem. expandcollapse popup;*********************** ; Dan's Main Menu ; Coded by: Dan ; August 2, 2006 ;Find Dan at: ;InvisionFreeSkins.com ;and JavascriptFreek.com ;*********************** #include <GuiConstants.au3> #include <Misc.au3> Global $oRP ; GUI GUICreate("Dan's Main Menu", 400, 400) GUISetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GUICtrlCreateLabel('Visit Homepage', 5, 200, 100, 15, $SS_CENTER) GUICtrlSetFont($TagsPageC, 9, 400, 4) GUICtrlSetColor($TagsPageC, 0x0000ff) GUICtrlSetCursor($TagsPageC, 0) ; TEXT GUICtrlCreateLabel("If you have not noticed this already, the thing above this text is a tab. Pretty neat " & @CRLF & "eh? Well not really, but still ! Lalala this is some text. Blah blah I like muffins, and chocolate. Tribe No 1 Fan is a n00b. I like TEXT!" & @CRLF & "" & @CRLF & "-Dan", 10, 250, 400, 100) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GUICtrlCreateMenu("File") $fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu) $separator1 = GUICtrlCreateMenuitem("", $filemenu) $exititem = GUICtrlCreateMenuitem("Exit", $filemenu) $helpmenu = GUICtrlCreateMenu("About") $aboutitem = GUICtrlCreateMenuitem("About", $helpmenu) ; PROGRESS BAR ProgressOn("Progress Meter", "Increments every second", "0 percent") For $i = 1 To 100 Step 10 ProgressSet($i, $i & " percent") Next ProgressSet(100, "Done", "Complete") Sleep(500) ProgressOff() ; TAB GUICtrlCreateTab(1, 0, 400, 190) GUICtrlCreateTabItem("Intro") GUICtrlCreateLabel("Welcome to Dan's Menu Program." & @CRLF & " " & @CRLF & "Of course if you trust me you would be seeing this right now. Because this an " & @CRLF & ".exe file. Not everyone trust's them kind of files as they contain harmful virus. So " & @CRLF & "hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well " & @CRLF & "not really, but I still like it!", 20, 40, 400, 100) GUICtrlCreateTabItem("Date") GUICtrlCreateLabel("Todays date: " & @MON & " " & @WDAY & ", " & @YEAR & " " & @CRLF & "" & @CRLF & "So your name on the computer is: " & @UserName & "" & @CRLF & "" & @CRLF & "Screen resolution: " & @DesktopWidth & "x" & @DesktopHeight & "" & @CRLF & "" & @CRLF & "Operating System Version: " & @OSVersion & " ", 20, 40) GUICtrlCreateTabItem("Contact") GUICtrlCreateLabel("Find me at ZetaStyles.com! Username: Dan." & @CRLF & "" & @CRLF & "Got an IM? Want to quickly chat with me?" & @CRLF & "" & @CRLF & "MSN: Hunterz92@yahoo.com" & @CRLF & "" & @CRLF & "AIM: Writer Zombie " & @CRLF & "" & @CRLF & "Yahoo!: zombiekid92@yahoo.com" & @CRLF & "" & @CRLF & "Email(s): dan@zetastyles.com", 20, 40) ; GUI MESSAGE LOOP GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)") If @error <> 1 Then GUICtrlCreateMenuitem($file, $recentfilesmenu) ; == GUI generated with Koda ==); $Form1 = GUICreate("AForm1", 622, 441, 192, 125) GUISetIcon("C:\Documents and Settings\Dan\Desktop\Smileys\cool.ico") GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; Case $msg = $exititem ExitLoop Case $msg = $GUI_EVENT_CLOSE ;~ $oRP.SaveFile (@ScriptDir & "\RichText.rtf", 0) ExitLoop Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.javascriptfreek.com', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Dan's Menu", "Dan's Main Menu" & @CRLF & " " & @CRLF & "http://javascriptfreek.com" & @CRLF & "" & @CRLF & "http://zetastyles.com" & @CRLF & "" & @CRLF & "©2006 Dan") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd I get an error, yes the pictute i want top left of window is a .ico file. Look Please [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Paulie Posted August 5, 2006 Share Posted August 5, 2006 HI,maybe Explorer --> Extras --> Folder options --> file type --> ...So long,MegaWell that will do it too Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 5, 2006 Author Share Posted August 5, 2006 Well that will do it too Do you mean that as Internet Explorer cause i don't see an Explorer in my auto it! [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Paulie Posted August 5, 2006 Share Posted August 5, 2006 (edited) Do you mean that as Internet Explorer cause i don't see an Explorer in my auto it! No its windows explorer...Push Windows key + E to get it(Just what you use to browse folders)Go to tools >> folder options >> File Types >> Autoit V3 script >> Advanced >> Change Icon Edited August 5, 2006 by Paulie 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