Guest User

Untitled

a guest
Oct 10th, 2017
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2. Dim result As String = WebClient.DownloadString("url.com/login.php?username=" + TextBox1.Text + "&password=" + TextBox2.Text)
  3. If result = "Login.Success" Then
  4. MessageBox.Show("Login successful.")
  5. Form2.premium = True
  6. Else
  7. If result = "Login.Failed" Then
  8. MessageBox.Show("Failed to login.")
  9. Else
  10. MessageBox.Show("An Error Occured!")
  11. End If
  12.  
  13. End If
  14.  
  15. End Sub
Advertisement
Add Comment
Please, Sign In to add comment