Hét vraag- en antwoordplatform van Nederland

Hoe kan ik meerdere opties toevoegen aan mijn vbs script?

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

Verwijderde gebruiker
13 jaar geleden
Geef jouw antwoord
0 / 2500
Geef Antwoord

Antwoorden (1)

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
bamibal
13 jaar geleden
Deel jouw antwoord
0 / 2500
Geef Antwoord
logo van Kompas Publishing

GoeieVraag.nl is onderdeel van Kompas Publishing