由于有的网站限制了在网页中的显示(只能在浏览器地址栏中才能浏览)
或者由于网页缓冲等原因,图片在网页中显示不出来,但是图片链接还是有的
并没有失效.也就是说图并没有真挂。
为了方便操作,只有有图才能使下载更有选择性,下错了,又累,又乱费资源.
下面一个脚本,利用增加了一个网页右菜单——在新窗口中打开,相对方便些
使用方法:保存为Open_New123.cmd和Open_New123.html两个文件,双击Open_New123.cmd就可以了
你打开一个新的IE窗口,就会在菜单下面发现多一项 在新窗口中打开,就可以打开显示不了的图片了
至于卸载把注册表里的那项和C:\Windows\Open_New123.html删除就可以了,我就不加写了
网上确实有这样类似的代码,论坛好象没有吧。但是大部分的代码和网上是不同的,本来就很难避免不重复,只要不是完全基本一样
代码那就更难保证了。如果觉得还好用,希望大家支持我
Open_New123.cmd
复制内容到剪贴板
代码:
echo off
copy Open_New123.html %windir%
reg add "HKCU\Software\Microsoft\Internet Explorer\MenuExt\在新窗口中打开" /f /ve /t REG_SZ /d "C:\Windows\Open_New123.html"
Open_New123.html
复制内容到剪贴板
代码:
<script language = "VBScript">
sub AddLink(Url, Remark)
call external.menuArguments.window.clipboardData.setData("Text",Url)
end sub
sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
if srcEvent.type = "MenuExtAnchor" then
set srcAnchor = EventElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
Loop
window.open srcAnchor.href,"New"
elseif srcEvent.type = "MenuExtImage" then
if TypeName(EventElement) = "HTMLAreaElement" then
window.open EventElement.href,"New"
else
set srcAnchor = EventElement.parentElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
if TypeName(srcAnchor) = "Nothing" then
window.open EventElement.href,"New"
exit sub
end if
Loop
window.open srcAnchor.href,"New"
end if
elseif srcEvent.type = "MenuExtUnknown" then
set srcAnchor = EventElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
if TypeName(srcAnchor) = "Nothing" then
window.open EventElement.href,"New"
exit sub
end if
Loop
window.open srcAnchor.href,"New"
end if
end sub
call OnContextMenu()
</script>
[
本帖最后由 ZHYI0 于 2009-2-7 18:23 编辑 ]