1
abierto Basic 6.
2
Visual Seleccione "EXE estándar " de la nueva lista de proyectos.
3
Ir a la barra de menú superior , haga clic en "Proyecto" y haga clic en "Add Module. " Esto añadirá un módulo de código estándar en su proyecto VB6
4
Escriba o copie y pegue el código siguiente en el módulo: .
Sub VBPassword ()
Dim realpassword As String Dim
GetPassword As String
realpassword = " contraseña1 "
GetPassword = InputBox ( " ¿cuál es la clave? " )
Si GetPassword = realpassword Entonces
MsgBox ( "Contraseña Derecho . " )
demás
MsgBox ("password incorrecto , inténtelo de nuevo. " )
End If
End Sub
5
Press "F5 " para ejecutar el programa. Usted recibirá un cuadro de entrada solicitando una contraseña. Si introduce la contraseña correcta , que es " contraseña1 ", un cuadro de mensaje que dirá " Derecho contraseña . " Si introduce algo distinto contraseña1 , recibirá un cuadro de mensaje que dice "password incorrecto , vuelva a intentarlo. "