Hoe kan ik meerdere opties toevoegen aan mijn vbs script?

Question

Dit is wat ik nu heb, heb het samengesteld uit voorbeelden van andere vbs scripts:

--------------------------------------------------------------------
Inp01 = Inputbox ("Wat wilt u?",,"Input")
If Inp01 = "Muziek" then

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

Else
Msgbox "Verkeerde input"
End if
--------------------------------------------------------------------

Wat ik wil is dus meerdere inputs dus als ik msn invoer start het msn op.

Toegevoegd na 1 uur:
Door Bami bal heb ik nu dit:

--------------------------------------------------------------------
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 opgeef muziek 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 hij prompt met opdracht niet gevonden probeer opnieuw en bij cencel afsluiten

bamibal · Answer

Dan wordt het zoiets:

Select Case Inp01
  Case "Muziek"
    je code hier
  Case "msn"
    je andere code hier
  Case Else
    Msgbox "Verkeerde input"
End Select

Toegevoegd na 15 uur:
n.a.v. je toevoeging:

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

Hoe kan ik meerdere opties toevoegen aan mijn vbs script?

Antwoorden (1)

Weet jij het beter..?