调用IE的“另存为”来保存网页的VBS脚本

原文出自：

http://www.et8.net/bbs/showthread.php?t=861717

firefox是我的主流浏览器，经常要把网页保存为mht格式
但MAF扩展用得很不顺手，又实在厌倦了firefox与ie间的频繁切换
于是写了这个脚本，减少点重复劳动总是好的^o^

代码:

' ==============================================================
'  IESaveAs Script 

'  通过快捷键调用此脚本，能调用IE来保存当前页面

'                       -- by lifesinger  2007-06-25
' ==============================================================
Option   Explicit
Dim  oShell, oIE, Address

Set  oShell = WScript.CreateObject( " WScript.Shell " )
oShell.SendKeys  " {F6} "   ' 激活地址栏
oShell.SendKeys  " (^c) "

Set  oIE  =   CreateObject ( " InternetExplorer.Application " )
oIE.Silent  =   True  : oIE.Navigate  " about:blank "

Address  =   Trim (oIE.document.parentwindow.clipboardData.getData( " text " ))
oIE.Navigate(Address)
oIE.Visible  =   true
oShell.AppActivate( " Firefox " )

Do   While  oIE.Busy
    Wscript.Sleep  1000
Loop

oShell.AppActivate( " Internet Explorer " )
oIE.ExecWB  4 , 1

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

注： lifesinger 写了很多很好的脚本，大家可以google一下他的网页，可以学到很多。