FTP 500?

[vIRisium :)]

Вот код:

Код: Выделить всё


Function Start() As Integer

        Dim ToSend As String

        AddHandler Sock.Connected, AddressOf Connected
        AddHandler Sock.HandleError, AddressOf HandleError
     
        Sock.Connect("ftp.com", 21)

        While Con = 0
            Application.DoEvents()
        End While

        If Con = -1 Then

            Return -1

            Exit Function

        End If

        If Con = 1 Then
            While Dat = ""
                On Error Resume Next
                Application.DoEvents()
                Sock.GetData(Dat)
            End While
            ToSend = "USER " & Login & vbCrLf

            Dat = ""
            Sock.Send(ToSend)
            Application.DoEvents()
            While Dat = ""
                On Error Resume Next
                Sock.GetData(Dat)
            End While
            Stop
            If Mid(Dat, 1, 3) = 331 Then
                Dat = ""
                Stop
                Sock.Send("PASS " & Password & vbCrLf)
                Stop
                Application.DoEvents()
                Stop
                While Dat = ""
                    On Error Resume Next
                    Sock.GetData(Dat)
                End While
                '''''''' ЗДЕСЬ ВОЗРАЩАЕТ 500? типа неизвестная программа... че такое?
            Else
                Return -2
            End If
        End If
    End Function


[Sebas]

http://ln.com.ua/~openxs/articles/smart ... ns-ru.html