在网上找到的:
你可以使用CDO和ADODB组件将完整的网页保存成.mht文件。
首先添加两个引用:“Microsoft CDO For Windows 2000 Library”和“Microsoft ActiveX Data Objects 2.5 Library”。
项目菜单 -> 添加引用... -> COM标签
Imports ADODB
Imports CDO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
SavePage(" http://forums.microsoft.com/MSDN/default.aspx", "C:\msdn.mht")
End Sub
Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
Dim iMessage As CDO.Message = New CDO.Message
iMessage.CreateMHTMLBody(Url, _
CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
Dim adodbstream As ADODB.Stream = New ADODB.Stream
adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset = "US-ASCII"
adodbstream.Open()
iMessage.DataSource.SaveToObject(adodbstream, "_Stream")
adodbstream.SaveToFile(FilePath, _
ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
End Sub
End Class