(Visual Basic 6.0) Download HTML from URL and Convert to XML

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' Note: This example requires the Chilkat Bundle license.

' Any string argument automatically begins the 30-day trial.
Dim glob As New ChilkatGlobal
Dim success As Long
success = glob.UnlockBundle("30-day trial")
If (success <> 1) Then
    Debug.Print glob.LastErrorText
    Exit Sub
End If

Dim http As New ChilkatHttp

Dim html As String
html = http.QuickGetStr("http://www.intel.com/")
If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim htmlToXml As New HtmlToXml

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

' 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.
success = htmlToXml.WriteStringToFile(xml,"qa_output/out.xml","utf-8")

Debug.Print "Finished."