[VB6] 360Â° Autobuyer Source

**Aethean** · 02-05-2007, 07:57 PM

edit: I took it down

second2none · 02-05-2007, 07:59 PM

What else needs to be done on it?

**Aethean** · 02-05-2007, 08:01 PM

Just download the picture/load it. their might be some other stuff i havn't added though.. if you download it.. just look through it :P

and please.. no comments if you dont like it, or if you dont like a part of it etc etc. good comments are always welcomed xD

second2none · 02-05-2007, 08:08 PM

:| lol your gg auth is weird, Vald made one and its nice and clean :P

**Aethean** · 02-05-2007, 08:29 PM

Quote:

Originally Posted by GOD

:| lol your gg auth is weird, Vald made one and its nice and clean :P

weird? how so O_o

Code:

status.Panels(1).Text = "Authorizing..."
strHTML = wrapper.Request("GET", "http://www.gaminggutter.com/", wrapper.LastPage)
strHTML = wrapper.Request("POST", "http://www.gaminggutter.com/login.php?do=login&vb_login_username=" & txtAuthorizeUser.Text & "&cookieuser=1&vb_login_password=" & txtAuthorizePass.Text, "http://www.gaminggutter.com/")
    If InStrB(1, strHTML, "<strong>Thank you for") Then
        status.Panels(1).Text = "Logged In: Verifying"
        zsdf7dfgGSHdff34fg5g45g = True
            GoTo CheckRank
            Else
        status.Panels(1).Text = "Login Error: Try Again"
        zsdf7dfgGSHdff34fg5g45g = False
        Exit Sub
    End If

CheckRank:
    strHTML = wrapper.Request("GET", "http://www.gaminggutter.com/before-you-post-t2355.html", wrapper.LastPage)
        If InStrB(1, strHTML, "way people know what") Then
            sdf345345DDfDFD7sdfsg = True
            status.Panels(1).Text = "Authorized: 360Â° Autobuyer Unlocked"
                Else
            sdf345345DDfDFD7sdfsg = False
            status.Panels(1).Text = "Unauthorized: 360Â° Autobuyer Locked"
            Exit Sub
        End If
        
    If zsdf7dfgGSHdff34fg5g45g = True And sdf345345DDfDFD7sdfsg = True Then
        sdfg54g45g4wdfgrty456s = True
            Else
        sdfg54g45g4wdfgrty456s = False
        Exit Sub
    End If

    If sdfg54g45g4wdfgrty456s = True Then
        xtabs.TabEnabled(1) = True
    End If

the only thing i find weird is the odd named booleans.. other than that.. it makes perfect sense xD

second2none · 02-05-2007, 09:29 PM

Code:

Private Sub lblAuth_Click()
lblStatus.Caption = "Authorizing.."
DPage = Wrapper1.PostWrapper("http://www.gaminggutter.com/login.php", "do=login&vb_login_username=" & txtAuthName & "&vb_login_password=" & txtAuthPass & "&s=&do=login&vb_login_md5password=&vb_login_md5password_utf=")
If InStr(1, DPage, "You have entered an invalid username") Then
lblStatus.Caption = "Invalid username/password.."
ElseIf InStr(1, DPage, "Thank you for logging in") Then
lblStatus.Caption = "Authorized.."
DPage = wrapper1.postwrapper("http://www.gaminggutter.com/")
End If

If instr(1, DPage, "Underground Chat") then
lblStatus.Caption = "Status: Underground"
Else
lblStatus.Caption = "You are not Underground"
End If
End Sub

Thats the one i use

Its about 500 shorts

02-06-2007, 10:04 AM

looks good, I would like to make a simple suggestion or give you a tip.
Some of your functions do not need to be functions. You should change them to subs. If you are not using them to return information they should be subs. This will clear some memory overhead.

**Connor** · 02-06-2007, 10:13 AM

can someone just please make this and release to UG?

~~*Carnage*~~ · 02-06-2007, 11:08 AM

Thank you so much, Aethean <33333

+rep ;)

**Aethean** · 02-06-2007, 02:19 PM

Quote:

Originally Posted by screamdreams

looks good, I would like to make a simple suggestion or give you a tip.
Some of your functions do not need to be functions. You should change them to subs. If you are not using them to return information they should be subs. This will clear some memory overhead.

Function, sub, same thing >_< (not literally but you know what i mean >_<)