一个小问题，两段小程序为什么一对一错，奇怪啊，请高手指点迷津！

Question

把上面的代码其中的一句改成
winsock.GetData ArrivedArray(1), vbArray + vbByte，8192
试试
    

Answer 1

各位，不行啊，winsock.GetData ArrivedArray(1), vbArray + vbByte，8192怎么能行呢，只能得到一个字节的数据！！！

Answer 2

Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
    Dim ArrivedArray() As Byte
    ReDim ArrivedArray(bytesTotal) As Byte
    tcpServer.GetData ArrivedArray, vbArray + vbByte, bytesTotal
    ......
End Sub

Answer 3

谢谢大家，问题已经解决了，正确的答案应该是：
Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
    Dim ArrivedArray() As Byte
    ReDim ArrivedArray(bytesTotal) As Byte
    tcpServer.GetData ArrivedArray, vbArray + vbByte, bytesTotal
    ......
End Sub 
与各位同道共享，特别感谢hydnoahark(诺亚方舟)，献上20分，不成敬意。