Étape 2: Code
Password protected
Dim Input
Mot de passe = inputbox ("Entrez le mot de passe", "Password", "Entrez le texte ici")
faire
Entrée = inputbox ("cet ordinateur est verrouillé. Entrez le mot de passe.","Password","Entrez le texte ici")
Si mot de passe = entrée puis
un = msgbox ("Correct ! Bienvenue dos.", 0 + 64,"Computer")
d’autre
Si Input = « 0000 » then
b = msgbox ("Reset code entré.", 0 + 64, « Computer »)
d’autre
c = msgbox ("Incorrect. Try again.", 0 + 16,"Computer")
fin si
fin si
boucle jusqu’au mot de passe = entrée ou entrée = 0000