VB.NET TCP服务器怎么知道客户端的连接状态变化

在 VB.NET 中，可以使用 TcpListener 类来创建 TCP 服务器。要知道客户端的连接状态变化，可以使用 TcpListener 类的 AcceptTcpClientAsync 方法。该方法返回一个 Task，当客户端连接到服务器时，会返回一个 TcpClient 对象，可以通过这个对象来获取客户端的连接状态。

可以通过以下代码示例来实现：

Dim tcpListener As New TcpListener(IPAddress.Any, 端口号)
tcpListener.Start()

While True
    ' 等待客户端连接
    Dim tcpClientTask As Task(Of TcpClient) = tcpListener.AcceptTcpClientAsync()
    If tcpClientTask.Wait(1000) AndAlso tcpClientTask.Result IsNot Nothing Then
        ' 客户端连接成功
        Dim tcpClient As TcpClient = tcpClientTask.Result
        If tcpClient.Connected Then
            ' 客户端已连接
            Console.WriteLine("客户端已连接！")
        End If
    Else
        ' 没有客户端连接
        Console.WriteLine("等待客户端连接...")
    End If
End While

' 停止服务器
tcpListener.Stop()

可以在客户端连接成功后做一些操作，比如向客户端发送数据等操作。当客户端连接断开时，可以通过 TcpClient 的 Connected 属性来判断客户端连接状态是否变化。

同时，也可以在客户端连接状态变化时触发事件来实现一些特定的功能。例如，可以使用 TcpListener 的 Start 方法启动服务器，使用 TcpListener 的 Stop 方法停止服务器。