winsock license information not found?

[Tontow]

Whenever I try to add winsock to my form I end up getting a "license information not found" error.  Dose anyone know how to fix or get by this?

[Tontow]

If there is no way to get the license then,

Is CSocket just as good?? CSocket

[Blaze]

If you are using the Standard version of Microsoft Visual Studio, you cannot use the winsock control.

[Tontow]

I gess I'm useing the standard vershion then.  What else could I use?  I did a search and found CSocket, but I don't know if it's compairable to winsock.

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

It's better than Winsock.

[Ringo]

Whenever I try to add winsock to my form I end up getting a "license information not found" error.  Dose anyone know how to fix or get by this?

VB Learning ediion.

You need enterprize or pro edition to use winsock controlls.

Altho i think u can get them for learning, not sure how tho.

[QwertyMonster]

Download a crack for it like i did. Umm oops. Yeah.

Search for: Visual basic 6 Enterprise edition crack on google.

[Tontow]

Thanks.  I'll try useing CSocket for now.


Dose anyone know of a good packet tutorial? (sending/reading/creating/etc)

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

What kind of packet?  (almost) Every program  that sends packets uses a different format, ie BNCS packets != AIM packets.

[Tontow]

well perferably the packets a chat bot would send to log on to battlenet though bnls, but it would be nice to know how to do the ones you would send to log on to battle net (not being able to go into private channels).

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

CHAT packet structure is Telnet plain-text standard.

[Tontow]

Ok, I did some searching and found http://botdev.valhallalegends.com/documents/vbpacketbc.html , but I have a few questions.

Function MakeDWORD(Value As Long) As String   
Dim Result As String * 4   
CopyMemory ByVal Result, Value, 4   
MakeDWORD = Result
End Function

Why the *4?

Do I send each DWORD seperatly or together in one string?

[UserLoser.]

Ok, I did some searching and found http://botdev.valhallalegends.com/documents/vbpacketbc.html , but I have a few questions.

Function MakeDWORD(Value As Long) As String   
Dim Result As String * 4   
CopyMemory ByVal Result, Value, 4   
MakeDWORD = Result
End Function

Why the *4?

Do I send each DWORD seperatly or together in one string?

* 4 allocates 4 bytes of space in Result.  It's needed in this case because CopyMemory is being used to copy Value to Result.  If there's no space available in Result, you can't copy and your program will probably crash.  You could also use something like Result = Space(4) or Result = String(vbNullChar, 4)

[Hdx]

Do I send each DWORD seperatly or together in one string?

You could send each DWORD alone, after youve sent the header for the packet, But I wouldnt recomend it, I would recomend building the eintire packet locally, and then sending it all together.

Result = String(vbNullChar, 4)

Result = String(4, vbNullChar)
~-~(HDX)~-~

[Tontow]

Ok, Let me see if I'm doing the packets right.

Acording to bnetdocs.com the Logon Sequence for a chat bot is:

SEND ->  Protocol byte (01)
SEND -> SID_AUTH_INFO (0x50)
RECV <- SID_PING (0x25)
RECV <- SID_AUTH_INFO (0x50)
SEND -> SID_PING (0x25) [Optional]
SEND -> SID_AUTH_CHECK (0x51)
RECV <- SID_AUTH_CHECK (0x51)
SEND -> SID_LOGONRESPONSE (0x29)
RECV <- SID_LOGONRESPONSE (0x29)
SEND -> SID_UDPPINGRESPONSE (0x14) [SEXP/STAR/W2BN]
SEND -> SID_ENTERCHAT (0x0A)

And the format for the protocol byte is:

BNCS Headers
BNCS stands for Battle.Net Chat Server and is the protocol that Blizzard's Battle.net enabled games use to communicate. Every BNCS message has the same header:


(BYTE)      Always 0xFF
(BYTE)      Message ID
(WORD)      Message length, including this header
(VOID)      Message Data
The BNCS protocol is aggresively enforced by Battle.net - at least, for clients - and violations of the protocol generally result in an IP ban.

When connecting to a BNCS server, you must first tell the server which protocol you wish to use. Some of the Protocol IDs are:
Games: 0x01
FTP: 0x02
Chat: 0x03

So to send the protocol packet the code would be?

Function MakeWORD(Value As Integer) As String
Dim Result As String * 2
CopyMemory ByVal Result, Value, 2
MakeWORD = Result
End Function


Public function sendprotocall()
        sckclient.SendData &HFF
        sckclient.SendData (1)
        sckclient.SendData MakeWORD(Len(buffer) + 4)
        sckclient.SendData &H3
end function