HTTP Upload using a Proxy Server

HTTP Upload using a proxy server. For more information about HTTP Upload, see this blog post: HTTP Upload Overview

Download Chilkat Upload ActiveX

set upload = CreateObject("Chilkat.Upload")

'  You may send test uploads to this URL:
'  http://www.chilkatsoft.com/cgi-bin/ConsumeUpload.exe
' 
'  A test HTML page is located at:
'  http://www.chilkatsoft.com/upload.html

'  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
'  that will process the HTTP Upload.
upload.Hostname = "www.chilkatsoft.com"
upload.Path = "/cgi-bin/ConsumeUpload.exe"

'  Specify an HTTP proxy server:
upload.ProxyDomain = "localhost"
upload.ProxyPort = 808

'  Add one or more files to be uploaded.
upload.AddFileReference "file1","dude.gif"
upload.AddFileReference "file2","pigs.xml"
upload.AddFileReference "file3","sample.doc"

'  Do the upload.  The method returns when the upload
'  is completed.
'  This component also includes asynchronous upload capability,
'  which is demonstrated in another example.
success = upload.BlockingUpload()
If (success <> 1) Then
    MsgBox upload.LastErrorText
Else
    MsgBox "Files uploaded!"
End If