发新话题
打印

求助:电脑爱好者2008第九期47页《一步保存网页所有图片》

求助:电脑爱好者2008第九期47页《一步保存网页所有图片》

大家好!
电脑爱好者2008第九期47页,说到了通过修改代码,可以让迅雷一步保存所有图片,全文如下:

一步保存网页所有图片
    经常上论坛看MM贴图的朋友,是不是经常遇到这样的烦恼:一个帖子有很多张图片,显示、保存都很费劲。下面就来讲一个可以一步就保存网页所有图片的方法。

    原理:偷粱换柱
    IE中的右键菜单:“使用迅雷下载”和“使用迅雷下载全部链接”,实际上是调用了一个VB脚本,在脚本中获取网页中的有效链接,为迅雷添加任务。因此,我们可以偷梁换柱,修改其中的一个脚本,过滤出网页中JPG图片,再将这个脚本注册到IE右键菜单,下面就跟我一起动手操作吧!
    第一步:安装目录下,修改脚本
    到迅雷的安装目录,将“Program”下的“getAllurl.htm”文件用记事本打开,点击“文件→另存为”,保存到这个目录下,文件名改为“getAllJpg.htm”,保存类型选“所有文件”。关闭记事本,重新打开“getAllurl.htm”,稍作修改。
    1.在两处“For i=0 To link_count-l”下方均添加一行代码:If Righf(links(i).href,3)=“jpg”。
    2.在两处“For i=0 To image_count-l”下方均添加一行代码:If Right(images(i).src,3)=“jpg”。
    3.在前四处以“call”开头的语句下面均添加一行代码:End If。保存,关闭记事本。
    第二步:注册表中,添加菜单点击“开始→运行”,输入“regedit”回车,打开注册表编辑器。点击“编辑→查找”,输入“使用迅雷下载”。稍等片刻,我们来到了HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\下,右击“新建→项”,命名为“用迅雷下载所有JPG图片”,然后修改该项中的默认字符串值为“x:\Program Files\Thunder\Program\getAllJpg.htm”(不含引号)。
    现在打开IE(或者以IE为内核的其他浏览器),右击会发现多出一项“用迅雷下载所有JPG图片”。点击该项,会发现迅雷启动自动下载图片。
(***文章结束)


我改了,但是,现在出了问题了···改好后,点击“用迅雷下载所有JPG图片”,出现的是“下载全部链接”的内容···而点击“使用迅雷下载全部链接”则出现了错误脚本提示框!


大家看这段话是不是有误:    到迅雷的安装目录,将“Program”下的“getAllurl.htm”文件用记事本打开,点击“文件→另存为”,保存到这个目录下,文件名改为“getAllJpg.htm”,保存类型选“所有文件”。关闭记事本,重新打开“getAllurl.htm”,稍作修改。
还有这个:然后修改该项中的默认字符串值为“x:\Program Files\Thunder\Program\getAllJpg.htm”(不含引号)。我知道“x”是安装盘符,不用提醒我了

恳请指导,谢谢!!该怎么做才能做到“一步保存网页所有JPG图片”呢?


有网友说,他改成下面这样就可以了··可我改这样后还是提示脚本错误
<script language="VBScript">

Sub OnContextMenu()
        set ThunderAgent = CreateObject("ThunderAgent.Agent.1")

        set links = external.menuArguments.document.links
        set images = external.menuArguments.document.images
        link_count = links.length
        image_count = images.length

        strDownloadPage = external.menuArguments.document.url
        set theDownloadPage = external.menuArguments.document.getElementById("thunder_down_pageurl")
        if TypeName(theDownloadPage) <> "Nothing" then
                strDownloadPage = theDownloadPage.value
        end if

        strStatPage = ""
        set theStatPage = external.menuArguments.document.getElementById("thunder_stat_pageurl")
        if TypeName(theStatPage) <> "Nothing" then
                strStatPage = theStatPage.value
        end if


        if strStatPage <> "" then
                for i = 0 to link_count-1
if right(links(i).href,3)="jpg" then
                         call ThunderAgent.AddTask4(links(i).href, "", "", links(i).innerText, strDownloadPage,

-1, 0, -1, external.menuArguments.document.cookie, "", strStatPage)
               
end if
next
               
                for i = 0 to image_count-1
if right(images(i).src,3)="jpg" then
                         call ThunderAgent.AddTask4(images(i).src, "", "", images(i).innerText, strDownloadPage,

-1, 0, -1, external.menuArguments.document.cookie, "", strStatPage)
end if
                next
        else
                for i = 0 to link_count-1
if right(links(i).href,3)="jpg" then
                         call ThunderAgent.AddTask4(links(i).href, "", "", links(i).innerText, strDownloadPage,

-1, 0, -1, external.menuArguments.document.cookie, "", "")
               
end if
next
               
                for i = 0 to image_count-1
if right(images(i).src,3)="jpg" then
                         call ThunderAgent.AddTask4(images(i).src, "", "", images(i).innerText, strDownloadPage,

-1, 0, -1, external.menuArguments.document.cookie, "", "")
               
end if
next
        end if

        call ThunderAgent.CommitTasks2(1)
        set ThunderAgent = nothing
end sub

call OnContextMenu()

</script>



他提醒的注意问题,我都照做!可是不行!问题在这
if right(links(i).href,3)="jpg" then
if right(images(i).src,3)="jpg" then

这两个地方(每个两处)的后面加 then ,共四处



很迷茫哦···第一次按cfan教的技巧实践就碰钉子鸟

请斑竹大虾们指教,不要教我用其它方法保存图片!那些技巧我基本都掌握!
只要教我怎么用这篇文章的方法,“使用迅雷一步下载所有JPG图片”就可以了!
谢谢大家!
只有当你脸上洋溢着善良的光辉时,你才是最美的!

TOP

可能是大小写的问题,lcase(), gif, jpeg

TOP

发新话题