Complex NeoLogin [vb6]

[Zachafer]

'============================
'MADE BY ZACHAFER
'============================
'If you use this please give
'me credits for login. Thanks
'and enjoy! This was written
'on 4/25/07. Email:
'vb6eats@yahoo.com


Private Sub cmdLogin_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim strUser As String
Dim strPet As String
Dim strNP As String
        lblStatus.Caption = "Logging to Neopets."
    str1 = wrap.GetWrapper("http://www.neopets.com/loginpage.phtml", "http://www.neopets.com")
        lblStatus.Caption = "Visiting Login Page."
            SecondsToWait 1
    str2 = wrap.PostWrapper("http://neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2Fpetcentral.phtml", wrap.LastPage)
        lblStatus.Caption = "Logging In."
            SecondsToWait 1
    str3 = wrap.GetWrapper("http://neopets.com/petcentral.phtml", "http://neopets.com")
        lblStatus.Caption = "Visiting Pet Central."
            SecondsToWait 1
    If InStr(1, str3, "Pet Central", vbTextCompare) Then
    lblStatus.Caption = "Logged In As " & txtUser.Text & ""
    Frame1.Enabled = False
    Frame2.Enabled = True
    SecondsToWait 1
    str2 = wrap.GetWrapper("http://neopets.com/petcentral.phtml", wrap.LastPage)
    strUser = GB(str3, "/randomfriend.phtml?user=", ">")
    lblUser.Caption = "Logged In As: " & strUser & ""
    strPet = GB(str3, "Pet : <a class=tl href=/quickref.phtml>", "</a>", 1)
    lblPet.Caption = "Active Pet: " & strPet & ""
    strNP = GB(str3, "NP : <a class=tl href=/objects.phtml?type=inventory>", "</a>", 1)
    lblNP.Caption = "Current NP: " & strNP & ""
        lblStatus.Caption = "Grabbed Login Details."
        End If
    ElseIf InStr(1, str3, "combination is invalid. Either ", vbTextCompare) Then
        lblStatus.Caption = "Bad Password for " & txtUser.Text & ""
        Frame1.ForeColor = &HFF&
        End If
    ElseIf InStr(1, str3, "This account has been", vbTextCompare) Then
        lblStatus.Caption = "The Account " & txtUser.Text & " Has Been Frozen."
        Frame1.ForeColor = &HFF&
        Else
        Frame1.ForeColor = &HFF&
        lblStatus.Caption = "Unknown Error."
        End If
        End Sub
'==============================
'sockopen's GetBetween Function:
'==============================
Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
    lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
End Function

Cool.

No longer works.

[Aethean]

Mind explaining why and how to fix it..?

[Zachafer]

I know.
Stupid Neopets Changed everythin!
DANGIT

[second2none]

My neo login works fine o.0

[Zachafer]

Cool.
Does it show the amount of NP and active pet?

I bet not.

[second2none]

yeha.. o.0 Just had to change the GB start & finish. Wasn't hard took like 2 seconds o.0

[Zachafer]

What GB?

[second2none]

GetBetween o.0 Sockopens one. To get the Pet & Username.

[Zachafer]

post the GB code plox

edit:

Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
    lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
End Function

right?