#include <IE.au3>
#include <file.au3>
;只支持IE浏览器 By lynfr8
HotKeySet("{F10}", "GetHtml")
While 1
Sleep(100)
WEnd
Func GetHtml()
$oIE = _IEAttach (WinGetHandle("[ACTIVE]", ""), "HWND")
$html = $oIE.document.selection.createRange().htmlText
If $html <> '' Then _FileWriteLog(@ScriptDir & ""&_IEPropertyGet($oIE, "locationname")& ".html",$html)
TrayTip("已保存",_IEPropertyGet($oIE, "locationname"),2)
EndFunc
以上代码仅仅是保存网页自选区域的html文件
如果想离线也可浏览图片
可用正则提取$oIE.document.selection.createRange().htmlText的图片链接并下载到以_IEPropertyGet($oIE, "locationname")命名的文件夹
同时将@ScriptDir & "\"&_IEPropertyGet($oIE, "locationname")& ".html"文件的图片链接路径改为本地相对路径
精力有限我就不写了
也可以借鉴此文章:保存本地html为mht文件(官网),不过我测试了这段官网代码出错,楼主有兴趣可研究下。
参考资料:
关于document.selection对象的介绍
document对象
Document.selection |