怎么用winsock发送120K个元素各抒个数的数组

Question

发送:
     dim b() as byte
     CopyMemory b(0), ByVal tout.pBuffer, tout.bitSize
     '''''''ubound(b)=120000'''''''''''
      senddata b接收：　　Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
         Dim b() As Byte
         Winsock1.GetData b, vbByte + vbArray
    End Sub
现象：winsock的接收分很多次完成，比如第一次接收到ubound(b)=4379,第二次ubound(b)=8191．．．．．．．．．．．．．．．，总共接收了很多次．
问：怎么样控制winsock,使得只要一次就可以接受全部数据？使接收的ubound(b)=120000?????

Answer 1

不可能。网络包本来就是很少的缓存区，网络包有最大限制(8K)，实际上应用程序通常能使用的比这个要小，通常情况>4K就很可能被分包发送和接收了。