Automatically Determine FTP Proxy Method

Tries each of the five possible ProxyMethod settings and returns the value (1-5) of the ProxyMethod that succeeded.

Download Chilkat FTP2 ActiveX

Dim ftp As New ChilkatFtp2

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "example-code.com"
ftp.Password = "****"

ftp.ProxyHostname = "ftp.myproxyhost.com"
ftp.ProxyPort = 21
'  Note: Your FTP Proxy server may or may not require authentication.
ftp.ProxyUsername = "myProxyUsername"
ftp.ProxyPassword = "myProxyPassword"

'  The ProxyMethod should be an integer value between 1 and 5.
'  If you know your FTP proxy server's authentication scheme,
'  you may set it directly.  To determine the ProxyMethod,
'  call DetermineProxyMethod.  A return value of -1 indicates a failure.
'  A return value of 0 indicates that nothing worked.
'  A return value of 1-5 indicates the ProxyMethod that was
'  successful, and this should be the value used for the ProxyMethod
'  property.

Dim pMethod As Long
pMethod = ftp.DetermineProxyMethod()
Text1.Text = Text1.Text & pMethod & vbCrLf

ftp.Disconnect