原文出自:
firefox是我的主流浏览器,经常要把网页保存为mht格式
但MAF扩展用得很不顺手,又实在厌倦了firefox与ie间的频繁切换
于是写了这个脚本,减少点重复劳动总是好的^o^
'
==============================================================
'
IESaveAs Script
'
通过快捷键调用此脚本,能调用IE来保存当前页面
'
-- by lifesinger 2007-06-25
'
==============================================================
Option
Explicit
Dim
oShell, oIE, Address
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
Set
oShell
=
WScript.CreateObject(
"
WScript.Shell
"
)
oShell.SendKeys
"
{F6}
"
'
激活地址栏
oShell.SendKeys
"
(^c)
"
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
Set
oIE
=
CreateObject
(
"
InternetExplorer.Application
"
)
oIE.Silent
=
True
: oIE.Navigate
"
about:blank
"
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
Address
=
Trim
(oIE.document.parentwindow.clipboardData.getData(
"
text
"
))
oIE.Navigate(Address)
oIE.Visible
=
true
oShell.AppActivate(
"
Firefox
"
)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
Do
While
oIE.Busy
Wscript.Sleep
1000
Loop
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
oShell.AppActivate(
"
Internet Explorer
"
)
oIE.ExecWB
4
,
1
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
oIE.Quit
WScript.Quit
将上面的代码保存为IESaveAs.vbs
然后用Beyond - Hotkeys或Hoekey设定一个快捷键(譬如Win+S)
在浏览网页时,摁下快捷键就可以调用IE保存当前页面了
XP EN & IE7下使用无问题,其它环境下未测试
还有一个方法是通过CDO和ADODB来实现,但判断网页编码时有问题
可以参考:mht_converter.vbs http://www.goldb.org/goldblog/2007/01/10/VBScriptCreatingAMicrosoftWebArchiveMhtFileProgrammatically.aspx
但MAF扩展用得很不顺手,又实在厌倦了firefox与ie间的频繁切换
于是写了这个脚本,减少点重复劳动总是好的^o^
代码:
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/6810355c2f78c12e91b7997a8e8c583a.gif)
将上面的代码保存为IESaveAs.vbs
然后用Beyond - Hotkeys或Hoekey设定一个快捷键(譬如Win+S)
在浏览网页时,摁下快捷键就可以调用IE保存当前页面了
XP EN & IE7下使用无问题,其它环境下未测试
还有一个方法是通过CDO和ADODB来实现,但判断网页编码时有问题
可以参考:mht_converter.vbs http://www.goldb.org/goldblog/2007/01/10/VBScriptCreatingAMicrosoftWebArchiveMhtFileProgrammatically.aspx
注: lifesinger 写了很多很好的脚本,大家可以google一下他的网页,可以学到很多。