Stap 2: Code
Dim wachtwoord
Dim Input
Wachtwoord = inputbox ("Enter het wachtwoord", "Wachtwoord", "Geef hier tekst")
doen
Input = inputbox ("deze computer is vergrendeld. Geef het password.","Wachtwoord","Geef hier tekst")
als wachtwoord = Input then
een = msgbox ("Correct! Welkom terug.", 0 + 64,"Computer")
anders
Als Input = "0000" then
b = msgbox ("Reset code ingevoerd.", 0 + 64, "Computer")
anders
c = msgbox ("onjuist. Probeer het opnieuw.", 0 + 16,"Computer")
eind als
eind als
lus tot wachtwoord = Input of Input = 0000
