Battlenet Connection

[UserLoser.]

In what packet does BNET send you the challenge?

And with Visual Basic, is it better to put two winsock controls on the form, or just one and connect with the index or whatever (its in bnet reference)

Probably doesn't matter (no big difference) if you add two separate controls to the form, or create an array of them.

[R.a.B.B.i.T]

2 controls, however, are a little easier to manage.  And BNLS will automatically disconnect after about 30 seconds.

[MyndFyre]

And BNLS will automatically disconnect after about 30 seconds.

Unless you send BNLS_NULL (0x00) consistently.  

[UserLoser.]

And BNLS will automatically disconnect after about 30 seconds.

Unless you send BNLS_NULL (0x00) consistently.  

The document says 1 minute, not 30 seconds.

[MindArchon]

Bah, does the packetbuffer  at http://www.valhallalegends.com/docs/PacketBuffer.htm work for BNLS packets too?

If so, then it doesnt seem to be working. I send something and get no data recieved back.

[BaDDBLooD]

It does, however the "SEND PACKET" Function will not.

You need to Change it to +3, and it should be Length + packetID

[MindArchon]

It does, however the "SEND PACKET" Function will not.

You need to Change it to +3, and it should be Length + packetID

er..

Code Select Expand

Public Function SendPacket(SOCKET As Winsock, PacketID As Byte)

SOCKET.SendData Chr(&HFF)
SOCKET.SendData Chr(PacketID)
SOCKET.SendData MakeWORD (Len(Buffer) + 4)
SOCKET.SendData
BufferClear

End Function

was how it came.

So I change it to:

Code Select Expand

Public Function SendPacket(SOCKET As Winsock, PacketID As Byte)

SOCKET.SendData Chr(&HFF)
SOCKET.SendData Chr(PacketID)
SOCKET.SendData MakeWORD (Len(Buffer) + PacketID + 3)
BufferClear

End Function

?

[prck]

The header is 3 bytes. The first part of the packet is a word, so you would want something like Makeword(len(Buffer)+3) then you would want to include the packetID which is a byte and the rest of the data to send.

[l2k-Shadow]

I would suggest you getting a basic winsock connection source code. That will help you see how everything works and then you can just work off of that, If you never made a bot w/o an ocx then just getting a source is much easier then starting from scratch and getting 99% chance that the bot won't work

[Sorc.Polgara]

It does, however the "SEND PACKET" Function will not.

You need to Change it to +3, and it should be Length + packetID

So I change it to:

Code Select Expand

Public Function SendPacket(SOCKET As Winsock, PacketID As Byte)

SOCKET.SendData Chr(&HFF)
SOCKET.SendData Chr(PacketID)
SOCKET.SendData MakeWORD (Len(Buffer) + PacketID + 3)
BufferClear

End Function

?

Errr, no that isn't correct I don't think.  This is mine

Code Select Expand


Public Function SendBNLS(socket As Winsock, PacketID As Byte)
'//
'(WORD) Message size, including this 3-byte header
'(BYTE) Message ID
'(....) Message-dependant data
   
   socket.SendData MakeWORD(Len(Buffer) + 3)
   socket.SendData Chr(PacketID)
   socket.SendData Buffer
   Clear
End Function


[UserLoser.]

Errr, no that isn't correct I don't think.  This is mine

I think he was talking about his BNCS packet buffer, not BNLS one.

[Sorc.Polgara]

Errr, no that isn't correct I don't think.  This is mine

I think he was talking about his BNCS packet buffer, not BNLS one.

Bah, does the packetbuffer  at http://www.valhallalegends.com/docs/PacketBuffer.htm work for BNLS packets too?

If so, then it doesnt seem to be working. I send something and get no data recieved back.

hmmm I dunno, maybe I'm wrong... he said this so I thought maybe he was talking about BNLS =\

[MindArchon]

Errr, no that isn't correct I don't think.  This is mine

I think he was talking about his BNCS packet buffer, not BNLS one.

BNLS packet buffer. However will that packet buffer I linked to previously work on BNCS packets without tweaking?

[BaDDBLooD]

Errr, no that isn't correct I don't think.  This is mine

I think he was talking about his BNCS packet buffer, not BNLS one.

BNLS packet buffer. However will that packet buffer I linked to previously work on BNCS packets without tweaking?

Read Over the posts, Figure it out for yourself.  It's pretty easy if you just Concentrate!

[Sorc.Polgara]

This one I use to send a BNCS packet buffer.  It is the one that is already in the DarkMinion's Packet buffer class

Code Select Expand


Public Function SendBNCS(socket As Winsock, PacketID As Byte)
   socket.SendData Chr(&HFF)
   socket.SendData Chr(PacketID)
   socket.SendData MakeWORD(Len(Buffer) + 4)
   socket.SendData Buffer
   Clear
End Function


This one I used to send a BNLS packet buffer.

Code Select Expand


Public Function SendBNLS(socket As Winsock, PacketID As Byte)
'//
'(WORD) Message size, including this 3-byte header
'(BYTE) Message ID
'(....) Message-dependant data
   
   socket.SendData MakeWORD(Len(Buffer) + 3)
   socket.SendData Chr(PacketID)
   socket.SendData Buffer
   Clear
End Function


Code Select Expand