[VB6] Neopets login and web debugging

[Ashleys165]

I made this for @(you need an account to see links) And just thought I would share.

I use Gluraks wrapper BTW.



And if you just want the raw code (Again, this is a very basic login)...

Dim strhtml As String

    strhtml = Wrapper1.GetWrapper("http://www.neopets.com/")
    If InStr(strhtml, "<a href=""/logout.phtm""><b>Logout</b></a>") Then
        strhtml = Wrapper1.GetWrapper("http://www.neopets.com/logout.phtml")
    End If

    strhtml = Wrapper1.GetWrapper("http://www.neopets.com/login/")
    strhtml = Wrapper1.PostWrapper("http://www.neopets.com/login.phtml", "destination=&username=" & user & "&password=" & pass, "http://www.neopets.com/login/")

    If InStr(1, strhtml, "badpassword") Then
msgbox "Bad Password Or Username, Try Again"
    ElseIf (InStr(strhtml, "<span style='color: #ff0000; font-weight: bold;'>If you DID break the rules, please do not contact us again.</span>")) Then
msgbox "Brrrr... This account is FROZEN."
    ElseIf InStr(1, strhtml, "index") Then
msgbox "You succesfully logged in as " & user.Text & ".  Have fun cheating!"


        strhtml = Wrapper1.GetWrapper("http://www.neopets.com/index.phtml")


    Else
msgbox "You Might Be Frozen :(  Or There Is An Unknown Error D:"
    End If

Sorry for the bad resolution. Make it full screen if you want to see better.