Vb 6 winsock 局域网传文件太慢，高手进

Question

用VB6写了个局域网传文件的小程序，能用，
而且单机测试速度相当快，文件大的话几十M/S
就是用2台电脑测试速度太慢，才几十K，，
我的神啊。。。这是局域网吗？？
知道的指点下，先谢了

想要分的可以留言，问题解决了一定会再加的
发送端：
Private Sub SendFile(file_name As String, file_size)
Dim fbsize As Long, fbnumber As Long, wbsize As Long, tmp() As Byte
fbsize = 1048576 '包大小
fbnumber = file_size \ fbsize
wbsize = file_size Mod fbsize '尾包大小

ReDim tmp(1 To fbsize)
h = FreeFile
Open file_name For Binary Access Read As h

For i = 1 To fbnumber
Get #h, , tmp
WS2.SendData tmp()
Next

If wbsize > 0 Then '尾包
ReDim tmp(1 To wbsize)
Get #h, , tmp()
WS2.SendData tmp()
WS2get = ""
End If
Close h
End Sub

接收的
Private Sub WS2_DataArrival(ByVal bytesTotal As Long)
ReDim tmp(1 To bytesTotal)
WS2.GetData tmp(), vbByte
tmpsize = tmpsize + bytesTotal
Shape1.Width = tmpsize / upfilesize * Picture1.Width

Put #h, , tmp()
If tmpsize = upfilesize Then
Close h
WS1.SendData "Over": tmpsize = 0
End If
End Sub

Answer 1

VB传文件确实不太快， 以前我也写过类似程序。能传到几百K/S，最快能达1M（这都是在局域网上）。
建议你把每次发送的数据包大小改一下。不要用1048576,改为1500左右试下。因为网络包最大为1500。

Answer 2

多开几个Winsock
传输数据的时候要DoEvents

Answer 3

请直接到这里下载

快速的多文件传送源码，在本地局域网上可达到1.8Mb+的速度