让IE列出所有链接的右键菜单
閑雲 2004年08月19日（修）
1。在Windwos目录下写一个“list_all_links.htm”文件，把如下代码拷贝进去：
<!--
<script language=javascript>
var url="";
function displink(){
var links=external.menuArguments.document.links;
if (links.length==0){
alert("本页没有链接，不能察看!");
return;
}
var result = window.confirm("共有" + links.length + "个链接，准备看看吗？");
if (result==true){
var all_links = window.open("C:/WINDOWS/list_all_links.htm","_self");
for (i = 0;i< links.length;i++){
if (links(i).innerText=="")
all_links.document.write("<a href=/"" + links(i).href + "/">" + links(i).href + "</a><br>") ;
else
all_links.document.write("<a href=/"" + links(i).href + "/">" + links(i).innerText + "</a><br>") ;
}
}
}
displink();
</script>
-->
<script language="VBScript">
sub displink()
on error resume next
url=""
set links=external.menuArguments.document.links
if links.length=0 then
window.alert("本页没有链接，不能察看!")
exit sub
end if
result = window.confirm("共有" + cstr(links.length) + "个链接，准备看看吗？")
if result=-1 then
set all_links = window.open("C:/WINDOWS/list_all_links.htm","_self")
all_links.document.write("<HTML>"+chr(13)+chr(10)+ "<BODY>"+chr(13)+chr(10))
for i = 0 to links.length-1
if links(i).innerText="" then
all_links.document.write("<a href=""" + links(i).href + """>" + links(i).href + "</a><br>")
else
all_links.document.write("<a href=""" + links(i).href + """>" + links(i).innerText + "</a><br>")
end if
next
all_links.document.write(chr(13)+chr(10)+"</BODY>" +chr(13)+chr(10)+"</HTML>")
end if
end sub
call displink()
</Script>
2。建一个“list_all_links.vbs”文件，拷贝下面代码进去，然后双击文件运行，看到“OK!”就表示成功了。
dim Regedit
set Regedit = CreateObject("WScript.Shell")
Regedit.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt/查看本页所有链接/","%systemroot%/list_all_links.htm"
Regedit.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt/查看本页所有链接/contexts",243,"REG_DWORD"
Msgbox "OK!"
3。重启电脑。用IE打开任意页面,点右键，选“查看本页所有链接”，就可以看到效果了!
<附> 改动list_all_links.htm文件中的注释，可以将VBS版换成javascript版
扫一扫
564
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
