VB.NET 创建的TCP服务器，怎么知道客户端已经连接

在 VB.NET 中，可以通过调用 `TcpListener` 对象的 `AcceptTcpClient()` 方法来接受客户端的连接请求，并返回一个 `TcpClient` 对象。如果该方法阻塞，说明没有客户端连接；如果方法返回了一个 `TcpClient` 对象，说明有客户端连接。

可以使用以下代码示例来检查是否有客户端连接：

Dim listener As New TcpListener(IPAddress.Any, 8080)
listener.Start()

' 等待客户端连接
While True
    Console.WriteLine("等待客户端连接...")
    Dim client As TcpClient = listener.AcceptTcpClient()
    Console.WriteLine("客户端已连接")
    ' 在这里可以进行数据交换
    client.Close()
End While

在上述代码中，通过调用 `AcceptTcpClient()` 方法等待客户端连接。如果有客户端连接，该方法将返回一个 `TcpClient` 对象，然后可以进行数据交换。当客户端关闭连接时，可以使用 `Close()` 方法关闭连接。

请注意，`AcceptTcpClient()` 方法是阻塞的，也就是说，在客户端连接之前，程序会一直停留在该方法处等待。如果您希望程序能够同时处理多个客户端连接，可以将 `AcceptTcpClient()` 方法放在一个独立的线程中运行，这样就可以同时处理多个客户端连接了。