Sign in to follow this  
Followers 0
Rawox

$Member not working

5 posts in this topic

Does someone maybe know why the $member is not working, I can't figure it out :)

; ============================================= 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

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

read the code...

the last case is out of the loop

Edited by bluelamp

Share this post


Link to post
Share on other sites

Woops, but it still does not work :)

; ============================================= 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

Share this post


Link to post
Share on other sites

; ============================================= 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 :)

Share this post


Link to post
Share on other sites

; ============================================= 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 :)

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0