Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка значений для IF 
V
    Опции темы
Natapro
Дата 31.8.2010, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет



извиняюсь за глупый вопрос



  If RichTextBox1.Text = "Admin" Then
            Form3.Show()
          
        Else
            MsgBox("Неверный Пароль")
        End If

мне надо сделать как-бы авторизацию по логину и паролю

Вопрос как мне сделать что б он проверял верный или не верный пароль следущим способом..
У меня есть тхт файл в нём записаны пароли 1 строчка 1 пароль в таком виде Логин:Пароль
 и так строчек с паролями около 10
как мне сделать что б программа заходила в этот файл и проверяла есть ли такой пароль или нет, если есть то выполняло действие открытия формы


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
xXxSataNxXx
Дата 31.8.2010, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 118
Регистрация: 25.12.2009

Репутация: 1
Всего: 1



Код

        Dim SR As New IO.StreamReader("Путь к файлу")
        Dim ReadLine As String()
        Dim OK as Boolean = False
        While SR.EndOfStream = False
            ReadLine = Split(SR.ReadLine, ":")
            If TextBox1.Text = ReadLine(0) And TextBox2.Text = ReadLine(1) Then
                'Выполнение при удачной проверке...
                MsgBox("Вы правильно ввели логин и пароль")
                Form3.Show()
                OK = True
                Exit While
            End If
        End While
        If OK = False Then MsgBox("Вы ввели неправильный логин или пароль")


Это сообщение отредактировал(а) xXxSataNxXx - 31.8.2010, 13:25
PM MAIL   Вверх
Natapro
  Дата 31.8.2010, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет



 smile  smile  ПсипПО!!! smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »


 




[ Время генерации скрипта: 0.0674 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.