Download HTML from URL and Convert to XML

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

Download Chilkat HTTP ActiveX

'  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 Chilkat components.  Also, new-version upgrades are always free.

Dim http As New ChilkatHttp

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = http.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "HTTP component unlock failed"
    Exit Sub
End If

Dim html As String
html = http.QuickGetStr("http://www.intel.com/")
If (html = vbNullString ) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

Dim htmlToXml As New HtmlToXml

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "HtmlToXml component unlock failed"
    Exit Sub
End If

'  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "iso-8859-1"

'  Set the HTML:
htmlToXml.Html = html

'  Convert to XML:
Dim xml As String
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","iso-8859-1"

MsgBox "Finished."