学习中，请问一下，下面代码为啥每次连接只能收到第一次发送的数据并新增行
Public iPort As Integer = 10086
Public thThreadRead As System.Threading.Thread
Public tlTcpListen As System.Net.Sockets.TcpListener
Public blistener As Boolean = True
Public nsStream As System.Net.Sockets.NetworkStream
''''创建接收的基本数据流
Public srRead As System.IO.StreamReader
''''从网络基础数据流中读取数据
Public tcClient As System.Net.Sockets.TcpClient
Public Sub Listen()
Try
tlTcpListen = New System.Net.Sockets.TcpListener (iPort)
''''以8000端口号来初始化TcpListener实例
tlTcpListen.Start()
''''开始监听
'StatusBar1.Text = "正在监听..."
tcClient = tlTcpListen.AcceptTcpClient()
''''通过TCP连接请求
nsStream = tcClient.GetStream ( )
''''获取用以发送?接收数据的网络基础数据流
srRead = New System.IO.StreamReader (nsStream)
''''以得到的网络基础数据流来初始化StreamReader实例
''''StatusBar1.Text = "已经建立TCP连接!"
''''循环侦听
While blistener
Dim sMessage As String = srRead.ReadLine ( )
''''从网络基础数据流中读取一行数据
If ( sMessage = "STOP" ) Then
tlTcpListen.Stop ( )
''''关闭侦听
nsStream.Close ( )
srRead.Close ( )
''''释放资源
''''StatusBar1.Text = "无连接!"
thThreadRead.Abort ( )
''''中止线程
Return
Else
''''判断是否为断开TCP连接控制码
Dim sTime As String = DateTime.Now.ToShortTimeString ( )
''''获取接收数据时的时间
'''' ListBox1.Items.Add ( sTime + " " + sMessage )
End If
MessageBox.Show(sMessage)
End While
Catch ex As System.Security.SecurityException
MessageBox.Show ( "侦听失败!" , "错误" )
End Try
End Sub
加好友 
发短信
Post By：2021/2/22 9:15:00 [只看该作者]
