VBScript Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VBScript Examples

Bounced Mail
Bz2
Character Encoding
Digital Certificates
CSV
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SFTP
SMTP
Socket
Spider
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
Byte Array
RSS
Atom
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

 

 

 

 

 

 

 

(VBScript) HTTP Download any Type of File (binary or text)

The Download method may be called to download any type of file. It may be a binary file such as a .zip, .pdf, etc., or it may be text (.xml, .txt, etc.). There is no distinction. The Download method downloads the file from the web server and streams it to a file byte-for-byte exactly as received. Any web page may be downloaded in the same fashion. Passing a URL for a page that would normally be viewed in a browser would simply download to a file the HTML delivered by the web server.

SSL/TLS connections are fully supported by simply specifying a URL that begins with "https://".

Download Chilkat HTTP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

'  Download a .zip
localFilePath = "/temp/hamlet.zip"
success = http.Download("http://www.chilkatsoft.com/hamlet.zip",localFilePath)
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

'  Download an XML file:
localFilePath = "/temp/hamlet.xml"
success = http.Download("http://www.chilkatsoft.com/hamlet.xml",localFilePath)
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("OK!")

outFile.Close

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser