用了zyg0 (影子(努力节食争取减10斤)的 “udp传文件如何避免丢包”，真在太棒了，谢谢，随便还问一下一个有关的问题。

[RussellMX]

udp协议是1种无连接的协议，他和tcp协议比较有传输速度快，占用资源少的问题。
但是由于udp协议本身没有自动找包的功能，因此经常会出现丢包的现象，会造成传送的文件丢包的现象
因为时间匆忙和水平有限，本人在效率上没有作优化，只是简单的实现，请大家自己看源码吧
注释：
主要功能：把文件猜成4k大小的包 在包头+上包的长度 接受了1个包判断长度是否和接受的长度相符如果

符合那么就继续发，如果出现丢包那么就从发
希望大家有什么好的建议通知我，我会尽量完善的
Option Explicit
'==============================================
'===============================
'udp传文件
'客户端
'作者: 影子
'================================
'==============================================
Dim FileNumber As Integer '用来存文件的句柄
Dim LenFile As Long '文件的长度
Private Sub Command2_Click()
closefile
End Sub

Private Sub Form_Load()
Winsock0.LocalPort = 5698
Winsock0.Bind
beginfile
End Sub
Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)
Dim FileByte() As Byte
Winsock0.GetData FileByte, vbArray + vbByte '接收类型为:字节数组
Dim mendByte() As Byte, i As Long, j As Long
Dim temp As String, temp1 As String
'获得包长
j = UBound(FileByte)
'合并包头
For i = 0 To 7 Step 2
temp = temp & Chr(FileByte(i))
Next
'比较长度看丢包没有
If Val(temp) = j Then

ReDim mendByte(j - 8)
' 提出包头
For i = 0 To j - 8
mendByte(i) = FileByte(i + 7)
Next
' 写文件
Put #FileNumber, , mendByte
' 发送继续发送的请求
frmmain.Winsock0.SendData "ok"
Else
'出现丢包，请求重发
frmmain.Winsock0.SendData "no"
End If
End Sub

Public Sub beginfile()
FileNumber = FreeFile '取得未使用的文件号
Open "c:\aaa.exe" For Binary As #FileNumber '打开文件
End Sub

Public Sub closefile() '关闭文件句柄
Close #FileNumber
End Sub

Option Explicit
Dim GetFileNum As Integer
Dim LenFile As Long
Dim Sendbaye() As Byte '发送的包
'===============================
'udp传文件
'作者: 影子
'服务器端
'================================


Private Sub Command1_Click()
GetFileNum = FreeFile '取得未使用的文件号
LenFile = FileLen("d:\aa.rar") '获得需传送的文件的长度
Open "d:\aa.rar" For Binary As #GetFileNum '打开需传送的文件
Command1.Enabled = False
' 传送文件
Call TCPSendFile(frmmain.Winsock0, GetFileNum, SplitFile)
Text1.Text = Now
End Sub

Private Sub Form_Load()
frmmain.Winsock0.RemoteHost = "192.168.0.12" '服务器ip
frmmain.Winsock0.RemotePort = 5698

End Sub
'=========================================================================
'为了清晰,下面分别用两个子过程来完成计算这次还可以传多少个字节的数据和传送数据
'==========================================================================
Private Function SplitFile() As Long '拆包
On Error Resume Next
Dim GetCount As Long
'计算出这次可发送的字节数
If LenFile >= 4000 Then
GetCount = 4000
LenFile = LenFile - GetCount
Else
GetCount = LenFile
LenFile = LenFile - GetCount
End If
SplitFile = GetCount

End Function
Private Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long)
Dim FileByte() As Byte, i As Long, j As Long
Dim temp As String
ReDim Sendbaye(0)

Dim tempa As String * 4
ReDim FileByte(SendLen - 1)
tempa = SendLen + 7
Sendbaye = tempa ' 把长度负值给包头
Get #FileNumber, , FileByte '读取文件
ReDim Preserve Sendbaye(SendLen + 7) '把包头+到文件头
For i = 0 To UBound(FileByte)
Sendbaye(i + 7) = FileByte(i)
Next
frmmain.Winsock0.SendData Sendbaye
End Sub

Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)
Dim str As String
frmmain.Winsock0.GetData str
Select Case str
Case "ok"
'成功继续发送
If LenFile = 0 Then '发送完成
MsgBox "成功"
Exit Sub
End If
Call TCPSendFile(frmmain.Winsock0, GetFileNum, SplitFile)
Case "no"
'不成功重发上一个包
frmmain.Winsock0.SendData Sendbaye
End Select
End Sub

问题：
我想在接受端接受数据完成以后再不跳出整个程序，比如：还弹出一句接受完成之类的话，再跳出，该怎么办？
Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)
Dim FileByte() As Byte
Winsock0.GetData FileByte, vbArray + vbByte '接收类型为:字节数组
Dim mendByte() As Byte, i As Long, j As Long
Dim temp As String, temp1 As String
'获得包长
j = UBound(FileByte)
'合并包头
For i = 0 To 7 Step 2
temp = temp & Chr(FileByte(i))
Next
'比较长度看丢包没有
If Val(temp) = j Then

ReDim mendByte(j - 8)
' 提出包头
For i = 0 To j - 8
mendByte(i) = FileByte(i + 7)
Next
' 写文件
Put #FileNumber, , mendByte
' 发送继续发送的请求
frmmain.Winsock0.SendData "ok"
Else
'出现丢包，请求重发
frmmain.Winsock0.SendData "no"
End If
End Sub
如上，程序循环一直至接受整个数据完毕以后就不再做任何的反映了，要执行上面的程序完成以后再弹出一句，OK，应该怎么加这个OK？
还有传输完一次数据以后，不关掉接受端，只关掉发送段，然后再又运行发送端的时候就报错了，用什么方法解决这个问题？

[bboos]

来晚了，好东西还有吗？

[e-mail]

[lovebeethoven]

收到，谢谢

[TBenq]

[e-mail]

誰給我發個 謝謝~~

[noisy]

我也想要，[e-mail]

[laozhaoskinny]

麻烦哪位兄弟给偶也顺便发一份呀。
[e-mail]
先谢了

[zyg0]

借楼主的宝地，代码中有什么问题的话在这个帖子里面留
，要代码的兄弟请向楼上的各位要[e-mail]
发送成功

[lhy0922]

可以給我一份嗎，謝謝
[e-mail]

[siyuanwei]

我也要一份可以吗？
[e-mail]

那位能给我一个断点续传的方法？！！
在下由衷感谢！！！！！！~~~`

[zyg0]

方法有但是没写过，就是每一个包+序号，然后本地将接受的包看传到那个序号了，然后少那个序号发哪个

[ljhdi]

也给我一份吧，[e-mail]

[itcoco]

[e-mail]
谁能给我发一个 谢谢了
或者谁能给个下载的地方？

[RussellMX]

zyg0影子，能不能将你这个程序改成tcp协议的？再让我长长见识？

[IceFlowser]

影子大哥，再请教一下，为什么我发送到外网的IP的时候，外网的计算机能感应到有文件传送过来，但接收以后却没有任何的反映？开始的时候以为是速度慢的原因，但是一个20K的东西等了10分钟都没有任何的反映（局域网内一切正常），调试时发现，发送端不能触发Winsock0_DataArrival事件，为什么，有什么解决方法吗？

[zyg0]

因为你所在的是局域网，局域网连接外网，得话需要net转换，因此没有net转换的话，你不能给内网传东西，我写的不支持net转换

[IceFlowser]

你的意思是需要第三方的服务器转换吗？类似于QQ？我现在需要Internet上直接传送怎么办？（文件接受端有固定IP,发送端通过路由器上Internet），有什么方法吗?

[simonlee2003]

晕 影子写的代码你们就没有仔细看过， 中间明摆写了ip地址 ，说明只能在内网中使用.不过你可以试试端口映射能不。

[axiang80]

请发我一份：
[e-mail]

[zyg0]

你的意思是需要第三方的服务器转换吗？类似于QQ？我现在需要Internet上直接传送怎么办？（文件接受端有固定IP,发送端通过路由器上Internet），有什么方法吗?
//
1。
能否连接的关键是公网上是否有具有固定ip的服务器，如果没有的话，2个局域网的用户要想互联是不可能的
2。如果你以上条件满足的话，就要看你采用的协议 是tcp还是udp
如果tcp的话，可以 用消息转发实现
3如果采用udp的话麻烦来了
1需要各个客户端的上端路由器支持net如果不支持只好作罢
2如果支持的话，要进行打洞，就是常说的net转换也有说点对点的实现握手
3还要注意的是，建立了握手不是不断的，路由器还有个时间倒时间会自动给你断开的，因此要不停的发垃圾，如果断开的话还要从新执行1.2.3步骤
因此最佳选择是tcp
你要想实现2台机器1台有固定ip1台没有的话采用tcp最好。但是必须传送文件从没有固定ip的机器发起

[zyg0]

如果2个都在net下，的话必须有一个有固定ip的服务器中转，这样的话你想要就在等2天，我现在没时间，半个月后能给你写出来但是，我会写2个端口，还有数据库，因为操作数据库简单，还要有登录

[liuhaiyan]

期待ing