• Welcome to Valhalla Legends Archive.
 

Makeservers

Started by WTFMATE, April 24, 2004, 11:25 PM

Previous topic - Next topic

GoSuGaMING

do u mean on the data_arrival?

BinaryzL

#46
Well you're supposed to parse 2 "MCP Chunks" when you recieve packet 0x3e from battle.net.

(DWORD)       Cookie
(DWORD)       Status
(DWORD[2])    MCP Chunk 1
(DWORD)       IP
(DWORD)       Port
(DWORD[12])    MCP Chunk 2
(STRING)       BNCS unique name
(WORD)       Unknown


Then you send those on MCP packet 0x01.

(STRING)       MCP Startup Data
(STRING)       Battle.net Unique Name

PaiD

you wouldnt get a _error event b/c if the chucks are bad you would get disconnected or be sent 0x01 saying you failed.

GoSuGaMING

i think it has to be my dataarrival...

BinaryzL

Well what is the code?

GoSuGaMING

#50
it isnt much its just


Dim strTemp As String, strBuffer As String
sckMCP.GetData strTemp, vbString
strBuffer = strBuffer & strTemp
ParseMCP strBuffer


friend sent me this... i dont think it is going to work

Trickle

10 bucks its his packet header for mcp

BinaryzL

Well that doesn't help what is the beginning of "ParseMCP" look like?

GoSuGaMING

Public Sub ParseMCP(Data As String)

Dim PacketID As String
   PacketID = Asc(Mid(Data, 3, 1))

Select Case PacketID

   Case &H1 'MCP_STARTUP
     
        Select Case (GetDWORD(Mid(Data, 4, 4)))
         
            Case &H0 '0x00 SUCCESS

BinaryzL

Yeah that looks good.

GoSuGaMING

#55
thats all i have on it so far ^^

lets help meh write the rest? <3

BaDDBLooD

Quote from: GoSuGaMING on April 25, 2004, 12:38 AM
Public Sub ParseMCP(Data As String)

Dim PacketID As String
   PacketID = Asc(Mid(Data, 3, 1))

Select Case PacketID

   Case &H1 'MCP_STARTUP
     
        Select Case (GetDWORD(Mid(Data, 4, 4)))
         
            Case &H0 '0x00 SUCCESS

code supplied by me
There are only two kinds of people who are really fascinating: people who know absolutely everything, and people who know absolutely nothing.

GoSuGaMING

#57
indeed ^^

now send me the rest of it

*bows down*

Eric

Quote from: BaDDBLooD on April 25, 2004, 12:41 AM
Quote from: GoSuGaMING on April 25, 2004, 12:38 AM
Public Sub ParseMCP(Data As String)

Dim PacketID As String
   PacketID = Asc(Mid(Data, 3, 1))

Select Case PacketID

   Case &H1 'MCP_STARTUP
     
        Select Case (GetDWORD(Mid(Data, 4, 4)))
         
            Case &H0 '0x00 SUCCESS

code supplied by me

Ew. Why is your PacketID a string?

BaDDBLooD

cause i felt like it?
There are only two kinds of people who are really fascinating: people who know absolutely everything, and people who know absolutely nothing.

|