网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文:

 

标题 link-view.vbs 页面链接查看
范文
    页面源文件解密 页面链接查看具体查看收藏夹
    代码如下:
    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 "完工,请重启浏览器,查看收藏夹"
随便看

 

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/26 8:33:26