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教程：函數(shù)-派生數(shù)學(xué)函數(shù)
VBS教程：函數(shù)-派生數(shù)學(xué)函數(shù)...2006-11-11
VBS中常用腳本代碼...2007-03-03
15分鐘學(xué)會(huì)vbscript中的正則表達(dá)式
這篇文章主要介紹了15分鐘學(xué)會(huì)vbscript中的正則表達(dá)式,需要的朋友可以參考下2018-06-06
vbs在網(wǎng)頁(yè)中顯示服務(wù)...2006-06-06
妙用VBScript自制IE工具欄按鈕的代碼...2007-03-03
VBS教程：對(duì)象-正則表達(dá)式(RegExp)對(duì)象
RegExp對(duì)象在VBScript中提供正則表達(dá)式支持功能，該對(duì)象有3個(gè)屬性和3個(gè)方法2006-11-11
VBS教程：VBscript語(yǔ)句-Option Explicit 語(yǔ)句
VBS教程：VBscript語(yǔ)句-Option Explicit 語(yǔ)句...2006-11-11
VBS教程：VBscript屬性-Value 屬性...2006-11-11
有時(shí)候由于網(wǎng)站過(guò)多想知道有哪些網(wǎng)站，一個(gè)一個(gè)看也挺累的，那么就可以通過(guò)iisweb.vbs 列出網(wǎng)站，而且還能看到每個(gè)網(wǎng)站的狀態(tài)，是停止還是開(kāi)啟的2014-07-07
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西...2006-09-09