Идентификации И Аутентификации Пользователей

[kalito]

Private Sub Command1_Click()
Dim i As Integer
5 i = 0
t0 = Timer
10 i = i + 1
If Text1.Text = "ккк" And Text2.Text = "1234" Or Text1.Text = "ккк1" And Text2.Text = "1234" Or Text1.Text = "ккк2" And Text2.Text = "1234" Then
Label3.Caption = "Доступ предоставлен"
ElseIf i > 3 Then
Label3.Caption = "Доступ отказан"

GoTo 5
Else
Label3.Caption = "Вы превысили число попыток"
Text1.Text = ""
Text2.Text = ""
End If
GoTo 10
20 End Sub

 

[LuMee]

Не знаю, актуально еще или нет...
Виснет она из-за строки GoTo 10, которая, независимо от результатов проверки, снова пользователя к этой проверке возвращает. Выход - убрать эту строку (она, вроде, ничего полезного все равно не делает). Заодно рекомендую вообще выкинуть все GoTo из данного фрагмента, ибо они тоже не нужны. Ну или разве что пользователь за те микросекунды, что занимает выполнение GoTo, успеет ввести новые логин/пароль