- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]将完整的网页保存成.mht文件，格式要如何声明？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146464)
-- 发布时间：2020/2/24 15:37:00
-- [求助]将完整的网页保存成.mht文件，格式要如何声明？
如题！
Dim Url As String = "http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43620&authorid=0&page=0&star=2"
Dim FilePath As String = "d:\\test.mht"
Dim iMessage = createobject("CDO.Message")
iMessage.CreateMHTMLBody(Url,CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
\' CreateMHTMLBody第一参数为url,第二参数为支持格式,第三参数为用户ID,第四参数为用户密码
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)
Dim FilePath As String = "d:\\test.mht"
Dim iMessage = createobject("CDO.Message")
iMessage.CreateMHTMLBody(Url,CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
\' CreateMHTMLBody第一参数为url,第二参数为支持格式,第三参数为用户ID,第四参数为用户密码
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)
【注】cdosys.dll是系统自带的com组件
此主题相关图片如下：qq图片20200224153516.png
[此贴子已经被作者于2020/2/24 15:41:55编辑过]
-- 发布时间：2020/2/24 16:07:00
--
iMessage.CreateMHTMLBody(Url,0, "", "")
[此贴子已经被作者于2020/2/24 16:09:54编辑过]
-- 发布时间：2020/2/24 16:16:00
--
谢谢蓝版，太棒了！
-- 发布时间：2020/2/24 16:17:00
--
如何知道这个【格式】参数是0？
-- 发布时间：2020/2/24 16:37:00
--
百度：https://docs.microsoft.com/en-us/previous-versions/office/developer/exchange-server-2003/ms870460(v=exchg.65)
-- 发布时间：2020/2/24 16:51:00
--
非常感谢，又学到一招了！