Results 1 to 4 of 4

Thread: [VB6] Neopets login and web debugging

  1. #1

    Joined
    Dec 2011
    Posts
    843
    Pronouns
    she/her
    Userbars
    3
    Thanks
    313
    Thanked
    346/213
    DL/UL
    34/2
    Mentioned
    179 times
    Time Online
    1d 19h 11m
    Avg. Time Online
    N/A

    [VB6] Neopets login and web debugging

    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)...

    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
    Sorry for the bad resolution. Make it full screen if you want to see better.

  2. The Following 9 Users Say Thank You to Ashleys165 For This Useful Post:

    Cody. (05-10-2012),Emiley (04-08-2012),fairydust201 (03-14-2012),j03 (04-15-2012),jojo (03-14-2012),Miguel (03-14-2012),musemfire (08-31-2012),Reemer (03-14-2012),w_is_awesome (03-17-2012)

  3. #2

    Joined
    Jan 2012
    Posts
    1,286
    Thanks
    1,292
    Thanked
    302/209
    DL/UL
    1096/0
    Mentioned
    213 times
    Time Online
    59d 13h 45m
    Avg. Time Online
    20m
    owe !! looking good ash <3 Thanks hun

  4. #3

    Joined
    Apr 2012
    Posts
    40
    Userbars
    0
    Thanks
    2
    Thanked
    9/2
    DL/UL
    7/3
    Mentioned
    Never
    Time Online
    1h 29m
    Avg. Time Online
    N/A
    Will for sure be using this. Thanks.

  5. #4

    Joined
    Dec 2011
    Posts
    64
    Thanks
    0
    Thanked
    3/3
    DL/UL
    7/0
    Mentioned
    13 times
    Time Online
    8h 13m
    Avg. Time Online
    N/A
    same here thanks for the help really helped.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •