用CDO保存网页到MHT文件

最新推荐文章于 2021-06-16 19:13:57 发布

原创最新推荐文章于 2021-06-16 19:13:57 发布 · 2.5k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft #function #library #string #url #windows

Visual Basic 6.0 专栏收录该内容

35 篇文章

订阅专栏

本文介绍了一种使用Microsoft CDO 和 ActiveX Data Objects库将网页保存为MHT格式的方法。通过提供的VBScript代码示例，可以实现从指定URL抓取页面并将其转换成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:
    MsgBox Err.Description
End Function

使用方法：
SavePageToMHT "http://www.chenoe.com", "C:/Home.mht"

注意：在URL中必须指定协议，比如上面的http。