link-view.vbs 頁(yè)面鏈接查看
更新時(shí)間:2009年04月20日 13:47:05 作者:
頁(yè)面源文件解密 頁(yè)面鏈接查看具體查看收藏夾
復(fù)制代碼 代碼如下:
set ws = CreateObject("WScript.Shell")
dt = ws.SpecialFolders("Favorites")
set lnk = ws.CreateShortcut(dt & "\頁(yè)面源文件解密.url")
set lnkt = ws.CreateShortcut(dt & "\頁(yè)面鏈接查看.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 "完工,請(qǐng)重啟瀏覽器,查看收藏夾"
相關(guān)文章
VBS For Next循環(huán)的一些細(xì)節(jié)
For Next 語(yǔ)句是 VBS 中常用的循環(huán)語(yǔ)句,你可能已經(jīng)用過(guò)無(wú)數(shù)次 For Next 循環(huán),但是你是否注意過(guò)它的一些細(xì)節(jié)呢2013-01-01windows.關(guān)于設(shè)置腳本的一些基本方法原則
windows.關(guān)于設(shè)置腳本的一些基本方法原則...2007-03-03ADOX.Catalog中文幫助詳細(xì)說(shuō)明chm文檔
這個(gè)是用來(lái)操作ACCESS數(shù)據(jù)庫(kù)的東西,遍歷表,遍歷表的所有字段及字段的屬性都會(huì)用到這個(gè)2008-06-06