Advertisement
Guest User

Login

a guest
Jun 2nd, 2018
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.71 KB | None | 0 0
  1. Public Class Form2
  2. Dim wClient As New System.Net.WebClient
  3.  
  4. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  5. Dim result As String = wClient.DownloadString("pwg-unlimited.rf.gd/login/handler.php?action=login&username=" + TextBox1.Text + "&password=" + TextBox2.Text)
  6.  
  7. If result = "1" Then
  8. MessageBox.Show("Welcome to PWGhost Builder, Enjoy!")
  9. Me.Hide()
  10. Form1.Show()
  11.  
  12. ElseIf result = "0" Then
  13. MessageBox.Show("Invalid Credentials, Copy/Paste the User/Pass provided to You when You purchased from rocketr.net")
  14. End If
  15.  
  16. End Sub
  17.  
  18. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  19. Application.Exit()
  20. End Sub
  21. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement