Rawox Posted September 29, 2008 Share Posted September 29, 2008 Does someone maybe know why the $member is not working, I can't figure it out expandcollapse popup; ============================================= Runescape V2 Auto Startup - by Rawox ====================================== ; ========================================================== OTHER OPTIONS ========================================================== End = Line 10 ; Not display the tray icon. #NoTrayIcon ; Hotkey for stopping script HotKeySet("{ESC}", "Terminate") ; ========================================================== GUI - Browser NON MEMBER ========================================================== End = Line 44 #include <GUIConstantsEx.au3> Opt('MustDeclareVars', 1) Browser() Func Browser() Local $browser1, $browser2, $browser3, $browser4, $Button1, $Button2, $Button3, $nonmember, $member, $ExitButton, $widthCell, $msg GUICreate("Runescape AutoStartup","260","75"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Do you want an Member or Non-Member world?", 20, 15, $widthCell); Text $nonmember = GUICtrlCreateRadio("Non-Members World", 20, 40, 120, 20);For Non-Members $member = GUICtrlCreateRadio("Members World", 150, 40, 120, 20);For Members GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select ;OPTIONS Case $msg = $GUI_EVENT_CLOSE ExitLoop ; ================================================================ NONMEMBERS ================================================================ Case $msg = $nonmember And BitAND(GUICtrlRead($nonmember), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Non-member World.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) GUICreate("Runescape AutoStartup - Non Members","365","170"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Wich Browser do you want to use for Runescape AutoStartup?", 20, 15, $widthCell); Text $browser1 = GUICtrlCreateRadio("Mozilla Firefox", 20, 40, 120, 20);Option 1 $browser2 = GUICtrlCreateRadio("Apple Safari", 250, 40, 120, 20);Option 2 $browser3 = GUICtrlCreateRadio("Internet Explorer", 20, 70, 120, 20);Option 3 $browser4 = GUICtrlCreateRadio("Google Chrome", 250, 70, 120, 20);Option 4 GUICtrlSetState($browser3, $GUI_CHECKED);Checks Mozilla Firefox ;OTHER INFORMATION GUICtrlCreateLabel("Other Information:", 20, 100, $widthCell) $Button1 = GUICtrlCreateButton("Credits", 20, 130, 100) $Button2 = GUICtrlCreateButton("Changelog", 135, 130, 100) $Button3 = GUICtrlCreateButton("How To Use", 245, 130, 100) GUISetState() ; ================================================================ MOZILLA FIREFOX ================================================================ Run("C:\Program Files\Mozilla Firefox\firefox.exe") WinWaitActive("Mozilla Firefox") Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser2 And BitAND(GUICtrlRead($browser2), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser3 And BitAND(GUICtrlRead($browser3), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Internet Explorer.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive ( "Microsoft Internet Explorer" ) Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser4 And BitAND(GUICtrlRead($browser4), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Google Chrome.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ GOOGLE CHROME ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) ;OTHER INFORMATION ;============================================= CREDITS ============================================= Case $msg = $Button1 GUICreate("Credits - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Credits for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Credits Rawox GUICtrlCreateLabel("Rawox", 20, 50, $widthCell); Text GUICtrlCreateLabel("-", 150, 50, $widthCell); Text GUICtrlCreateLabel("Writing Script", 180, 50, $widthCell); Text ;Credits Jonathan Bennett GUICtrlCreateLabel("Jonathan Bennett", 20, 65, $widthCell); Text GUICtrlCreateLabel("-", 150, 65, $widthCell); Text GUICtrlCreateLabel("Making AutoIt", 180, 65, $widthCell); Text ;Credits AutoIt Forums GUICtrlCreateLabel("AutoIt Forums", 20, 80, $widthCell); Text GUICtrlCreateLabel("-", 150, 80, $widthCell); Text GUICtrlCreateLabel("Learning me AutoIt", 180, 80, $widthCell); Text ;Credits Mathijs GUICtrlCreateLabel("Mathijs", 20, 95, $widthCell); Text GUICtrlCreateLabel("-", 150, 95, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 95, $widthCell); Text ;Credits Robbinski12 GUICtrlCreateLabel("Robbinski12", 20, 110, $widthCell); Text GUICtrlCreateLabel("-", 150, 110, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 110, $widthCell); Text ;----------------- Website Links GUICtrlCreateLabel("- Website Links -", 80, 150, $widthCell); Text ;Links Rawox GUICtrlCreateLabel("My Portfolio:", 20, 175, $widthCell); Text GUICtrlCreateLabel("-", 150, 175, $widthCell); Text GUICtrlCreateLabel("http://rawox.byethost11.com", 180, 175, $widthCell); Text GUICtrlCreateLabel("My Deviant:", 20, 190, $widthCell); Text GUICtrlCreateLabel("-", 150, 190, $widthCell); Text GUICtrlCreateLabel("http://rawox.deviantart.com", 180, 190, $widthCell); Text ;Links AutoIt GUICtrlCreateLabel("AutoIt Homepage:", 20, 205, $widthCell); Text GUICtrlCreateLabel("-", 150, 205, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/", 180, 205, $widthCell); Text GUICtrlCreateLabel("AutoIt Forum", 20, 220, $widthCell); Text GUICtrlCreateLabel("-", 150, 220, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/forum/", 180, 220, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= CHANGELOG ============================================= Case $msg = $Button2 GUICreate("Changelog - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Changelog for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Information GUICtrlCreateLabel("Version", 20, 50, $widthCell); Text GUICtrlCreateLabel("Changed", 80, 50, $widthCell); Text ;Version 0.1 GUICtrlCreateLabel("V 0.1", 20, 75, $widthCell); Text GUICtrlCreateLabel("Started the Script", 80, 75, $widthCell); Text ;Version 0.15 GUICtrlCreateLabel("V 0.15", 20, 90, $widthCell); Text GUICtrlCreateLabel("Made this nice GUI", 80, 90, $widthCell); Text ;Version 0.2 GUICtrlCreateLabel("V 0.2", 20, 105, $widthCell); Text GUICtrlCreateLabel("Added Firefox and IExplorer option", 80, 105, $widthCell); Text ;Version 0.25 GUICtrlCreateLabel("V 0.25", 20, 120, $widthCell); Text GUICtrlCreateLabel("Added Chrome and Safari option", 80, 120, $widthCell); Text ;Version 0.3 GUICtrlCreateLabel("V 0.3", 20, 135, $widthCell); Text GUICtrlCreateLabel("Added 'Additional Informatio'", 80, 135, $widthCell); Text ;Version 0.32 GUICtrlCreateLabel("V 0.32", 20, 150, $widthCell); Text GUICtrlCreateLabel("Made The Credits Window", 80, 150, $widthCell); Text ;Version 0.35 GUICtrlCreateLabel("V 0.35", 20, 165, $widthCell); Text GUICtrlCreateLabel("Made The Changelog Window", 80, 165, $widthCell); Text ;Version 0.38 GUICtrlCreateLabel("V 0.38", 20, 180, $widthCell); Text GUICtrlCreateLabel("Made The How To Use Window", 80, 180, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= HOW TO USE ============================================= Case $msg = $Button3 GUICreate("How To Use - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Simple Guide for Runescape AutoStartup -", 70, 15, $widthCell); Text ;Step 1 GUICtrlCreateLabel("- Step 1:", 20, 50, $widthCell); Text GUICtrlCreateLabel("Open The File, Select at wich step you want to start.", 35, 65, $widthCell); Text GUICtrlCreateLabel("Choose Default for starting the whole script.", 35, 80, $widthCell); Text ;Step 2 GUICtrlCreateLabel("- Step 2:", 20, 100, $widthCell); Text GUICtrlCreateLabel("Member or non-member?.", 35, 115, $widthCell); Text GUICtrlCreateLabel("This is for the World Chosing.", 35, 130, $widthCell); Text ;Step 3 GUICtrlCreateLabel("- Step 3:", 20, 150, $widthCell); Text GUICtrlCreateLabel("Choose the Browser you want to use.", 35, 165, $widthCell); Text GUICtrlCreateLabel("It needs to be in the default directory.", 35, 180, $widthCell); Text ;Step 4 GUICtrlCreateLabel("- Step 4:", 20, 200, $widthCell); Text GUICtrlCreateLabel("Just Wait until your account has logged in.", 35, 215, $widthCell); Text GUICtrlCreateLabel("When u want to quit just press 'Escape'", 35, 230, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 260, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd EndSelect WEnd EndFunc ; ================================================================ MEMBERS ================================================================ Case $msg = $member And BitAND(GUICtrlRead($member), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd EndSelect WEnd ; ========================================================== OTHER FUNCTIONS ========================================================== End Line = ; Stop the Script: Func Terminate() Exit 0 EndFunc Link to comment Share on other sites More sharing options...
bluelamp Posted September 29, 2008 Share Posted September 29, 2008 (edited) read the code... the last case is out of the loop Edited September 29, 2008 by bluelamp Link to comment Share on other sites More sharing options...
Rawox Posted September 29, 2008 Author Share Posted September 29, 2008 Woops, but it still does not work expandcollapse popup; ============================================= Runescape V2 Auto Startup - by Rawox ====================================== ; ========================================================== OTHER OPTIONS ========================================================== End = Line 10 ; Not display the tray icon. #NoTrayIcon ; Hotkey for stopping script HotKeySet("{ESC}", "Terminate") ; ========================================================== GUI - Browser NON MEMBER ========================================================== End = Line 44 #include <GUIConstantsEx.au3> Opt('MustDeclareVars', 1) Browser() Func Browser() Local $browser1, $browser2, $browser3, $browser4, $Button1, $Button2, $Button3, $nonmember, $member, $ExitButton, $widthCell, $msg GUICreate("Runescape AutoStartup","260","75"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Do you want an Member or Non-Member world?", 20, 15, $widthCell); Text $nonmember = GUICtrlCreateRadio("Non-Members World", 20, 40, 120, 20);For Non-Members $member = GUICtrlCreateRadio("Members World", 150, 40, 120, 20);For Members GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select ;OPTIONS Case $msg = $GUI_EVENT_CLOSE ExitLoop ; ================================================================ NONMEMBERS ================================================================ Case $msg = $nonmember And BitAND(GUICtrlRead($nonmember), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Non-member World.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) GUICreate("Runescape AutoStartup - Non Members","365","170"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Wich Browser do you want to use for Runescape AutoStartup?", 20, 15, $widthCell); Text $browser1 = GUICtrlCreateRadio("Mozilla Firefox", 20, 40, 120, 20);Option 1 $browser2 = GUICtrlCreateRadio("Apple Safari", 250, 40, 120, 20);Option 2 $browser3 = GUICtrlCreateRadio("Internet Explorer", 20, 70, 120, 20);Option 3 $browser4 = GUICtrlCreateRadio("Google Chrome", 250, 70, 120, 20);Option 4 GUICtrlSetState($browser3, $GUI_CHECKED);Checks Mozilla Firefox ;OTHER INFORMATION GUICtrlCreateLabel("Other Information:", 20, 100, $widthCell) $Button1 = GUICtrlCreateButton("Credits", 20, 130, 100) $Button2 = GUICtrlCreateButton("Changelog", 135, 130, 100) $Button3 = GUICtrlCreateButton("How To Use", 245, 130, 100) GUISetState() ; ================================================================ MOZILLA FIREFOX ================================================================ Run("C:\Program Files\Mozilla Firefox\firefox.exe") WinWaitActive("Mozilla Firefox") Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser2 And BitAND(GUICtrlRead($browser2), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser3 And BitAND(GUICtrlRead($browser3), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Internet Explorer.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive ( "Microsoft Internet Explorer" ) Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser4 And BitAND(GUICtrlRead($browser4), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Google Chrome.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ GOOGLE CHROME ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) ;OTHER INFORMATION ;============================================= CREDITS ============================================= Case $msg = $Button1 GUICreate("Credits - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Credits for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Credits Rawox GUICtrlCreateLabel("Rawox", 20, 50, $widthCell); Text GUICtrlCreateLabel("-", 150, 50, $widthCell); Text GUICtrlCreateLabel("Writing Script", 180, 50, $widthCell); Text ;Credits Jonathan Bennett GUICtrlCreateLabel("Jonathan Bennett", 20, 65, $widthCell); Text GUICtrlCreateLabel("-", 150, 65, $widthCell); Text GUICtrlCreateLabel("Making AutoIt", 180, 65, $widthCell); Text ;Credits AutoIt Forums GUICtrlCreateLabel("AutoIt Forums", 20, 80, $widthCell); Text GUICtrlCreateLabel("-", 150, 80, $widthCell); Text GUICtrlCreateLabel("Learning me AutoIt", 180, 80, $widthCell); Text ;Credits Mathijs GUICtrlCreateLabel("Mathijs", 20, 95, $widthCell); Text GUICtrlCreateLabel("-", 150, 95, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 95, $widthCell); Text ;Credits Robbinski12 GUICtrlCreateLabel("Robbinski12", 20, 110, $widthCell); Text GUICtrlCreateLabel("-", 150, 110, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 110, $widthCell); Text ;----------------- Website Links GUICtrlCreateLabel("- Website Links -", 80, 150, $widthCell); Text ;Links Rawox GUICtrlCreateLabel("My Portfolio:", 20, 175, $widthCell); Text GUICtrlCreateLabel("-", 150, 175, $widthCell); Text GUICtrlCreateLabel("http://rawox.byethost11.com", 180, 175, $widthCell); Text GUICtrlCreateLabel("My Deviant:", 20, 190, $widthCell); Text GUICtrlCreateLabel("-", 150, 190, $widthCell); Text GUICtrlCreateLabel("http://rawox.deviantart.com", 180, 190, $widthCell); Text ;Links AutoIt GUICtrlCreateLabel("AutoIt Homepage:", 20, 205, $widthCell); Text GUICtrlCreateLabel("-", 150, 205, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/", 180, 205, $widthCell); Text GUICtrlCreateLabel("AutoIt Forum", 20, 220, $widthCell); Text GUICtrlCreateLabel("-", 150, 220, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/forum/", 180, 220, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= CHANGELOG ============================================= Case $msg = $Button2 GUICreate("Changelog - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Changelog for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Information GUICtrlCreateLabel("Version", 20, 50, $widthCell); Text GUICtrlCreateLabel("Changed", 80, 50, $widthCell); Text ;Version 0.1 GUICtrlCreateLabel("V 0.1", 20, 75, $widthCell); Text GUICtrlCreateLabel("Started the Script", 80, 75, $widthCell); Text ;Version 0.15 GUICtrlCreateLabel("V 0.15", 20, 90, $widthCell); Text GUICtrlCreateLabel("Made this nice GUI", 80, 90, $widthCell); Text ;Version 0.2 GUICtrlCreateLabel("V 0.2", 20, 105, $widthCell); Text GUICtrlCreateLabel("Added Firefox and IExplorer option", 80, 105, $widthCell); Text ;Version 0.25 GUICtrlCreateLabel("V 0.25", 20, 120, $widthCell); Text GUICtrlCreateLabel("Added Chrome and Safari option", 80, 120, $widthCell); Text ;Version 0.3 GUICtrlCreateLabel("V 0.3", 20, 135, $widthCell); Text GUICtrlCreateLabel("Added 'Additional Informatio'", 80, 135, $widthCell); Text ;Version 0.32 GUICtrlCreateLabel("V 0.32", 20, 150, $widthCell); Text GUICtrlCreateLabel("Made The Credits Window", 80, 150, $widthCell); Text ;Version 0.35 GUICtrlCreateLabel("V 0.35", 20, 165, $widthCell); Text GUICtrlCreateLabel("Made The Changelog Window", 80, 165, $widthCell); Text ;Version 0.38 GUICtrlCreateLabel("V 0.38", 20, 180, $widthCell); Text GUICtrlCreateLabel("Made The How To Use Window", 80, 180, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= HOW TO USE ============================================= Case $msg = $Button3 GUICreate("How To Use - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Simple Guide for Runescape AutoStartup -", 70, 15, $widthCell); Text ;Step 1 GUICtrlCreateLabel("- Step 1:", 20, 50, $widthCell); Text GUICtrlCreateLabel("Open The File, Select at wich step you want to start.", 35, 65, $widthCell); Text GUICtrlCreateLabel("Choose Default for starting the whole script.", 35, 80, $widthCell); Text ;Step 2 GUICtrlCreateLabel("- Step 2:", 20, 100, $widthCell); Text GUICtrlCreateLabel("Member or non-member?.", 35, 115, $widthCell); Text GUICtrlCreateLabel("This is for the World Chosing.", 35, 130, $widthCell); Text ;Step 3 GUICtrlCreateLabel("- Step 3:", 20, 150, $widthCell); Text GUICtrlCreateLabel("Choose the Browser you want to use.", 35, 165, $widthCell); Text GUICtrlCreateLabel("It needs to be in the default directory.", 35, 180, $widthCell); Text ;Step 4 GUICtrlCreateLabel("- Step 4:", 20, 200, $widthCell); Text GUICtrlCreateLabel("Just Wait until your account has logged in.", 35, 215, $widthCell); Text GUICtrlCreateLabel("When u want to quit just press 'Escape'", 35, 230, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 260, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ; ================================================================ MEMBERS ================================================================ Case $msg = $member And BitAND(GUICtrlRead($member), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd EndSelect WEnd EndFunc ; ========================================================== OTHER FUNCTIONS ========================================================== End Line = ; Stop the Script: Func Terminate() Exit 0 EndFunc Link to comment Share on other sites More sharing options...
bluelamp Posted September 29, 2008 Share Posted September 29, 2008 expandcollapse popup; ============================================= Runescape V2 Auto Startup - by Rawox ====================================== ; ========================================================== OTHER OPTIONS ========================================================== End = Line 10 ; Not display the tray icon. #NoTrayIcon ; Hotkey for stopping script HotKeySet("{ESC}", "Terminate") ; ========================================================== GUI - Browser NON MEMBER ========================================================== End = Line 44 #include <GUIConstantsEx.au3> Opt('MustDeclareVars', 1) Browser() Func Browser() Local $browser1, $browser2, $browser3, $browser4, $Button1, $Button2, $Button3, $nonmember, $member, $ExitButton, $widthCell, $msg GUICreate("Runescape AutoStartup","260","75"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Do you want an Member or Non-Member world?", 20, 15, $widthCell); Text $nonmember = GUICtrlCreateRadio("Non-Members World", 20, 40, 120, 20);For Non-Members $member = GUICtrlCreateRadio("Members World", 150, 40, 120, 20);For Members GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select ;OPTIONS Case $msg = $GUI_EVENT_CLOSE ExitLoop ; ================================================================ NONMEMBERS ================================================================ Case $msg = $nonmember And BitAND(GUICtrlRead($nonmember), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Non-member World.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) GUICreate("Runescape AutoStartup - Non Members","365","170"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Wich Browser do you want to use for Runescape AutoStartup?", 20, 15, $widthCell); Text $browser1 = GUICtrlCreateRadio("Mozilla Firefox", 20, 40, 120, 20);Option 1 $browser2 = GUICtrlCreateRadio("Apple Safari", 250, 40, 120, 20);Option 2 $browser3 = GUICtrlCreateRadio("Internet Explorer", 20, 70, 120, 20);Option 3 $browser4 = GUICtrlCreateRadio("Google Chrome", 250, 70, 120, 20);Option 4 GUICtrlSetState($browser3, $GUI_CHECKED);Checks Mozilla Firefox ;OTHER INFORMATION GUICtrlCreateLabel("Other Information:", 20, 100, $widthCell) $Button1 = GUICtrlCreateButton("Credits", 20, 130, 100) $Button2 = GUICtrlCreateButton("Changelog", 135, 130, 100) $Button3 = GUICtrlCreateButton("How To Use", 245, 130, 100) GUISetState() ; ================================================================ MOZILLA FIREFOX ================================================================ Run("C:\Program Files\Mozilla Firefox\firefox.exe") WinWaitActive("Mozilla Firefox") Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser2 And BitAND(GUICtrlRead($browser2), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser3 And BitAND(GUICtrlRead($browser3), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Internet Explorer.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive ( "Microsoft Internet Explorer" ) Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser4 And BitAND(GUICtrlRead($browser4), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Google Chrome.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ GOOGLE CHROME ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) ;OTHER INFORMATION ;============================================= CREDITS ============================================= Case $msg = $Button1 GUICreate("Credits - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Credits for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Credits Rawox GUICtrlCreateLabel("Rawox", 20, 50, $widthCell); Text GUICtrlCreateLabel("-", 150, 50, $widthCell); Text GUICtrlCreateLabel("Writing Script", 180, 50, $widthCell); Text ;Credits Jonathan Bennett GUICtrlCreateLabel("Jonathan Bennett", 20, 65, $widthCell); Text GUICtrlCreateLabel("-", 150, 65, $widthCell); Text GUICtrlCreateLabel("Making AutoIt", 180, 65, $widthCell); Text ;Credits AutoIt Forums GUICtrlCreateLabel("AutoIt Forums", 20, 80, $widthCell); Text GUICtrlCreateLabel("-", 150, 80, $widthCell); Text GUICtrlCreateLabel("Learning me AutoIt", 180, 80, $widthCell); Text ;Credits Mathijs GUICtrlCreateLabel("Mathijs", 20, 95, $widthCell); Text GUICtrlCreateLabel("-", 150, 95, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 95, $widthCell); Text ;Credits Robbinski12 GUICtrlCreateLabel("Robbinski12", 20, 110, $widthCell); Text GUICtrlCreateLabel("-", 150, 110, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 110, $widthCell); Text ;----------------- Website Links GUICtrlCreateLabel("- Website Links -", 80, 150, $widthCell); Text ;Links Rawox GUICtrlCreateLabel("My Portfolio:", 20, 175, $widthCell); Text GUICtrlCreateLabel("-", 150, 175, $widthCell); Text GUICtrlCreateLabel("http://rawox.byethost11.com", 180, 175, $widthCell); Text GUICtrlCreateLabel("My Deviant:", 20, 190, $widthCell); Text GUICtrlCreateLabel("-", 150, 190, $widthCell); Text GUICtrlCreateLabel("http://rawox.deviantart.com", 180, 190, $widthCell); Text ;Links AutoIt GUICtrlCreateLabel("AutoIt Homepage:", 20, 205, $widthCell); Text GUICtrlCreateLabel("-", 150, 205, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/", 180, 205, $widthCell); Text GUICtrlCreateLabel("AutoIt Forum", 20, 220, $widthCell); Text GUICtrlCreateLabel("-", 150, 220, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/forum/", 180, 220, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= CHANGELOG ============================================= Case $msg = $Button2 GUICreate("Changelog - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Changelog for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Information GUICtrlCreateLabel("Version", 20, 50, $widthCell); Text GUICtrlCreateLabel("Changed", 80, 50, $widthCell); Text ;Version 0.1 GUICtrlCreateLabel("V 0.1", 20, 75, $widthCell); Text GUICtrlCreateLabel("Started the Script", 80, 75, $widthCell); Text ;Version 0.15 GUICtrlCreateLabel("V 0.15", 20, 90, $widthCell); Text GUICtrlCreateLabel("Made this nice GUI", 80, 90, $widthCell); Text ;Version 0.2 GUICtrlCreateLabel("V 0.2", 20, 105, $widthCell); Text GUICtrlCreateLabel("Added Firefox and IExplorer option", 80, 105, $widthCell); Text ;Version 0.25 GUICtrlCreateLabel("V 0.25", 20, 120, $widthCell); Text GUICtrlCreateLabel("Added Chrome and Safari option", 80, 120, $widthCell); Text ;Version 0.3 GUICtrlCreateLabel("V 0.3", 20, 135, $widthCell); Text GUICtrlCreateLabel("Added 'Additional Informatio'", 80, 135, $widthCell); Text ;Version 0.32 GUICtrlCreateLabel("V 0.32", 20, 150, $widthCell); Text GUICtrlCreateLabel("Made The Credits Window", 80, 150, $widthCell); Text ;Version 0.35 GUICtrlCreateLabel("V 0.35", 20, 165, $widthCell); Text GUICtrlCreateLabel("Made The Changelog Window", 80, 165, $widthCell); Text ;Version 0.38 GUICtrlCreateLabel("V 0.38", 20, 180, $widthCell); Text GUICtrlCreateLabel("Made The How To Use Window", 80, 180, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= HOW TO USE ============================================= Case $msg = $Button3 GUICreate("How To Use - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Simple Guide for Runescape AutoStartup -", 70, 15, $widthCell); Text ;Step 1 GUICtrlCreateLabel("- Step 1:", 20, 50, $widthCell); Text GUICtrlCreateLabel("Open The File, Select at wich step you want to start.", 35, 65, $widthCell); Text GUICtrlCreateLabel("Choose Default for starting the whole script.", 35, 80, $widthCell); Text ;Step 2 GUICtrlCreateLabel("- Step 2:", 20, 100, $widthCell); Text GUICtrlCreateLabel("Member or non-member?.", 35, 115, $widthCell); Text GUICtrlCreateLabel("This is for the World Chosing.", 35, 130, $widthCell); Text ;Step 3 GUICtrlCreateLabel("- Step 3:", 20, 150, $widthCell); Text GUICtrlCreateLabel("Choose the Browser you want to use.", 35, 165, $widthCell); Text GUICtrlCreateLabel("It needs to be in the default directory.", 35, 180, $widthCell); Text ;Step 4 GUICtrlCreateLabel("- Step 4:", 20, 200, $widthCell); Text GUICtrlCreateLabel("Just Wait until your account has logged in.", 35, 215, $widthCell); Text GUICtrlCreateLabel("When u want to quit just press 'Escape'", 35, 230, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 260, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE EndSelect WEnd ; ================================================================ MEMBERS ================================================================ Case $msg = $member And BitAND(GUICtrlRead($member), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd EndSelect WEnd EndFunc ; ========================================================== OTHER FUNCTIONS ========================================================== End Line = ; Stop the Script: Func Terminate() Exit 0 EndFunc You should try to write cleaner code man Link to comment Share on other sites More sharing options...
Rawox Posted September 29, 2008 Author Share Posted September 29, 2008 expandcollapse popup; ============================================= Runescape V2 Auto Startup - by Rawox ====================================== ; ========================================================== OTHER OPTIONS ========================================================== End = Line 10 ; Not display the tray icon. #NoTrayIcon ; Hotkey for stopping script HotKeySet("{ESC}", "Terminate") ; ========================================================== GUI - Browser NON MEMBER ========================================================== End = Line 44 #include <GUIConstantsEx.au3> Opt('MustDeclareVars', 1) Browser() Func Browser() Local $browser1, $browser2, $browser3, $browser4, $Button1, $Button2, $Button3, $nonmember, $member, $ExitButton, $widthCell, $msg GUICreate("Runescape AutoStartup","260","75"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Do you want an Member or Non-Member world?", 20, 15, $widthCell); Text $nonmember = GUICtrlCreateRadio("Non-Members World", 20, 40, 120, 20);For Non-Members $member = GUICtrlCreateRadio("Members World", 150, 40, 120, 20);For Members GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select ;OPTIONS Case $msg = $GUI_EVENT_CLOSE ExitLoop ; ================================================================ NONMEMBERS ================================================================ Case $msg = $nonmember And BitAND(GUICtrlRead($nonmember), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Non-member World.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) GUICreate("Runescape AutoStartup - Non Members","365","170"); Centered Dialog Box ;OPTIONS $widthCell = 400 GUICtrlCreateLabel("Wich Browser do you want to use for Runescape AutoStartup?", 20, 15, $widthCell); Text $browser1 = GUICtrlCreateRadio("Mozilla Firefox", 20, 40, 120, 20);Option 1 $browser2 = GUICtrlCreateRadio("Apple Safari", 250, 40, 120, 20);Option 2 $browser3 = GUICtrlCreateRadio("Internet Explorer", 20, 70, 120, 20);Option 3 $browser4 = GUICtrlCreateRadio("Google Chrome", 250, 70, 120, 20);Option 4 GUICtrlSetState($browser3, $GUI_CHECKED);Checks Mozilla Firefox ;OTHER INFORMATION GUICtrlCreateLabel("Other Information:", 20, 100, $widthCell) $Button1 = GUICtrlCreateButton("Credits", 20, 130, 100) $Button2 = GUICtrlCreateButton("Changelog", 135, 130, 100) $Button3 = GUICtrlCreateButton("How To Use", 245, 130, 100) GUISetState() ; ================================================================ MOZILLA FIREFOX ================================================================ Run("C:\Program Files\Mozilla Firefox\firefox.exe") WinWaitActive("Mozilla Firefox") Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser2 And BitAND(GUICtrlRead($browser2), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser3 And BitAND(GUICtrlRead($browser3), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Internet Explorer.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ APPLE SAFARI ================================================================ Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive ( "Microsoft Internet Explorer" ) Sleep ( 1500 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) Case $msg = $browser4 And BitAND(GUICtrlRead($browser4), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Google Chrome.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) ; ================================================================ GOOGLE CHROME ================================================================ Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) ;OTHER INFORMATION ;============================================= CREDITS ============================================= Case $msg = $Button1 GUICreate("Credits - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Credits for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Credits Rawox GUICtrlCreateLabel("Rawox", 20, 50, $widthCell); Text GUICtrlCreateLabel("-", 150, 50, $widthCell); Text GUICtrlCreateLabel("Writing Script", 180, 50, $widthCell); Text ;Credits Jonathan Bennett GUICtrlCreateLabel("Jonathan Bennett", 20, 65, $widthCell); Text GUICtrlCreateLabel("-", 150, 65, $widthCell); Text GUICtrlCreateLabel("Making AutoIt", 180, 65, $widthCell); Text ;Credits AutoIt Forums GUICtrlCreateLabel("AutoIt Forums", 20, 80, $widthCell); Text GUICtrlCreateLabel("-", 150, 80, $widthCell); Text GUICtrlCreateLabel("Learning me AutoIt", 180, 80, $widthCell); Text ;Credits Mathijs GUICtrlCreateLabel("Mathijs", 20, 95, $widthCell); Text GUICtrlCreateLabel("-", 150, 95, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 95, $widthCell); Text ;Credits Robbinski12 GUICtrlCreateLabel("Robbinski12", 20, 110, $widthCell); Text GUICtrlCreateLabel("-", 150, 110, $widthCell); Text GUICtrlCreateLabel("Helping Me", 180, 110, $widthCell); Text ;----------------- Website Links GUICtrlCreateLabel("- Website Links -", 80, 150, $widthCell); Text ;Links Rawox GUICtrlCreateLabel("My Portfolio:", 20, 175, $widthCell); Text GUICtrlCreateLabel("-", 150, 175, $widthCell); Text GUICtrlCreateLabel("http://rawox.byethost11.com", 180, 175, $widthCell); Text GUICtrlCreateLabel("My Deviant:", 20, 190, $widthCell); Text GUICtrlCreateLabel("-", 150, 190, $widthCell); Text GUICtrlCreateLabel("http://rawox.deviantart.com", 180, 190, $widthCell); Text ;Links AutoIt GUICtrlCreateLabel("AutoIt Homepage:", 20, 205, $widthCell); Text GUICtrlCreateLabel("-", 150, 205, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/", 180, 205, $widthCell); Text GUICtrlCreateLabel("AutoIt Forum", 20, 220, $widthCell); Text GUICtrlCreateLabel("-", 150, 220, $widthCell); Text GUICtrlCreateLabel("http://www.autoitscript.com/forum/", 180, 220, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= CHANGELOG ============================================= Case $msg = $Button2 GUICreate("Changelog - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Changelog for Runescape AutoStartup -", 80, 15, $widthCell); Text ;Information GUICtrlCreateLabel("Version", 20, 50, $widthCell); Text GUICtrlCreateLabel("Changed", 80, 50, $widthCell); Text ;Version 0.1 GUICtrlCreateLabel("V 0.1", 20, 75, $widthCell); Text GUICtrlCreateLabel("Started the Script", 80, 75, $widthCell); Text ;Version 0.15 GUICtrlCreateLabel("V 0.15", 20, 90, $widthCell); Text GUICtrlCreateLabel("Made this nice GUI", 80, 90, $widthCell); Text ;Version 0.2 GUICtrlCreateLabel("V 0.2", 20, 105, $widthCell); Text GUICtrlCreateLabel("Added Firefox and IExplorer option", 80, 105, $widthCell); Text ;Version 0.25 GUICtrlCreateLabel("V 0.25", 20, 120, $widthCell); Text GUICtrlCreateLabel("Added Chrome and Safari option", 80, 120, $widthCell); Text ;Version 0.3 GUICtrlCreateLabel("V 0.3", 20, 135, $widthCell); Text GUICtrlCreateLabel("Added 'Additional Informatio'", 80, 135, $widthCell); Text ;Version 0.32 GUICtrlCreateLabel("V 0.32", 20, 150, $widthCell); Text GUICtrlCreateLabel("Made The Credits Window", 80, 150, $widthCell); Text ;Version 0.35 GUICtrlCreateLabel("V 0.35", 20, 165, $widthCell); Text GUICtrlCreateLabel("Made The Changelog Window", 80, 165, $widthCell); Text ;Version 0.38 GUICtrlCreateLabel("V 0.38", 20, 180, $widthCell); Text GUICtrlCreateLabel("Made The How To Use Window", 80, 180, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 250, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd ;============================================= HOW TO USE ============================================= Case $msg = $Button3 GUICreate("How To Use - Runescape AutoStartup", 380, 300); will create a dialog box that when displayed is centered GUICtrlCreateLabel("- Simple Guide for Runescape AutoStartup -", 70, 15, $widthCell); Text ;Step 1 GUICtrlCreateLabel("- Step 1:", 20, 50, $widthCell); Text GUICtrlCreateLabel("Open The File, Select at wich step you want to start.", 35, 65, $widthCell); Text GUICtrlCreateLabel("Choose Default for starting the whole script.", 35, 80, $widthCell); Text ;Step 2 GUICtrlCreateLabel("- Step 2:", 20, 100, $widthCell); Text GUICtrlCreateLabel("Member or non-member?.", 35, 115, $widthCell); Text GUICtrlCreateLabel("This is for the World Chosing.", 35, 130, $widthCell); Text ;Step 3 GUICtrlCreateLabel("- Step 3:", 20, 150, $widthCell); Text GUICtrlCreateLabel("Choose the Browser you want to use.", 35, 165, $widthCell); Text GUICtrlCreateLabel("It needs to be in the default directory.", 35, 180, $widthCell); Text ;Step 4 GUICtrlCreateLabel("- Step 4:", 20, 200, $widthCell); Text GUICtrlCreateLabel("Just Wait until your account has logged in.", 35, 215, $widthCell); Text GUICtrlCreateLabel("When u want to quit just press 'Escape'", 35, 230, $widthCell); Text $ExitButton = GUICtrlCreateButton("Exit", 120, 260, 100) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE EndSelect WEnd ; ================================================================ MEMBERS ================================================================ Case $msg = $member And BitAND(GUICtrlRead($member), $GUI_CHECKED) = $GUI_CHECKED MsgBox(64, 'Info:', 'You have Chosen for: Apple Safari.') WinClose("Runescape AutoStartup");Closing Window Sleep ( 1000 ) Run("C:\Program Files\Safari\Safari.exe") Sleep ( 3000 ) MouseClick ( "left" , 500, 60 ) Sleep ( 200 ) Send ("http://www.runescape.com{ENTER}") WinWaitActive("RuneScape - the massive online adventure game by Jagex Ltd") Sleep ( 1000 ) MouseMove ( 1095, 375 ); Needed against dropdown MouseMove ( 1003, 485 ); Needed against dropdown MouseClick ( "left" , 900, 500 ) Sleep ( 2000 ) MouseClick ( "left" , 433, 566 ) Sleep ( 2500 ) MouseClick ( "left" , 433, 500 ) GUISetState() ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd EndSelect WEnd EndFunc ; ========================================================== OTHER FUNCTIONS ========================================================== End Line = ; Stop the Script: Func Terminate() Exit 0 EndFunc You should try to write cleaner code man >_< Now it's notworking anymore.. When I open it it opens the credit window, it needs to open the member/non-member window, if someone choosed non-member it needs to go to the browser window for non member if it choosed member it need to go to the browser window for members 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