Hoe kan ik mijn VBS scripts laten loopen?

Question

Dit is wat ik nu heb:
--------------------------------------------------------------------
Inp01 = Inputbox ("Wat wilt u?",,"Input")
Select Case Inp01
Case "muziek"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("""C:\Program Files (x86)\Winamp\winamp.exe""")

Case "msn"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("""C:\Program Files (x86)\Windows Live\Messenger\msnmsgr.exe""")

Case Else
Msgbox "Verkeerde input"

End Select
--------------------------------------------------------------------

Nu wil ik een loop maken, dat dit doet:

Als ik muziek ingeef krijg ik weer een inputbox met erin Muziek word gestart, Kan ik nog iets anders voor u doen?

En als ik een verkeerde input geef moet hij prompten met: "opdracht niet gevonden probeer opnieuw" en bij cencel moet de programma afsluiten

Bij voorbaad dank!

bamibal · Accepted Answer

In VBS werkt dat zo:

Inp01 = inputbox("Wat wilt u?",,"Input")
Do
  Select Case Inp01
    Case "Muziek"
      ' je code hier
    Case "msn"
      ' je code hier
    Case "cancel"
      exit do
    Case Else
     Msgbox "Verkeerde input"
  End Select
  Inp01 = inputbox("Anders nog iets?",,"Input")  
Loop

Hoe kan ik mijn VBS scripts laten loopen?

Het beste antwoord

Weet jij het beter..?