16,554
社区成员
发帖
与我相关
我的任务
分享
For i = 0 To lstClient.Count - 1
If lstClient.Item(i).Connected = True Then
TextBox4.AppendText(vbCrLf & lstClient.Item(i).RemoteEndPoint.ToString)
End If
If lstClient.Item(i).Poll(10, SelectMode.SelectRead) = True Then
MessageBox.Show("客户端已断开或关闭。", "提示", MessageBoxButtons.OK)
lstClient.Remove(lstClient.Item(i))
Else
TextBox4.AppendText(vbCrLf & lstClient.Item(i).RemoteEndPoint.ToString)
End If
Next