Problems with making an FTP Client with VB

[Frankie902]

I am working on an FTP client using the MS Winsock Control, I used this code and having my winsock control set to the nbci ftp server (ftp.nbci.com):

Private Sub Form_Load()
Winsock1.Connect
Text1.Text = Text1.Text & vbCrLf & "Connecting"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End Sub

Private Sub Winsock1_Close()
MsgBox "Connection Closed"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sString As String
Winsock1.GetData sString, vbString
Text1.Text = Text1.Text & vbCrLf & sString
Select Case Left(sString, 3)
Case "220"
Winsock1.SendData "USER fwninc"
Text1.Text = Text1.Text & vbCrLf & "USER fwninc"
End Select

End Sub

I Get this in my text Box.

Connecting
220 ftp.xoom.com FTP server (Version XOOM FTP 1.24.3+local-release Fri Aug 28 15:52:40 PDT 1998.) re
USER fwninc
ady.


I dont know why it goes re and then on the bottom ady. it should be "ready.", and how come I dont get a "331 Password required for fwninc."?
Please help!

[jjortiz]

I do not know how to answer your question but here is some sample apps.

[jjortiz]

Sample 2.
Hope that this helps.

[csammis]

I made a few modifications to your DataArrival event.

Step One: put a global variable in your project --

Dim fullDataString as String

Step Two: Do this with your DataArrival event

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sString As String
Winsock1.GetData sString, vbString
' Here's something new
fullDataString = fullDataString & sString
If right$(fullDataString,2) = vbCrLf Then
    Text1.Text = Text1.Text & sString   ' You can take out the vbCrLf here...
    Select Case Left(sString, 3)
        Case "220"
            ' This is new too!
            Winsock1.SendData "USER fwninc" & vbCrLf
            Text1.Text = Text1.Text & "USER fwninc" & vbCrLf   ' ...but just reposition it here
    End Select
    fullDataString = ""
End If
End Sub

What this does is wait for the entire communication to come in. FTP, mail, and a lot of internet servers terminate their data transmissions with a CR+LF pair, so you have to check to see if the CRLF is in before you can work with it. Also, in all of your *.SendData statements, put a vbCrLf on the end of them so the server knows what's going on