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, jepi vlera variablave. 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) 'Lidhja me serverin. Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://yugiohdatabase.byethost7.com/database/" & username) Dim resp As System.Net.WebResponse = req.GetResponse Str = resp.GetResponseStream srRead = New System.IO.StreamReader(Str) 'Read all the text passwordserver = srRead.ReadToEnd System.Threading.Thread.Sleep(1000) 'Shikon nese passwordet jane te njejte. If passwordserver = encrypted Then Form2.Show() Me.Hide() Else MsgBox("Password or Username do not match, please retry.", MsgBoxStyle.OkOnly, "Login failed") End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)