[VB6] Neopets login and web debugging

[Ashleys165]

I made this for fairydust201 And just thought I would share.

I use Gluraks wrapper BTW.


[Only registered and activated users can see links]

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


Dim strhtml As String

strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
If InStr(strhtml, "<a href=""/logout.phtm""><b>Logout</b></a>") Then
strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
End If

strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
strhtml = Wrapper1.PostWrapper("[Only registered and activated users can see links]", "destination=&username=" & user & "&password=" & pass, "[Only registered and activated users can see links]")

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("[Only registered and activated users can see links]")


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.

[fairydust201]

owe !! looking good ash <3 Thanks hun

[Endo42]

Will for sure be using this. Thanks.

[thehacker921]

same here thanks for the help really helped.