Well here is the video. It will help with web debugging too.
And if you just want the raw code...
Code:
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