bonjour à tous,
voilà je dispose de 2 form form serveur et form client quand j'envoie un message de client vers le serveur tout fonctione très bien mais maintenant j'ai 2 problèmes :
lors de l'execution de serveur celui ci reste invisible ( je ne sais pas pourquoi )
lorsque je veux envoyé plus qu'un message au serveur alors là le message n'est pa recu par le serveur

voilà le code :

Serveur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ip = IPAddress.Parse("127.0.0.1")
        ecoute = New TcpListener(ip, port)
        ecoute.Start()
        Me.Text = "Listening..."
        clt = ecoute.AcceptTcpClient()
        Dim NWStream As NetworkStream = clt.GetStream
        Const BUFFER_SIZE As Integer = 10

        Dim bytesToRead(BUFFER_SIZE) As Byte
        '---read incoming stream
        Dim textReceived As String = ""

        Do
            Dim numBytesRead As Integer = _
                NWStream.Read(bytesToRead, 0, BUFFER_SIZE)
            textReceived += Encoding.ASCII.GetString(bytesToRead, _
                            0, numBytesRead)
        Loop Until Not NWStream.DataAvailable
        NWStream.Flush()

        RB_recu.Text += "Received :" + textReceived ' RB_recu est un RichTextBox

       
    End Sub
voilà le code client :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clt.Connect("127.0.0.1", port) ' clt est un TcpClient
 
    End Sub
 
    Private Sub cmd_envoye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_envoye.Click
        Dim NWStream As NetworkStream = clt.GetStream
        Dim bytesToSend As Byte() = Encoding.ASCII.GetBytes(rb_envoie.Text)
        NWStream.Write(bytesToSend, 0, bytesToSend.Length)
        Rb_recu.Text += "Le client dit : " + vbCrLf + vbCrLf + rb_envoie.Text
        rb_envoie.Text = ""
        NWStream.Flush()
    End Sub
merci d'avance