'用VB保存网页到MHT文件

'代码：
'引用：Microsoft CDO For Windows 2000 Library 和 Microsoft ActiveX Data Objects 2.x Library Private Function SavePageToMHT(ByVal URL As String,ByVal FileName As String) As Boolean Dim objMsg As New CDO.Message Dim objStream As ADODB.Stream On Error GoTo Err: objMsg.CreateMHTMLBody URL,"domain/username","password" Set objStream = objMsg.GetStream objStream.SaveToFile FileName,adSaveCreateOverWrite SavePageToMHT = True Exit Function Err: Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Err.Description End Function '使用<a href="https://www.jb51.cc/tag/fangfa/" target="_blank" class="keywords">方法</a>： 'SavePageToMHT "http://www.chenoe.com","C:/Home.mht" '注意：在URL中必须指定协议，比如上面的http。