Foro de elhacker.net

Necesito saber que tengo mal en el codigo, ya que cuando meto mal la password no me deja volver a intentarlo, lo he puesto para que tenga 3 intentos, a ver si alguien me puede ayuda.

Private Sub Command1_Click()
 
Dim cont As Integer
cont = 0
Do While cont < 3
If user.Text = "user" And pass.Text = "prueba" Then
        Unload Me
        Form2.Show
Else
cont = cont + 1
MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
user.Text = ""
pass.Text = ""
End If
Loop
MsgBox "Adios...", vbInformation
Unload Me
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub 
 

HOLA!!!

Es un problema de logica lo tuyo, como haces el dowhile loop analiza 3 veces lo mismo y se cierra.
Asi te va a funcionar.

Dim cont As Integer
Private Sub Command1_Click()
    IF CONT = 3 THEN MsgBox "Adios...", vbInformation : END
    If user.Text = "user" And pass.Text = "prueba" Then
        Unload Me
        Form2.Show
    Else
        cont = cont + 1
        MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
        user.Text = ""
        pass.Text = ""
    End If
End Sub
 
Private Sub Command2_Click()
    Unload Me
End Sub 
 

GRACIAS POR LEER!!!

gracias maquina ; )
es que aun soy muy noob en esto xD

HOLA!!!

No hay problema estamoss para eso ;)

GRACIAS POR LEER!!!