Valhalla Legends Archive

It won't work for me...


Private Sub mnuConnect_Click()

   Dim sckHost As String
   Dim sckPort As Long

   sckHost = "useast.battle.net"
   sckPort = 6112
   
   ws.Connect sckHost, sckPort

End Sub

Private Sub ws_Connect()

   lstStatus.AddItem "Connected"

   SID_AUTH_INFO

End Sub

Private Sub SID_AUTH_INFO()

   Dim PBuf As New PacketBuffer

   PBuf.InsertDWORD 0
   PBuf.InsertNonNTString "68XI"
   PBuf.InsertNonNTString "RATS"
   PBuf.InsertDWORD &HC9
   PBuf.InsertDWORD 0
   PBuf.InsertDWORD 0
   PBuf.InsertDWORD 0
   PBuf.InsertDWORD 0
   PBuf.InsertDWORD 0
   PBuf.InsertNTString "USA"
   PBuf.InsertNTString "United States"
   PBuf.SendPacket ws, &H32
   
End Sub



I'm using the PacketBuffer Class by DarkMinion

I am recieving no response from the server.

The packet is suppose to be the SID_AUTH_INFO (0x50) B.Net packet

Quote
(DWORD)       Protocol ID (0)
(DWORD)       Platform ID
(DWORD)       Program ID
(DWORD)       Version Byte
(DWORD)       Product language
(DWORD)       Local IP for NAT compatibility*
(DWORD)       Time zone bias*
(DWORD)       Locale ID*
(DWORD)       Language ID*
(STRING)       Country abreviation
(STRING)       Country

Dunno what I doing wrong.

I used BnetDocs.... but I must be doing some wrong...

i believe it is 0x50 not 0x32 ( &H50 )

Quote from: BaDDBLooD on July 02, 2004, 08:14 PM
i believe it is 0x50 not 0x32 ( &H50 )

Hehehehe, 0x32 == 50d.  LoL.  

Ok, I fixed the message ID to &H50 but it still doesn't seem to work... I get no response. :\

I'm not quite sure what the version byte for StarCraft is... it changes so what is the current one atm?


Ummm  the BnetDocs and the BNLSProtocolSpec.txt say different things about the SID_AUTH_INFO packet...

BNLSProtocolSpec.txt

(DWORD) Protocol ID. Always 0.
(DWORD) Platform ID. Valid platform IDs are: 'IX86' (Intel x86), 'PMAC' (Macintosh generic), 'XMAC' (Macintosh OS-X).
(DWORD) Product ID. Valid product IDs are: 'STAR', 'SEXP', 'W2BN', 'D2DV', 'D2XP', 'JSTR', 'WAR3'.
(DWORD) Version byte.**
(DWORD) Product language.*
(DWORD) Local IP, for NAT compatibility.*
(LONG) Time zone bias multiplied by -60, for example, GMT-8 gets the value 480: (-8*-60).*
(DWORD) Locale ID. Value returned by GetSystemDefaultLCID.*
(DWORD) Language ID. Value returned by GetSystemDefaultLangID.*
(String) Country abbreviation, such as "USA".
(String) Country name, such as "United States".

* This field doesn't really matter and may just be 0.



BnetDocs

(DWORD)       Protocol ID (0)
(DWORD)       Platform ID
(DWORD)       Program ID
(DWORD)       Version Byte
(DWORD)       Product language
(DWORD)       Local IP for NAT compatibility*
(DWORD)       Time zone bias*
(DWORD)       Locale ID*
(DWORD)       Language ID*
(STRING)       Country abreviation
(STRING)       Country

*These fields can be set to zero without breaking logon.


The BNLSProtocolSpec.txt says that the Time zone bias is a (LONG) but BnetDocs says its a (DWORD)...

current verByte for sc = &C9 or 201 in Decimal ^^