Bonsoir,
Je débute en vb.net et je m'instruit en socket, je me suis inspiré de cette article : http://www.eggheadcafe.com/articles/20020323.asp
(Pour faire un log & une console)

Seulement, j'ai un petit problème, je ne reçois pas tout les sockets. ( 4 sur 8 )
Voici mon code :

Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("213.248.126.182", 443)
        Dim networkStream As NetworkStream = tcpClient.GetStream()
        If networkStream.CanWrite And networkStream.CanRead Then

            ' Recoit le premier socket envoyer par le serveur.
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

            ' Envoi le socket qui indique la version.
            Dim version As [Byte]() = Encoding.ASCII.GetBytes("1.25.0..")
            networkStream.Write(version, 0, version.Length)

            ' Envoi le socket qui indique le pseudo + le pass.
            Dim pseudopass As [Byte]() = Encoding.ASCII.GetBytes("pZej9fwF.#1ZX21PP9-LNZ29bRWV1..")
            networkStream.Write(pseudopass, 0, pseudopass.Length)

            ' Envoi le socket qui indique Af...
            Dim af As [Byte]() = Encoding.ASCII.GetBytes("Af..")
            networkStream.Write(af, 0, af.Length)

            ' Le serveur retourne af1
            Dim MessageRecu(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(MessageRecu, 0, CInt(tcpClient.ReceiveBufferSize))

            ' Packet 6
            Dim Packet6(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(Packet6, 0, CInt(tcpClient.ReceiveBufferSize))

            ' Envoi le socket qui indique Ax..
            Dim Ax As [Byte]() = Encoding.ASCII.GetBytes("Ax..")
            networkStream.Write(Ax, 0, af.Length)

            ' Packet 7  Ax receive
            Dim Packet7(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(Packet7, 0, CInt(tcpClient.ReceiveBufferSize))

        Else
            If Not networkStream.CanRead Then
                Console.WriteLine("cannot not write data to this stream")
                tcpClient.Close()
            Else
                If Not networkStream.CanWrite Then
                    Console.WriteLine("cannot read data from this stream")
                    tcpClient.Close()
                End If
            End If
        End If
        ' pause so user can view the console output
        Console.ReadLine()

Tout ce stop à partir de

' Le serveur retourne af1
            Dim MessageRecu(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(MessageRecu, 0, CInt(tcpClient.ReceiveBufferSize))