Loop problems :(

[Newbi3]

Code:

#include <GuiConstantsEx.au3>

#include <IE.au3>

MainGui()

Func MainGui()

Local $Run, $Button_2, $msg

GUICreate("Short Cuts") ; will create a dialog box that when displayed is centered

Opt("GUICoordMode", 2)

$Run = GUICtrlCreateButton("Run Somthing", 0, 0, 100)

$Button_2 = GUICtrlCreateButton("Go to a website", 0, -1)

GUISetState() ; will display an dialog box with 2 button

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $Run

$program = InputBox ("What program?", "Type program name and extestion here")

Run($program)

Case $msg = $Button_2

$program = InputBox ("Which website?", "Type website name here")

Dim $iMsgBoxAnswer

$iMsgBoxAnswer = MsgBox(36,"Ready?","Do you have Internet Explorer running?")

Select

Case $iMsgBoxAnswer = 6 ;Yes

Case $iMsgBoxAnswer = 7 ;No

WEnd

EndSelect

Run($program)

EndFunc

----------------------------------------------------------------------------------------------------------------------------

I made this program today to make it easier to do things. I am going to add MANY more things you can do . I can not run it though because it says there is no While for the WEnd or no WEnd for the While ??? . I was wondering if any of you people can help me out. Thanks for ANY help in advance

P.S. There is a download if you prefer to download the code

AMP.au3

[kaotkbliss]

endselect should go before your wend

[enaiman]

Indentation (TAB use) has a very good purpose: to help with such cases (If/EndIf, Select/EndSelect, Switch/EndSwitch ...) USE IT and think a little before asking for help.

You had 1x EndSelect missing and WEnd position was wrong in relation to your EndSelect.

Use "autoit" tags to post your code.

Here is the fixed code:

Func MainGui()

    Local $Run, $Button_2, $msg
    GUICreate("Short Cuts") ; will create a dialog box that when displayed is centered
    Opt("GUICoordMode", 2)
    $Run = GUICtrlCreateButton("Run Somthing", 0, 0, 100)
    $Button_2 = GUICtrlCreateButton("Go to a website", 0, -1)

    GUISetState() ; will display an dialog box with 2 button

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Run
                $program = InputBox ("What program?", "Type program name and extestion here")
                Run($program)
            Case $msg = $Button_2
                $program = InputBox ("Which website?", "Type website name here")

                Dim $iMsgBoxAnswer
                $iMsgBoxAnswer = MsgBox(36,"Ready?","Do you have Internet Explorer running?")
                Select
                    Case $iMsgBoxAnswer = 6 ;Yes
                        Run($program)
                    Case $iMsgBoxAnswer = 7 ;No
                        
                EndSelect
        EndSelect
    WEnd
EndFunc

Edited February 19, 2010 by enaiman