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

Тема в разделе "Visual Basic", создана пользователем kalito, 6 янв 2012.

  1. kalito

    kalito Гость

    Код (LotusScript):
    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
     
  2. LuMee

    LuMee Well-Known Member

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

Поделиться этой страницей