Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Загрузка значений для IF

Автор: Natapro 31.8.2010, 10:22

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

  If RichTextBox1.Text = "Admin" Then
            Form3.Show()

        Else
            MsgBox("Неверный Пароль")
        End If

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

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

Автор: xXxSataNxXx 31.8.2010, 13:21

Код


        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("Вы ввели неправильный логин или пароль")

Автор: Natapro 31.8.2010, 14:17

ПсипПО!!!