DataArrival函数中数据丢失问题

Question

使用vb的winsock控件，向网站发送Get命令。
如果该网页返回的数据过大，总是有一些数据取不到。
请问如何解决?dim lngLength as long
dim i         as integerPrivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
  i = i + 1
  Debug.Print cstr(i) & ":" & cstr(bytesTotal)
  lngLength = lngLength + bytesTotal
  ws.GetData strData
  text1.text = text1.text + strData
End Sub
不断触发DataArrival过程中，当lngLength的长度超过70000多的数据后不能得到strData

Answer 1

是接受有问题，网站是分成n个封包发回来的，每个都不大于8k.
lngleng过70000多后,DataArrival事件照样触发，过70000多的第一个strData中的数据被截掉，此后的strData为空。bytesTotal变量的数据正常(用封包截获软件对比过)。

Answer 2

接收的时候用API函数sleep延时一下就在事件触发代码的开头延时以前我用mscomm的时候也碰到这种情况，当时就是这样子做的