1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. kalito

    kalito Гость

    Репутация:
    0
    Код:
    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

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

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