Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub WebBrowser2_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- If confirm = 1 Then
- confirm = 0
- Try
- Label6.Text = "Current Status: Checking account status"
- If WebBrowser2.DocumentText.Contains("2") Then ' Check if they are "registered"
- Label6.Text = "Current Status: User is not premium"
- Label6.ForeColor = Color.Red
- confirmhwid = 0
- Else
- If WebBrowser2.DocumentText.Contains("7") Then ' Check if they are "banned"
- Label6.Text = "Current Status: User is banned"
- Label6.ForeColor = Color.Red
- confirmhwid = 0
- Else
- If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO"
- Label6.Text = "Current Status: Group accepted"
- MsgBox("Premium CS:GO")
- confirmhwid = 1
- Else
- If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO Beta"
- Label6.Text = "Current Status: Group accepted"
- MsgBox("Premium CS:GO Beta")
- confirmhwid = 1
- Else
- If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Premium CS:GO Lite"
- Label6.Text = "Current Status: Group accepted"
- MsgBox("Premium CS:GO Lite")
- confirmhwid = 1
- Else
- If WebBrowser2.DocumentText.Contains("11") Then ' Check if they are "Premium Garry's Mod"
- Label6.Text = "Current Status: Group accepted"
- MsgBox("Premium Garry's Mod")
- confirmhwid = 1
- Else
- If WebBrowser2.DocumentText.Contains("4") Then ' Check if they are "Admin"
- Label6.Text = "Current Status: Group accepted"
- MsgBox("Administrator")
- confirmhwid = 1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- Catch ex As Exception
- MsgBox("Error: usercheck_get.php not working. Yell at the 'dev' until they learn to read the README.md", vbCritical)
- End Try
- End If
- 'Admin---------------------4
- 'Premium Garry's Mod-------11
- 'Premium CS:GO Lite--------9
- 'Premium CS:GO Beta--------10
- 'Premium CS:GO-------------8
- 'Banned--------------------7
- 'Not-----------------------2
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement