Получить имя пользователя и пароль из текстового файла в Интернете - PullRequest
1 голос
/ 10 декабря 2011

У меня есть следующий код:

Dim userName As String
Dim passWord As String

'
' Populate userName and passWord from an online text file ...
'

If textbox1.text = userName AndAlso Textbox2.text = passWord Then
    MsgBox("Welcome")
Else 
    MsgBox("UserName or Password incorrect")
End If

Как проверить пользователя и пароль по онлайн-текстовому файлу с URL-адреса, содержащего такие данные, как:

User;Password

1 Ответ

0 голосов
/ 10 декабря 2011

Вы можете использовать WebClient методы класса - DownloadFile или DownloadString или DownloadData для чтения URL.

EDIT: используйте метод String.Split () для разделения имени пользователяи пароль.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
 Dim wc As New WebClient 
 Dim strings As String 
 strings = wc.DownloadString("weebly.com/uploads/9/5/8/9/9589176/passwords.txt";) 
 wc.Dispose() 

 Dim ar() as String = strings.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
 IF ar(0)=TextBox1.Text and ar(1)=TextBox2.Text Then 
   MessageBox.Show("Welcome ", "Welcome", MessageBoxButtons.OK, MessageBoxIcon.Information) 
   Form2.Show() 
 Else 
   MsgBox("Wrong Password Try Again") 
 End If 
End Sub
...