ReadLine
Private Sub Listening() Do Until Not IsListening If Server.Pending Then Client = Server.AcceptTcpClient ClientData = New IO.StreamReader(Client.GetStream) End If Try RaiseEvent MessageReceived(Me, ClientData.ReadLine) 'PAUSE Catch ex As Exception RaiseEvent MessageReceived(Me, "Error") End Try Threading.Thread.Sleep(100) Loop End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)