怎样在VB中用winsock实现ftp的上传下载

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:14:38
下载包括：获取文件大小，下载文件，最好带有断点续传。

最好贴出代码，分不够可以再加！
上传部分可以不要，重点在下载部分，利用winsock和FTP被动模式下载文件。最好带有断点续传功能！

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Info() As String, TimerCountA As Long

Private WithEvents wscControl As MSWinsockLib.Winsock
Private WithEvents wscData As MSWinsockLib.Winsock
Private Tmp As String, FileSize As String, DFile As String

Private Sub TimerControl_Timer()
LabelControl.Caption = "控制连接状态：" & WinSState(wscControl.State)
End Sub

Private Sub TimerData_Timer()
LabelData.Caption = "数据连接状态：" & WinSState(wscData.State)
End Sub

Private Sub wscControl_DataArrival(ByVal bytesTotal As Long)
Dim i As String
wscControl.GetData Tmp
End Sub

Private Sub wscData_DataArrival(ByVal bytesTotal As Long)
Dim ByteData() As Byte
wscData.GetData ByteData(), vbByte
Open DFile For Binary Lock Write As #1
ProgressBar.Value = FileLen(DFile)
If LOF(1) > 0 Then
Seek #1, L