VB.NET TCP服务器怎么判断有数据进来

在 VB.NET 中，可以使用 TcpListener 和 TcpClient 类来创建 TCP 服务器。要判断是否有数据进来，可以使用 TcpClient 的 Available 属性来获取已经接收到的数据字节数，如果该属性返回值大于 0，则说明有数据进来了。例如：

Dim server As TcpListener = New TcpListener(IPAddress.Any, 1234)
server.Start()
Console.WriteLine("Server listening on port 1234...")
Dim client As TcpClient = server.AcceptTcpClient()
Dim stream As NetworkStream = client.GetStream()
While True
    If client.Available > 0 Then
        Dim bytes(client.Available - 1) As Byte
        stream.Read(bytes, 0, bytes.Length)
        Dim data As String = Encoding.ASCII.GetString(bytes)
        Console.WriteLine("Received: {0}", data)
    End If
End While

在上面的示例中，我们使用 Available 属性来判断是否有数据进来，如果有，则读取数据并进行处理。注意，这里使用的是同步方式读取数据，如果需要异步读取数据，可以使用 BeginRead 和 EndRead 方法。