Ciao a tutti, ho questo problema, purtroppo ho fatto qualche pasticcio e non riesco a risolverlo.
Vorrei limitare i tentativi di accesso ad un programma a 5 volte, dopo di che la form di login, si chiude e per 30 minuti non dovrebbe più permettere all'utente di poter riprovare a collegarsi.
Allego il frammento di codice che ho realizzato, ringrazio di cuore anticipatamente chiunque mi dicesse come correggere il codice stesso al fine di poter ottenere quanto descritto.
Saluti
Private Sub btnAccedi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccedi.Click
If txtUser.Text = "Utente" And txtPassword.Text = "Pippo" Then
F1 = New frmpAvvio
F1.Show()
Me.Hide()
F1 = Nothing
Else
MessageBox.Show("Nome Utente o Password errati, riprovare.")
Me.txtUser.Text = ""
Me.txtPassword.Text = ""
End If
'La password o il nome utente sono errati:
If User = False Then
sngNuV = 1 + sngNuV
MsgBox("Il Nome utente o la Password non sono corretti! Riprovare." & Chr(13) _
& "Prove effettuate " & sngNuV & " di 5." & Chr(13) _
& "Attenzione, al 5^ tentaivo il programma verrà chiuso!" & vbCritical, "Prova PW")
TxtApriPW.SetFocus()
TxtApriPW.SelStart = 0
TxtApriPW.SelLength = Len(TxtApriPW.Text)
If sngNuV > 3 Then
MsgBox("E' stata introdotta per cinque volte una PassWord non è corretta !" & Chr(13) _
& "Il programma verrà chiuso.", vbCritical, "Prova PW")
Unload(frmLogin)
frmLogin = Nothing
End
End If
End If
'Calcola i tentativi di accesso
Dim contaclick As Long
Dim totale As Integer
Private Sub Form_Click()
contaclick = contaclick + 1
totale = contaclick & ""
If totale = 5 Then
Me.Close()
End If
End Sub
