SetWorkingDir %A_ScriptDir%

Url2Mhtml("https://www.baidu.com", "baidu.mhtml")

Url2Mhtml(URL, destPath=0, flags=0) {
  comObj := ComObjCreate("{CD000001-8B95-11D1-82DB-00C04FB1625D}")
  comObj.CreateMHTMLBody(URL, flags)
  comObj.GetStream().SaveToFile((destPath) ? destPath : A_ScriptDir . "\url.mht", 2) ; adSaveCreateOverWrite:=2
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。