dim listenerRun As Boolean = True
Dim tcpl As New TcpListener(7311)
tcpl.Start() '开始侦听
While listenerRun '一直进行监听
Dim s As Socket = tcpl.AcceptSocket()
Dim stream(80) As Byte
Dim i As Integer = s.Receive(stream)
Dim message As String = System.Text.Encoding.UTF8.GetString(stream)
richTextBox1.AppendText(message)
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try