Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Login
- Dim wClient As New System.Net.WebClient
- Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim results As String = wClient.DownloadString("http://falloutgaming.esy.es/Login/handler.php?action=register&username=" + TextBox1.Text + "&password=" + TextBox2.Text)
- If results = "1" Then
- MessageBox.Show("Successfully Registered!")
- ElseIf results = "0" Then
- MessageBox.Show("There Is An Error, Please Try Again")
- End If
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- Dim results As String = wClient.DownloadString("http://falloutgaming.esy.es/Login/handler.php?action=login&username=" + TextBox1.Text + "&password=" + TextBox2.Text)
- If results = "1" Then
- MessageBox.Show("Successfully Logged In!")
- Form1.Show()
- Me.Hide()
- ElseIf results = "0" Then
- MessageBox.Show("Invalid Login Info", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement