Script repeat needed

[Guest]

Hello GUIs (Pun)

Jokes aside I am currently creating a simple bit of software that executes a human command (like open cd tray) fed in through an inputbox which is then executed as autoit3

the script goes like this

(Not actual script, real one 960 lines!)

dim $question
$question = inputbox("command", "Type your command", "")
if $question = "cd tray open"
      cdtray("D:", "open")
endif
if $question = "shutdown"
      shutdown(1)
endif

Sorry for any messups in my code the real one works.

at the end of my script i want an inputbox where you can type in yes/no then an mini version of the full script above.

dim $question
$question = inputbox("command", "do you want to go again?", "YES/NO")
if $question = "no"
       "WHAT DO I HAVE TO TYPE TO STOP THE SCRIPT"
endif
if $question = "shutdown"
       "RE-START SCRIPT"
endif

I would use 'goto' but it does not work?

I need the script to re-start from line 8 (after variables declared(time/date/username/shutdown password))

I can not put it into an infinate loop because if I use a hotkey to exit it will stop slap bang in the middle of my script (BAD!!!!)

please could someone help...

[qsek]

How about using functions? (Pun)

Look here: http://www.autoitscript.com/autoit3/docs/faq.htm#4

Edited February 25, 2012 by qsek

[Robjong]

expandcollapse popup

; using InputBox
_Foo()
Dim $sAnswer
While 1
    $sAnswer = InputBox("Repeat?", "do you want to go again?", "YES/NO")
    If @error Then
        ConsoleWrite("!> INPUTBOX CANCELED/CLOSED" & @CRLF)
        ExitLoop
    ElseIf $sAnswer = "no" Then
        ConsoleWrite("-> STOP SCRIPT" & @CRLF)
        ExitLoop
    ElseIf $sAnswer = "yes" Then
        ConsoleWrite("-> RE-START SCRIPT" & @CRLF)
        _Foo()
    Else
        ConsoleWrite("!> INVALID ANSWER" & @CRLF)
    EndIf
WEnd

Func _Foo()
    ConsoleWrite("RUN SCRIPT" & @CRLF)
    ; script here ...
EndFunc


; using MsgBox
_Bar()

Dim $iAnswer
While 1
    $iAnswer = MsgBox(4, "Repeat?", "do you want to go again?")
    If $iAnswer = 7 Then
        ConsoleWrite("-> STOP SCRIPT" & @CRLF)
        ExitLoop
    ElseIf $iAnswer = 6 Then
        ConsoleWrite("-> RE-START SCRIPT" & @CRLF)
        _Bar()
    EndIf
WEnd

Func _Bar()
    ConsoleWrite("RUN SCRIPT" & @CRLF)
    ; script here ...
EndFunc

[Guest]

That does not make sense.

If you type no it plays the script and if you type yes it asks you (Yes/no) again

but i have removed the first

; using InputBox
_Foo()
Dim $sAnswer
While 1
    $sAnswer = InputBox("Repeat?", "do you want to go again?", "YES/NO")
    If @error Then
        ConsoleWrite("!> INPUTBOX CANCELED/CLOSED" & @CRLF)
        ExitLoop
    ElseIf $sAnswer = "no" Then
        ConsoleWrite("-> STOP SCRIPT" & @CRLF)
        ExitLoop
    ElseIf $sAnswer = "yes" Then
        ConsoleWrite("-> RE-START SCRIPT" & @CRLF)
        _Foo()
    Else
        ConsoleWrite("!> INVALID ANSWER" & @CRLF)
    EndIf
WEnd

and it works like a charm. thanks for your help I appreciate it, I will give credit.

when I am finished i will upload, if you type credits it will bring up your name!

Edited February 25, 2012 by Guest