Bonjour à tous,

Voilà j'ai un code de messagerie peer to peer. Il fonctionne bien mais seulement dés la deuxième utilisation c a d lors de la premiére exécution il m'affiche une erreur mais lorsque je réexecute l'application il fonctionne

Bon voilà le code dont il m'affiche l'exception :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Listener.Pending = True Then
            Message = ""
            Client = Listener.AcceptTcpClient()
            Dim Reader As New StreamReader(Client.GetStream())
            While Reader.Peek > -1
                Message = Message + Convert.ToChar(Reader.Read()).ToString
            End While
            RichTextBox1.AppendText((Label1.Text) + " dit : " + vbCrLf + Message + vbCrLf + vbCrLf)
        End If
    End Sub
L'exception se trouve dans la ligne en rouge et l'exception est :
Pas à l'écoute. Vous devez appeler la méthode Start() avant d appeler cette méthode.
Merci d'avance