La verdad pides demasiado a mi modo de entender, si estas programando un control de nóminas, ¿como es que no puedes límitar el intento de acceso?, solo declara un contador que te permita verificar el número de intentos, ahora que si lo que quieres es que un usuario tenga tres contraseñas hay de dos opciones o los incluyes en el código o en algún archivo ya sea de texto o de cualquier tipo o en una base de datos y ejecutas una consulta SQL para solicitar los datos, eso ya te lo dejo a tu imaginación o a tus necesidades. Aqui te dejo un ejemplo de como quedaría en VB6
Public tuUsuario as String, tuContraseña as String, Intentos as Integer
Private Sub Ingresar_Click()
tuUsuario = txUsuario
tuContraseña = txPass
' Aqui metes el SQL o si usas la contraseña en código entonces
If tuUsuario = "Prueba" Then 'No critiques mi contraseña
If tuContraseña "Para soquetes" Then
'Aquí metes el código para dejarlo pasar
Exit Sub 'Para no continuar con el resto
Else
Intentos = Intentos + 1
End If
End If
'Si quieres ser más extricto también puedes restringir el nombre de Usuario
'Intentos = Intentos + 1
If Intentos > 2 Then
'Bueno también puedes agregar un código para asustarlo, como ya dije eso
'depende de la imaginación de cada quien
End
End if
End Sub
;DEspero que te sirva y si no pues explicate mejor!!!!!!
Autor
En línea
