论坛 › 『 作品展览 』 › 给IE右键添加 ”保存为MHT“

lixiaolong 发表于 2012-2-24 14:54:25

给IE右键添加 ”保存为MHT“

本帖最后由 lixiaolong 于 2012-2-24 14:57 编辑

为了方便写的，喜欢的朋友下载吧~
测试环境：Win7，IE9





在IE上点右键，再点击菜单中的”保存为MHT“会把网页保存为MHT文件(到桌面).

komaau3 发表于 2012-2-24 21:08:23

×楼上 ，顶楼主，看下原理

komaau3 发表于 2012-2-24 21:25:46

保存方法非后台，不过挺方便！附件非源码，程序可是调用JS的SaveAs方法？

lynfr8 发表于 2012-2-24 21:44:11

回复 4# komaau3

送个后台保存为mht文件的UDF给你们：_INetGetMHT('http://www.autoitx.com/forum.php?mod=viewthread&tid=30540&rpid=401645&ordertype=0&page=1#pid401645', @ScriptDir&'\1.mht')
Func _INetGetMHT($Url, $file)
        Local $msg = ObjCreate("CDO.Message")
        If @error Then Return False
        Local $ado = ObjCreate("ADODB.Stream")
        If @error Then Return False
        With $ado
                .Type = 2
                .Charset = "US-ASCII"
                .Open
        EndWith
        $msg.CreateMHTMLBody($Url, 0)
        $msg.DataSource.SaveToObject($ado, "_Stream")
        FileDelete($file)
        $ado.SaveToFile($file, 1)
        If @error Then Return False
        $msg = ""
        $ado = ""
        Return True
EndFunc   ;==>_INetGetMHT

lixiaolong 发表于 2012-2-24 21:50:23

回复 4# komaau3

我把原理发在源码区了.
http://www.autoitx.com/thread-30543-1-1.html

lixiaolong 发表于 2012-2-24 22:19:43

回复 5# lynfr8

谢谢前辈！我试了速度很快，还能后台保存，GOOD！

虎虎虎 发表于 2012-2-24 23:40:09

怎么感觉2楼出现的位置很类似啊。

病毒专收员 发表于 2012-2-25 12:26:19

回复 5# lynfr8


    我之前长期用这个UDF 但是存在有时候无法保存网页的问题，有什么办法解决嘛？

xyhqqaa 发表于 2012-2-25 17:32:23

先看看。。谢谢分享

lynfr8 发表于 2012-2-27 03:07:32

回复 9# 病毒专收员


    如果你是以网页标题为文件名保存为mht的，留意无法保存的网页标题是否存在文件名不允许的符号

qiu491996004 发表于 2012-2-29 10:13:03

下下来学习看下

boyhong 发表于 2012-2-29 13:45:05

呵呵，谢谢了，一定要收藏的。

boyhong 发表于 2012-2-29 13:45:08

呵呵，谢谢了，一定要收藏的。

rabbitshee 发表于 2012-3-2 08:55:47

谢谢了，一定要收藏的。

zldfsz 发表于 2012-3-2 11:59:27

回复komaau3

送个后台保存为mht文件的UDF给你们：
lynfr8 发表于 2012-2-24 21:44 http://www.autoitx.com/images/common/back.gif


谢谢了，很不错，也谢谢小龙

查看完整版本: 给IE右键添加 ”保存为MHT“