Vb.net 服务器客户端聊天编程

我试图通过本文底部提供的链接来学习教程。然而，它在客户端不断遇到麻烦

导致错误的行是：

serverStream.Read(inStream, 0, buffSize)

我得到的错误如下所示：

System.ArgumentOutOfRangeException:长度不能小于零

我一直试图弄明白这一点，但是我是一个偶尔的程序员，所以即使我能够隔离代码挂起的位置，我也不知道为什么

有人能帮我弄清楚吗

出现错误的子系统：

Private Sub getMessage()
    For infiniteCounter = 1 To 2
        infiniteCounter = 1
        serverStream = clientSocket.GetStream()
        Dim buffSize As Integer
        Dim inStream(10024) As Byte
        buffSize = clientSocket.ReceiveBufferSize
        serverStream.Read(inStream, 0, buffSize)
        Dim returndata As String = _
        System.Text.Encoding.ASCII.GetString(inStream)
        readData = "" + returndata
        msg()
    Next
End Sub

完整代码位于：

---

尝试使用Try和catch找出问题您应该检查

buffSize

的值，并尝试找出其为负值的原因。我在调试时检查了缓冲区大小，但它的“value/size”是65536？您可以使用

inStream.Length

而不是

buffSize

，因为buffsize比你的inStream大，所以它无论如何都不适合所有东西是的，用inStream.length替换buffsize可以吗