Cómo hacer un bloqueo del equipo (2 / 5 paso)

Paso 2: código

Contraseña débil
Entrada DIM

Contraseña = inputbox ("Introduzca la contraseña", "Contraseña", "Introduce texto aquí")
hacer
Entrada = inputbox ("este equipo está bloqueado. Escriba la contraseña.","Contraseña","Introduce texto aquí")
Si contraseña = entrada entonces
a = msgbox ("correcto! ¡ Bienvenido atrás.", 0 + 64,"PC")
otra cosa
Si entrada = "0000", entonces
b = msgbox ("Reset código introducido.", 0 + 64, "PC")
otra cosa
c = msgbox ("incorrecto. Vuelva a intentarlo.", 0 + 16,"PC")
terminar si
terminar si
bucle hasta contraseña = entrada o entrada = 0000