|
有是我们打开一个网页，里面有图片等好多内容，用IE可以直接存为“Web 档案，单一文件(*.mht)”，IE虽然有这个功能，那么我们的程序能不能也有这个功能？
答案是肯定的，这需要我们引用“Microsoft CDO for Windows 2000 Library”。好，下面我们就开始这一功能。
首先，新建一工程，点[工程]-[引用]，选择“Microsoft CDO for Windows 2000 Library”。
在窗体上添加一个按钮——“Command1”，双击按钮，在Command1_Click中添加如下代码：
Dim a As New CDO.Message
a.CreateMHTMLBody "http://www.lihuasoft.net", cdoSuppressAll, "", ""
'打开立华软件园，并保存成MHTML格式
Set b = a.GetStream
b.SaveToFile "c:\1.mht" '保存到C盘
MsgBox "OK"
添加完成后，按F5，运行，然后点击按钮，当出现OK的时候，在C盘看看，是不是多了一个1.mht文件？双击打开，是不是立华软件园首页呀？
用记事本打开这个文件，已经是标准的MHT文件了。
通过上面的方法，您可以实现保存MHT文件的功能，希望这个东西对您有用。 | 