主题：如何将WebBrowser里面的内容保存为mht格式

我一直回复的不就是吗? 你测试过了没有?

楼主，要出现保存对话框的话：

 

e.form.controls("webBrowser1").basecontrol.ShowSaveAsDialog()

 

这个就和单击浏览器的保存按钮一样。

如果单纯的保存为html格式 其实图片之类的内容是不会被保存的，而电脑打开后可以看到是浏览器重新下载了内容

请看12楼

是否有直接保存为htm格式的代码呢？狐爸 你给我的确实是我想要的 万分感谢

12楼狐爸的代码可以完美帮到你.

哦....................是我搞错了格式的 打我吧

保存为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