有是我们打开一个网页,里面有图片等好多内容,用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文件的功能,希望这个东西对您有用。
|