While True Dim incoming As TcpClient = Me.MyTcpListener.AcceptTcpClient Dim Str As StreamReader = New StreamReader(incoming.GetStream) Dim C As New Client C.ClientID = Me.ClientID C.Str = Str C.Start(IncomingConnection) Me.ClientList.Add(C) RaiseEvent _ClientConnected(C) AddHandler C._ClientDisconnect, AddressOf ClientDisconnected Me.ClientID += 1 End While
Dim server as TCPListener server.start(9090) while true listbox1.Items.Add(server.RemoteEndPoint.Address.toString) end while
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)