Forum

[Bump J]

My Version Of GG Auth

Go to Project>Refrences and check Microsoft XML, v3.0

Dim Wrapper As ServerXMLHTTP30
Dim strHTML As String

Private Sub Form_Load()
Set Wrapper = New ServerXMLHTTP30
End Sub

Private Sub cmdDoAuth_Click()
    Me.Caption = "Step 1..."
    Wrapper.open "POST", "http://www.gaminggutter.com/login.php?do=login"
    Wrapper.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    Wrapper.send "vb_login_username=" & txtUser.Text & "&vb_login_password=" & txtPass.Text & "&s=&do=login&vb_login_md5password=&vb_login_md5password_utf="
    strHTML = ""
    strHTML = Wrapper.responseText
    
    If InStr(1, strHTML, "Thank you for logging in") = 0 Then
        MsgBox "Failed To Login"
        
    ElseIf InStr(1, strHTML, "Thank you for logging in") <> 0 Then
    
        Me.Caption = "Step 2..."
        Wrapper.open "GET", "http://www.gaminggutter.com/neopets-f54.html"
        Wrapper.send
        strHTML = ""
        strHTML = Wrapper.responseText
        
        If InStr(1, strHTML, "permission to access this page") <> 0 Then
            MsgBox "Your Not Authorized"
        ElseIf InStr(1, strHTML, "permission to access this page") = 0 Then
            MsgBox "Authorized"
        End If
    End If
End Sub