可以和多个Client连接,在服务端为每个接入的Client实例化一个对象与其通讯
如:
'开启后台侦听线程,
Private Sub DoListen()
'Dim getIP As GetIP
Dim localAddr As IPAddress = Dns.GetHostEntry(GetIP.SeverIP).AddressList(0)
Try
' 侦听连接
listener = New TcpListener(localAddr, PORT_NUM)
listener.Start()
Do
'创建新用户TcpClient接入
Dim client As New UserConnection(listener.AcceptTcpClient)
' 创建事件句柄,允许用户接入
AddHandler client.LineReceived, AddressOf OnLineReceived
UpdateStatus("一个新连接接入: 正在登录中....")
Loop Until False
Catch
End Try
End Sub