Cita:
Iniciado por l222p 
Hola!!!
imaginen , tengo un formulario de contraseña, con usuario y contraseña, y dos botones Iniciar y Cancelar.
Bueno, como hago para que cuando el usuario se equivoque 3 veces al intentar entrar a otro form, como q se cancele la entrada en 10 minutos, o sea que no puede volver intentar entrar otra vez hasta que pasen 10 minutos q codigo sería??
La otra es, que cuando este en el textbox, al darle ENTER pueda entrar sin necesitad de darle click al boton Iniciar, que codigo sería??
Les agradecere mucho
Hola.. creo q te servira esto:
Public Class Form1
Dim contador As Int16
contador = contador + 1
MsgBox("Verifique usuario y contraseña", MsgBoxStyle.Exclamation)
End If
If contador = 3 Then
MsgBox("Sorry... intento mas de 3 veces", MsgBoxStyle.Critical)
con.Dispose()
con.Close()
Application.Exit()
End If
algo asi seria la logica para q tengas un formulario q al fallar tres veces te saque del sistema. Mas abajo te pongo mi codigo completo. espero te sirva:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim contador As Int16
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Application.Exit()
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim csb As New SqlConnectionStringBuilder
With csb
.DataSource = "RAAB\SQLEXPRESS"
.InitialCatalog = "inventario"
.IntegratedSecurity = True
End With
Using con As New SqlConnection(csb.ConnectionString)
con.Open()
Dim cmd2 As New SqlCommand("select id_usuario " & _
"from usuarios " & _
"where usuario = @usuario and pass = @password; ", con)
With cmd2
.Parameters.AddWithValue("@usuario", Me.txtusuario.Text)
.Parameters.AddWithValue("@password", Me.txtpassword.Text)
End With
Dim i As Integer
i = CInt(cmd2.ExecuteScalar())
If i > 0 Then
contador = 0
MsgBox("Bienvenido!!", MsgBoxStyle.Information)
Exit Sub
Else
contador = contador + 1
MsgBox("Verifique usuario y contraseña", MsgBoxStyle.Exclamation)
End If
If contador = 3 Then
MsgBox("Sorry... intento mas de 3 veces", MsgBoxStyle.Critical)
con.Dispose()
con.Close()
Application.Exit()
End If
End Using
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
SALUDOS!!