|
|
大家好！
电脑爱好者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图片”就可以了！
谢谢大家！ |
|
IP卡
狗仔卡
发表于 2009-1-12 22:50:37
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡