Dim username As String Dim passwordclient As String Dim passwordserver As String Dim encrypted As String 'Login Button (Click) Private Sub loginbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loginbutton.Click loginbutton.Image = My.Resources.largeButton_orange_down 'Check if blank If TextBox1.Text.Length = 0 Or TextBox2.Text.Length = 0 Then MsgBox("One of the fields is blank.") Exit Sub Else username = TextBox1.Text passwordclient = TextBox2.Text End If encrypted = StringToMD5(passwordclient) 'Server connection WebBrowser1.Navigate("http://yugioh.hes78.com/" & username) 'Goes to WebBrowser1_DocumentCompleted End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted passwordserver = WebBrowser1.DocumentText If encrypted = passwordserver Then Form2.Show() Me.Hide() Else MsgBox("Error") End If End Sub
DocumentText
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)