S -> C 0x50?

[Abolition]

Eh, I found that that was my Data_Arrival sub...

I got this(I found this sub on this forum):

Code Select Expand


Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Static PktBuff As String 'Packet Buffer
    Dim Incoming As String
    Dim PacketLength As Long
    Winsock2.GetData Incoming, vbString, bytesTotal
    PktBuff = PktBuff & Incoming
   
    While Len(PktBuff) > 3
        PacketLength = GetWord(Mid$(PktBuff, 3, 2))
        If Len(PktBuff) < PacketLength Then Exit Sub
        ParseData Left(PktBuff, PacketLength))
        PktBuff = Mid(PktBuff, PacketLength + 1)
    Wend
End Sub


When I run it, I get a type mismatch error... it highlights this line:

Code Select Expand


ParseData Left(PktBuff, PacketLength))


ParseData is another sub that takes my packets and, like the name explains, parse packets.

[l2k-Shadow]

you have an extra ) at the end

[Abolition]

you have an extra ) at the end

Sorry, I made a mistake in my post. It was supposed be:

Code Select Expand


ParseData (Left(PktBuff, PacketLength))


I still get the same error.

[l2k-Shadow]

Then your ParseData is looking for something other than a string.

[Abolition]

Here is my ParseData sub.
It was just a test to see if I received the packets correctly.

Code Select Expand


Public Sub ParseData(PacketID As Long)
'Parsing
Select Case PacketID
Case &H25
AddChat vbYellow, "Received: 0x25"
Case &H50
AddChat vbYellow, "Received: 0x50"
End Select
End Sub


[l2k-Shadow]

Here is my ParseData sub.
It was just a test to see if I received the packets correctly.

Code Select Expand


Public Sub ParseData(PacketID As Long)
'Parsing
Select Case PacketID
Case &H25
AddChat vbYellow, "Received: 0x25"
Case &H50
AddChat vbYellow, "Received: 0x50"
End Select
End Sub


Exactly, your ParseData is expecting a Long, but Left$() returns a String.

[Cat Food]

you have an extra ) at the end

Sorry, I made a mistake in my post. It was supposed be:

Code Select Expand


ParseData (Left(PktBuff, PacketLength))


I still get the same error.

Not exactly how I would do things but you can try
ParseData (Val#(Left$(PktBuff, PacketLength)))

But by the looks of this you arn't extracting the packet ID to begin with. So I have a feeling you are going to have a lot more problems in the future.

[FrostWraith]

Dear God, just post a packet log.

[l2k-Shadow]

you have an extra ) at the end

Sorry, I made a mistake in my post. It was supposed be:

Code Select Expand


ParseData (Left(PktBuff, PacketLength))


I still get the same error.

Not exactly how I would do things but you can try
ParseData (Val#(Left$(PktBuff, PacketLength)))

But by the looks of this you arn't extracting the packet ID to begin with. So I have a feeling you are going to have a lot more problems in the future.

Yes! Use Val#() on a string, excellent suggestion.

[Eric]

Click.

[topaz]

Click.

I own a copy, I'll sell it for $15.

[FrostWraith]

I have it too lol. Not useful anymore. Il sell for $10.

[Cat Food]

you have an extra ) at the end

Sorry, I made a mistake in my post. It was supposed be:

Code Select Expand


ParseData (Left(PktBuff, PacketLength))


I still get the same error.

Not exactly how I would do things but you can try
ParseData (Val#(Left$(PktBuff, PacketLength)))

But by the looks of this you arn't extracting the packet ID to begin with. So I have a feeling you are going to have a lot more problems in the future.

Yes! Use Val#() on a string, excellent suggestion.

Dear MORON,
  Msgbox Val#("23")

[Mystical]

Here is my ParseData sub.
It was just a test to see if I received the packets correctly.

Code Select Expand


Public Sub ParseData(PacketID As Long)
'Parsing
Select Case PacketID
Case &H25
AddChat vbYellow, "Received: 0x25"
Case &H50
AddChat vbYellow, "Received: 0x50"
End Select
End Sub


maybe somthing like?

Code Select Expand


Public Sub ParseData(Data as String)

   Dim PacketID As Byte
       PacketID = Asc(Mid(Data, 2, 1))
   
          Select Case PacketID

                     Case &H25

                     Case &H50

                     Case &H51

           End Select

End Sub


[l2k-Shadow]

you have an extra ) at the end

Sorry, I made a mistake in my post. It was supposed be:

Code Select Expand


ParseData (Left(PktBuff, PacketLength))


I still get the same error.

Not exactly how I would do things but you can try
ParseData (Val#(Left$(PktBuff, PacketLength)))

But by the looks of this you arn't extracting the packet ID to begin with. So I have a feeling you are going to have a lot more problems in the future.

Yes! Use Val#() on a string, excellent suggestion.

Dear MORON,
  Msgbox Val#("23")

Yes, however, Left$(PktBuff, PacketLength) does not return a number.