Results 1 to 9 of 9

Thread: vb6 =]

Hybrid View

  1. #1

    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

    vb6 =]

    dose any one have the right code for the log in box ??????

    and another question what file should i save it on ? im new to vb6 =)

    ive been working on something for a while .

    well really playing with vb6 =)

  2. #2

    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
    Quote Originally Posted by fairydust201 View Post
    dose any one have the right code for the log in box ??????

    and another question what file should i save it on ? im new to vb6 =)

    ive been working on something for a while .

    well really playing with vb6 =)
    What kind of log in box?

    And what file??? What do you mean, your whole project?

  3. #3

    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
    @(you need an account to see links) nope i mean saving the file incase i have to work on it later i have it ;; & A regular log in box =)

  4. #4

    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
    Well you just hit file>Save then save it in a folder you will remember, and when you want to work on it again just double click it.
    As for a log in box... you make your own.... here I will post back in one minute.. I will show you in video.

  5. #5

    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
    thank you so much for your help @(you need an account to see links) =)

  6. #6

    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
    Sorry its taking so long, uploading takes forever.

  7. #7
    Zachafer's Avatar
    Joined
    Dec 2011
    Posts
    1,235
    Userbars
    11
    Thanks
    769
    Thanked
    1,466/678
    DL/UL
    98/0
    Mentioned
    512 times
    Time Online
    24d 13h 9m
    Avg. Time Online
    8m
    What are you trying to login to? Neopets?

  8. #8

    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
    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
    Last edited by Ashleys165; 03-11-2012 at 06:21 PM.

  9. #9

    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

Posting Permissions

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