Public Sub Server() tcpListener = New TcpListener(IPAddress.Any, 50000) listenThread = New Threading.Thread(New Threading.ThreadStart(AddressOf ListenForClients)) listenThread.Start() End Sub Private Sub ListenForClients() tcpListener.Start() Console.WriteLine("Server avviato") While (True) Try Dim client As TcpClient = tcpListener.AcceptTcpClient() clientSocket = client Dim clientThread As Threading.Thread = New Threading.Thread(New Threading.ThreadStart(AddressOf doChat)) clientThread.Start() Catch ex As Exception Console.WriteLine("Errore server. Riavviare") Close() End Try End While End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)