国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

link-view.vbs 頁面鏈接查看

2019-10-26 18:02:08
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

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 "完工，請重啟瀏覽器，查看收藏夾"

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 宜川县| 葵青区| 辉县市| 武胜县| 叶城县| 浑源县| 白河县| 枣强县| 同心县| 西盟| 夏河县| 睢宁县| 青州市| 漳平市| 上杭县| 梁河县| 临澧县| 台东县| 南充市| 临江市| 海伦市| 德钦县| 盱眙县| 武陟县| 白银市| 十堰市| 巴楚县| 绥阳县| 台东市| 秦安县| 承德县| 遵化市| 同心县| 安陆市| 云安县| 莆田市| 和平区| 吴川市| 奉节县| 洛川县| 若羌县|