winsock的PeekData怎么使用？？能给代码不？？

Question

我用winsock写了一个ftp上传下载的程序，但是今天下载一个53726长度的txt文件时，发现怎么弄下载的文件都只有8192长度。
查资料得知要用peekdata方法，调试了很久发现应该如此，但是peekdata我用不对，虽然下载的文件突破了8192，但是依然下载不完全，经常会有些奇奇怪怪的结果。
下面是我的代码，兄弟们帮忙看下？
Private Sub wscData_DataArrival(ByVal bytesTotal As Long)
    Dim ByteData() As Byte
    dblDataCom = dblDataCom + 8192    If dblDataCom > Val(strFileSize) Then
        wscData.PeekData ByteData(), vbByte      
Open strFileLocal For Binary Lock Write As #1       
        Put #1, , ByteData()
        Close #1
        wscData.Close
    End If
end sub

Answer 1

PeekData 方法
      PeekData 不从输入队列删除数据，除了这一点之外，方法与 GetData 相似。该方法仅适用于 TCP 连接。语法object.PeekData data, [type,] [maxLen]PeekData 方法的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
data 在方法成功地返回之后存储获取的数据。如果对于没有足够的适于所请求的类型来说没有足够可用的数据，那么 data 将被设置为 Empty。 
type 可选的。所获取的数据类型，如同“设置值”中所述。缺省值为：vbArray + vbByte。 
maxLen 可选的。在收到字节数组或字符串时，长度指定了所需要的大小。如果对字节数组或字符串的参数丢失，则将获取所有可用的数据。如果提供的数据类型不是字节数组和字符串的话，则忽略该参数。 
设置值type 的设置值是：类型 常数 
Byte vbByte 
Integer vbInteger 
Long vbLong 
Single vbSingle 
Double vbDouble 
Currency vbCurrency 
Date vbDate 
Boolean vbBoolean 
SCODE vbError 
String vbString 
Byte Array vbArray + vbByte 
返回值Void说明如果所指定的类型为 vbString，则在返回到用户之前，字符串数据将转化成 UNICODE。