Advertisement
tonti666

Untitled

Oct 19th, 2017
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.27 KB | None | 0 0
  1. Private Sub WebBrowser2_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  2. If confirm = 1 Then
  3. confirm = 0
  4. Try
  5. Label6.Text = "Current Status: Checking account status"
  6.  
  7. If WebBrowser2.DocumentText.Contains("2") Then ' Check if they are "registered"
  8. Label6.Text = "Current Status: User is not premium"
  9. Label6.ForeColor = Color.Red
  10. confirmhwid = 0
  11. Else
  12. If WebBrowser2.DocumentText.Contains("7") Then ' Check if they are "banned"
  13. Label6.Text = "Current Status: User is banned"
  14. Label6.ForeColor = Color.Red
  15. confirmhwid = 0
  16. Else
  17. If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO"
  18. Label6.Text = "Current Status: Group accepted"
  19. MsgBox("Premium CS:GO")
  20. confirmhwid = 1
  21. Else
  22. If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO Beta"
  23. Label6.Text = "Current Status: Group accepted"
  24. MsgBox("Premium CS:GO Beta")
  25. confirmhwid = 1
  26. Else
  27. If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO Lite"
  28. Label6.Text = "Current Status: Group accepted"
  29. MsgBox("Premium CS:GO Lite")
  30. confirmhwid = 1
  31. Else
  32. If WebBrowser2.DocumentText.Contains("11") Then ' Check if they are "Premium Garry's Mod"
  33. Label6.Text = "Current Status: Group accepted"
  34. MsgBox("Premium Garry's Mod")
  35. confirmhwid = 1
  36. Else
  37. If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Admin"
  38. Label6.Text = "Current Status: Group accepted"
  39. MsgBox("Administrator")
  40. confirmhwid = 1
  41. End If
  42. End If
  43. End If
  44. End If
  45. End If
  46. End If
  47. End If
  48. Catch ex As Exception
  49. MsgBox("Error: usercheck_get.php not working. Yell at the 'dev' until they learn to read the README.md", vbCritical)
  50. End Try
  51. End If
  52.  
  53. 'Admin---------------------4
  54. 'Premium Garry's Mod-------11
  55. 'Premium CS:GO Lite--------9
  56. 'Premium CS:GO Beta--------10
  57. 'Premium CS:GO-------------8
  58. 'Banned--------------------7
  59. 'Not-----------------------2
  60.  
  61. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement