版主：
我想用Winsock控件实现udp协议的应用。（请注意是UDP协议）
我想用UDP协议来传输二进制文件，现在有一个问题是：使用WINSOCK的udp协议，直接传输的文件一般都比8K小， 请问是否有什么方法能够把传输文件的量增大。使用数组么？
版主能否给写个例子看看，谢啦！

无高手乎？
其实并不是很难的问题，无非你对文件的操作和一些动态定义数组的问题，看来还得自己来解决了！
呜呼！！

```分多次髮送不就解決叻````

是的，如果文件比较大，必须要分多次传
在这里我只给你写出发送端的例子，至于接收端，我想你看了之后自然明白了
Dim size() As Byte '定义一个字节数组
Dim m as Integer
Dim filenum1 as Integr
ReDim size(1024) '重定义它的大小是1024字节，即每次发送1K
filenum1 = FreeFile
Open "c:\ceshi.exe" For Binary As filenum1
m=1
For i = 1 To LOF(filenum1) \ 1024
Get filenum1, m, size
m = 1024 * i
winsock1.senddata size
Next
If LOF(filenum1) > (LOF(filenum1) \ 1024) * 100 Then
ReDim size(LOF(filenum1) - (LOF(filenum1) \ 1024) * 1024)'重定义大小，将剩余部分发送
Get filenum1, m, size
winsock1.senddata size
End If
Close
MsgBox "发送完成！"

首先谢谢上面这位，这样子做是可以的，但是效率不高，我自己也已经写出这样的算法了，用这种方法才传一个比较的大文件的话，时间特别长，而且还会占用很大的资源。
我自己还是再研究一下吧，不过还是谢谢啦，呵呵！！

多開個綫程不就解決叻````