Dim client As TcpClient = CType(obj, TcpClient) Dim stream As NetworkStream = client.GetStream() Try Dim buffer(1024) As Byte Dim bytesRead As Integer ' 读取客户端数据 bytesRead = stream.Read(buffer, 0, buffer.Length) Dim request As String = Encoding.ASCII.GetString(buffer, 0, bytesRea...