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

Heb je meer informatie nodig om de vraag te beantwoorden? Reageer dan hier.

Geef jouw antwoord

Het is niet mogelijk om je eigen vraag te beantwoorden Je mag slechts 1 keer antwoord geven op een vraag Je hebt vandaag al antwoorden gegeven. Morgen mag je opnieuw maximaal antwoorden geven.

/
Geef Antwoord
+
Selected image

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
(Lees meer...)
bamibal
13 jaar geleden
Deel jouw antwoord

Het is niet mogelijk om je eigen vraag te beantwoorden Je mag slechts 1 keer antwoord geven op een vraag Je hebt vandaag al antwoorden gegeven. Morgen mag je opnieuw maximaal antwoorden geven.

/
Geef Antwoord
+
Selected image