(Visual Basic 6.0) Download Web Page to MHT and Extract Images (all in memory)

Downloads a web page to an MHT archive (in memory) and then extracts each image to a byte array in memory.

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

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' Note: This URL exists at the time of writing and testing this example (on 12-June-2020)
' However, it will surely not continue to exist for very long.
' You should choose a different URL.  (Any web page with images will do.)
Dim url As String
url = "https://www.fendi.com/it/abbigliamento-uomo/cravatta-fxc160a3nwf0qg2"

Dim mht As New ChilkatMht

' Downloads to an MHT string.
' MHT is just MIME, which is the same format as an email but with different semantics.
Dim mhtStr As String
mhtStr = mht.GetMHT(url)
If (mht.LastMethodSuccess = 0) Then
    Debug.Print mht.LastErrorText
    Exit Sub
End If

' We can still treat the MHT MIME as an email and iterate over the "related items".
Dim email As New ChilkatEmail
Dim success As Long
success = email.SetFromMimeText(mhtStr)
If (success = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

Dim numRelatedItems As Long
numRelatedItems = email.NumRelatedItems
Dim i As Long
i = 0
Dim sbContentType As New ChilkatStringBuilder
Do While i < numRelatedItems
    success = sbContentType.SetString(email.GetRelatedContentType(i))
    Debug.Print "Content-Type: " & sbContentType.GetAsString()

    If (sbContentType.StartsWith("image/",0) = 1) Then
        ' We have an image.
        ' Get the image data.
        Dim imageData() As Byte
        imageData = email.GetRelatedData(i)

        ' Do what you need with the image data..
    End If

    i = i + 1
Loop