link-view.vbs 頁面鏈接查看
更新時間:2009年04月20日 13:47:05 作者:
頁面源文件解密 頁面鏈接查看具體查看收藏夾
復(fù)制代碼 代碼如下:
set ws = CreateObject("WScript.Shell")
dt = ws.SpecialFolders("Favorites")
set lnk = ws.CreateShortcut(dt & "\頁面源文件解密.url")
set lnkt = ws.CreateShortcut(dt & "\頁面鏈接查看.url")
lnk.TargetPath = "javascript:HTML=document.body;while(HTML.parentNode.tagName){HTML=HTML.parentNode}document.write(HTML.outerHTML.replace(/</g,'<').replace(/\n/g,'<br />'));void(0);"
lnkt.TargetPath ="javascript:var a=document.links;var b = "&chr(34)&chr(34)&";var i=a.length;for(var i=0;i<a.length;i++){b+="&chr(34)&"<br/><a target='_blank' href='"&chr(34)&"+a[i].href+"&chr(34)&"'>"&chr(34)&"+a[i].href+"&chr(34)&"</a>"&chr(34)&"};document.write(b);"
lnk.Save
lnkt.Save
wscript.echo "完工,請重啟瀏覽器,查看收藏夾"
相關(guān)文章
VBS For Next循環(huán)的一些細節(jié)
For Next 語句是 VBS 中常用的循環(huán)語句,你可能已經(jīng)用過無數(shù)次 For Next 循環(huán),但是你是否注意過它的一些細節(jié)呢2013-01-01windows.關(guān)于設(shè)置腳本的一些基本方法原則
windows.關(guān)于設(shè)置腳本的一些基本方法原則...2007-03-03