[VB6] NEED HELP

[TriCk]

Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.

I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45

This is recieved, btw

0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
  DDA-TriCk-E

[UserLoser.]

Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.

I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45

This is recieved, btw

0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
  DDA-TriCk-E

0x37?  Never knew that existed.  As far as 0x45, that lets the server know what port you're using for hosting games and is only used on Warcraft III and Frozen Throne.

[CrAz3D]

Do you have index'd winsocks?

[TriCk]

Nvm i fixed that
I need a better proxy support now... mine doesnt support all proxies on some "bad proxies" i have named them, the bot will freeze apon connect

Can anyone help me? possibly with code for [VB6] proxy connect...

And i dont want Feanor's source posted here, i've seen that code a million times, it doesn't work for all proxies. Thankyou

[UserLoser.]

Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.

I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45

This is recieved, btw

0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
  DDA-TriCk-E

Second thought on this, looks like maybe you could be printing the packet ids out, without even putting them to hex!

5 = 0x05
29 = 0x1D
37 = 0x25
6 = 0x06
7 = 0x07
45 = 0x2D

That looks like it could be a valid sequence.  The numbers on the left is what you printed out, but without the hex notation in the front

[TriCk]

yea user, i was too lazy to turn em into packet's prolly shudnt have put 0x infront but o well...

i seriously need some better proxy support...... still
i need it to use SOCKS4/5 but not the way Feanor's bot's source does....

Code Select Expand


   Dim splt() As String, str As String, i As Integer
   m_Server = "63.241.83.9"
   splt = Split(m_Server, ".")
       For i = 0 To UBound(splt)
           str = str & Chr(CStr(splt(i)))
       Next i
   sck1.SendData Chr(&H4) & Chr(&H1) & Chr(&H17) & Chr(&HE0) & str & "anonymous" & Chr(&H0)
   AddC RTB, vbGreen, "SOCK: Connected!"

       sck1.GetData strTemp, vbString
           Select Case Mid(strTemp, 1, 2)
           Case Chr(&H0) & Chr(&H5A)
               AddC RTB, vbGreen, "Request Granted"
               Send1E
               Exit Sub
           Case Chr(&H0) & Chr(&H5B)
               AddC RTB, vbRed, "SOCK: Request Rejected Or Failed"
               mnuConnect_Click
               Exit Sub
           Case Chr(&H0) & Chr(&H5C)
               AddC RTB, vbRed, "SOCK: Request Rejected Because SOCKS server cannot IDENT on the client"
               Exit Sub
           Case Chr(&H0) & Chr(&H5D)
               AddC RTB, vbRed, "SOCK: Request Rejected Because the Client Program and the ID Report Different User-IDs"
               Exit Sub
           End Select
   strBuffer = strBuffer & strTemp
   While Len(strBuffer) > 4
       lngLen = Val("&H" & StrToHex(StrReverse(Mid$(strBuffer, 3, 2))))
       If Len(strBuffer) < lngLen Then Exit Sub
       parsep (Left$(strBuffer, lngLen))
       strBuffer = Mid$(strBuffer, lngLen + 1)
   Wend




I dont want that type of proxy support.
Because it doesnt work for all proxies
some make the bot freeze.....
if anyone knows how to make them not freeze the bot or has a better proxy support system please post.....

Thanks

[Stealth]

Why not write your own using the extensive protocol documents?

[TriCk]

         o  X'00' NO AUTHENTICATION REQUIRED
         o  X'01' GSSAPI
         o  X'02' USERNAME/PASSWORD
         o  X'03' to X'7F' IANA ASSIGNED
         o  X'80' to X'FE' RESERVED FOR PRIVATE METHODS
         o  X'FF' NO ACCEPTABLE METHODS


I dont understand what the X'#' are there for?
How would i implement this into VB6 coding?

[Tuberload]

         o  X'00' NO AUTHENTICATION REQUIRED
         o  X'01' GSSAPI
         o  X'02' USERNAME/PASSWORD
         o  X'03' to X'7F' IANA ASSIGNED
         o  X'80' to X'FE' RESERVED FOR PRIVATE METHODS
         o  X'FF' NO ACCEPTABLE METHODS


I dont understand what the X'#' are there for?
How would i implement this into VB6 coding?

It is a hexadecimal value representing the packet id from the looks of it. You would parse the packet id and then do something based on its value.

[Stealth]

X'00' == 0x00 - another way of writing a byte