Save Web Page as .mht Web Archive

Downloads a web page into a .mht web archive.

Download: Chilkat .NET Assemblies

Dim mht As New Chilkat.Mht()

Dim success As Boolean

success = mht.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
End If


success = mht.GetAndSaveMHT("http://www.bonairefishing.com/","bonairefishing.mht")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
Else
    MsgBox("MHT Created!")
End If