Bonjours, j'ai un problème sur un packet qui foire et ferme le socket, ( MITM ) j'ai bien vérifier les IOS aucun problème ainsi que le packet, comme ma fonction send est très vielle, je pense que sa bug sur sa. Si une personne pourrais jetez un coup d’œil, et me dire Merci encore :
Friend Shared Function Send(ByVal PacketID As Integer, ByVal sock As Object, ByVal writer As BigEndianWriter)
Dim MessageLenghtType As Integer = ComputeTypeLen(writer.Data.Count)
Dim Header As Short = ComputeStaticHeader(PacketID, MessageLenghtType)
Dim BytesToWrite(2 + MessageLenghtType + writer.Data.Count - 1) As Byte
BytesToWrite(0) = Header >> 8
BytesToWrite(1) = Header - 256 * BytesToWrite(0)
Dim index As Integer
Select Case MessageLenghtType
Case 1
BytesToWrite(2) = writer.Data.Count
index = 3
Case 2
BytesToWrite(2) = writer.Data.Count >> 8
BytesToWrite(3) = writer.Data.Count - 256 * BytesToWrite(2)
index = 4
Case 3
BytesToWrite(2) = writer.Data.Count >> 16
BytesToWrite(3) = writer.Data.Count >> 8
BytesToWrite(4) = writer.Data.Count - 256 * BytesToWrite(3) - 256 * 256 * BytesToWrite(2)
index = 5
End Select
Dim send_debug As String = Nothing
For i As Integer = index To writer.Data.Count + index - 1
BytesToWrite(i) = writer.Data(i - index)
Next
sock.Send(BytesToWrite)
Console.WriteLine("envoie : id -> " & PacketID & " len -> " & BytesToWrite.Count - index)
Console.WriteLine()
Return (BytesToWrite)
End Function
End Class