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

 

 

 

 

 

 

 

Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

Download Chilkat HTML-to-XML ActiveX (also includes HTML-to-PlainText conversion)

Download Chilkat HTTP ActiveX

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

'  Note: This example uses two Chilkat products: Chilkat HTTP
'  and Chilkat HTML-to-XML.  The "Chilkat Bundle" can be licensed
'  at a price that is less than purchasing each product individually.
'  The "Chilkat Bundle" provides licenses to all existing Chilkat components.  Also, new-version upgrades are always free.

set http = CreateObject("Chilkat.Http")

'  Any string argument automatically begins the 30-day trial.
success = http.UnlockComponent("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

html = http.QuickGetStr("http://www.intel.com/")
If (html = vbNullString ) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set htmlToXml = CreateObject("Chilkat.HtmlToXml")

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(htmlToXml.LastErrorText)
    WScript.Quit
End If

'  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

'  Set the HTML:
htmlToXml.Html = html

'  Convert to XML:

xml = htmlToXml.ToXml()

'  Save the XML to a file.
'  Make sure your charset here matches the charset
'  used for the XmlCharset property.
htmlToXml.WriteStringToFile xml,"out.xml","utf-8"

MsgBox "Finished."
outFile.Close

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

Mail Component · XML Parser