.vbs w8woord maken

[m4dc0w344]

hoi als eerste wil ik me zelf ff voorstelen ik ben m4dc0w344 ben 15 jar oud en ben een nieuwe .vbs scritkid

mijn vraag is ? kan je een w8woord maken op je .vbs script?

 

[JoZ1]

Zoiets dus:

a=inputbox("Voer hier het wachtwoord in.","Titel")

Select Case a
Case "JoZ1"
b=msgbox("Correct!")
Case else
b=msgbox("Fout!")
End Select

 

[m4dc0w344]

hoe werkt dat wanner je een popup wilt maken wanner je op annuleren drukt

ik heb

a=inputbox("Voer hier het wachtwoord in.","Titel")
select case a
case Cancel
msgbox"doei"
end select

Select Case a
Case "JoZ1"
b=msgbox("Correct!")
Case else
b=msgbox("Fout!")
End Select

dan krijg je eerst wel die doei te zien maar daarna die fout!

 

[edmoor]

Select Case InputBox("Voer hier het wachtwoord in.","Titel")

    Case Cancel
	MsgBox "Doei"

    Case "JoZ1"
	MsgBox "Correct!"

    Case Else
	MsgBox "Fout!"

End Select

NB.
Een klik op Ok bij een lege invoer wordt ook als Cancel gezien.

 

[JoZ1]

Daar kan je niets aan doen, maar het is toch niet zo'n probleem dat niets intikken ook als cancel wordt gezien?

 

[edmoor]

Het is ook maar een opmerking, zodat de topicstarter er later geen vragen over hoeft te stellen.

 

[m4dc0w344]

slim en het doet het