打印

[交流] 【假挂图的快捷解决方法之一】

0

【假挂图的快捷解决方法之一】

由于有的网站限制了在网页中的显示(只能在浏览器地址栏中才能浏览)
或者由于网页缓冲等原因,图片在网页中显示不出来,但是图片链接还是有的
并没有失效.也就是说图并没有真挂。
   为了方便操作,只有有图才能使下载更有选择性,下错了,又累,又乱费资源.
下面一个脚本,利用增加了一个网页右菜单——在新窗口中打开,相对方便些

使用方法:保存为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 编辑 ]
本帖最近评分记录
  • 交通 金币 -6 发贴前请看置顶帖!网上别的地方能找到的软 ... 2009-2-6 09:42

TOP

当前时区 GMT+8, 现在时间是 2025-3-20 04:17