Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPourrais tu m'expliquer ces deux conseils s'il te plaît? Ce n'est pas pour rien que j'ai mis mon post dans le forum "Débutant" :D.
Option Explicit On Option Strict On Imports System.Net.Sockets Imports System.Text Public Class Form1 Dim serveur As TcpListener Dim client As TcpClient Dim XStreamX As NetworkStream = Nothing Private Sub LancerServeur(sender As System.Object, e As System.EventArgs) Handles ButServ.Click serveur = New TcpListener(System.Net.IPAddress.Any, CInt(PortTxt.Text)) serveur.Start() client = serveur.AcceptTcpClient() MessageBox.Show("Client connecté.") ButServ.Enabled = False PortTxt.Enabled = False Timer1.Start() End Sub Private Sub EnvoiMessage(sender As System.Object, e As System.EventArgs) Handles ButEnv.Click Try XStreamX = client.GetStream Dim SendBytes() As Byte = Encoding.UTF8.GetBytes("Serveur : " & MessageTxt.Text) XStreamX.Write(SendBytes, 0, SendBytes.Length) MessageBox.Show(SendBytes.ToString) Catch exep As Exception MessageBox.Show(exep.Message) End Try End Sub End Class
Option Explicit On Option Strict On Imports System.Net.Sockets Imports System.Text Public Class Form1 Dim pseudo As String Dim client As New TcpClient Dim XStreamX As NetworkStream = Nothing Private Sub SeConnecter(sender As System.Object, e As System.EventArgs) Handles ButCo.Click If PseudoTxt.Text "" Or PORTtxt.Text "" Or IPtxt.Text = "" Then MessageBox.Show("Veuiller remplir toutes les cases !") Else Try client.Connect(IPtxt.Text, CInt(PORTtxt.Text)) Me.Text = "Client - Connecté" MessageBox.Show("Vous êtes à présent connecté.") pseudo = PseudoTxt.Text IPtxt.Enabled = False PORTtxt.Enabled = False PseudoTxt.Enabled = False ButCo.Enabled = False Timer1.Start() Catch ex As Exception MessageBox.Show("Serveur introuvable !") Me.Text = "Client - Déconnecté" End Try End If End Sub Private Sub SeDéconnecter(sender As System.Object, e As System.EventArgs) Handles ButDeco.Click IPtxt.Enabled = True PORTtxt.Enabled = True PseudoTxt.Enabled = True ButCo.Enabled = True client.Close() End Sub Private Sub RecevoirMessage(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Dim Message As StringBuilder = New StringBuilder() Dim RecevoirBytes(client.ReceiveBufferSize) As Byte If client.Available > 0 Then Try XStreamX = client.GetStream() Message.Append(Encoding.UTF8.GetString(RecevoirBytes, 0, CInt(client.ReceiveBufferSize))) CHATrich.Text = CHATrich.Text & Environment.NewLine & Message.ToString Catch exep As Exception MessageBox.Show(exep.Message) End Try End If End Sub End Class
J'ai entendu dire qui fallait créer un nouveau thread pour chaque client se connectant