- Код: Выделить всё
[In]220 w3.www.narod.ru (Libra FTP daemon 0.17 20021010)
[Out]USER *****
[In] 331 Password required
[Out]PASS *****
[In]230 Logged in, proceed
[Out]PWD
[In]257 "/"
[Out]SIZE AREL.gif
[In]213 2962
[Out]PORT 212,154,149,129,17,24
[In]200 PORT command OK
[Out]RETR AREL.gif
[In]150 Opening data connection
Connection established...
[In] 451 Broken pipe
226 File transferred.
А что значит этот самый 451 не понятно. А вот собственно сам код:
- Код: Выделить всё
Private Sub Winsock1_DataArrival(ByVal BytesTotal As Long)
Dim Data As String
Dim RetCode As String
Winsock1.GetData Data, vbString
RetCode = CInt(Mid(Data, 1, 3))
Select Case RetCode
Case 220
Text1.Text = Text1.Text & "[In]" & Data & "[Out]" & "USER *****"
Winsock1.SendData "USER *****" & vbCrLf
Case 331
Text1.Text = Text1.Text & vbCrLf & "[In] " & Data & "[Out]" & "PASS *****"
Winsock1.SendData "PASS *****" & vbCrLf
Case 230
Text1.Text = Text1.Text & vbCrLf & "[In]" & Data & "[Out]" & "PWD"
Winsock1.SendData "PWD" & vbCrLf
Case 257
Text1.Text = Text1.Text & vbCrLf & "[In]" & Data & "[Out]" & "SIZE AREL.gif"
Winsock1.SendData "SIZE AREL.gif" & vbCrLf
Case 213
Text1.Text = Text1.Text & vbCrLf & "[In]" & Data & "[Out]" & "PORT 212,154,149,129,17,24"
Winsock1.SendData "PORT 212,154,149,129,17,24" & vbCrLf
Case 200
Text1.Text = Text1.Text & vbCrLf & "[In]" & Data & "[Out]" & "RETR AREL.gif"
Winsock1.SendData "RETR AREL.gif" & vbCrLf
Case 226
Text1.Text = Text1.Text & "[In]" & Data
Winsock1.Close
Case 150
Text1.Text = Text1.Text & vbCrLf & "[In]" & Data & "Connection established..." & vbCrLf
Case Else
Text1.Text = Text1.Text & "[In] " & Data
Winsock1.Close
End Select
End Sub