简单设置 让迅雷一步保存所有网页图片

复制相应文件

　　有时在网上看到很多漂亮的图片，真恨不得将它们倾收囊中。一般情况下，我们先用迅雷的“使用迅雷下载全部链接”功能，再手工选择图片类型，这样做步骤较多。事实上，网络上多数的图片是JPG格式的，我们只要自己动手，很简单地操作就能做到一步保存页面美图。甚至也能请电脑高手做好，然后将这个功能“安装”到你的迅雷5上，相当酷！

　　第一步：复制相应文件

　　先进入C:Program FilesThunder NetworkThunderProgram文件夹，选中getAllurl.htm，按下Ctrl+C，再按下Ctrl+V，将会生成“getAllurl - 复制.htm”文件。选中它，按下F2键，将其重命名为getAlljpg.htm。

　　第二步：修改相应代码

　　右击getAlljpg.htm文件，选择“打开方式”→“记事本”（如图1），用“记事本”打开它。

图1 用“记事本”打开相应文件

　　再按下Ctrl+A键选中所有字符，按下Del将其删除掉，然后输入如下内容：
<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
Dim picNum
if strStatPage <> "" then
  for i = 0 to link_count-1
   If Right(links(i).href , 3)="jpg" Or Right(links(i).href , 3)="Jpg" Or Right(links(i).href , 3)="JPG" Then
    picNum = picNum + 1
    call ThunderAgent.AddTask4(links(i).href, "photo-" + CStr(picNum) + ".jpg", "", 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" Or Right(images(i).src , 3)="Jpg" Or Right(images(i).src , 3)="JPG" Then
    picNum = picNum + 1
    call ThunderAgent.AddTask4(images(i).src, "photo-" + CStr(picNum) + ".jpg", "", 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" Or Right(links(i).href , 3)="Jpg" Or Right(links(i).href , 3)="JPG" Then
    picNum = picNum + 1
    call ThunderAgent.AddTask4(links(i).href, "photo-" + CStr(picNum) + ".jpg", "", 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" Or Right(images(i).src , 3)="Jpg" Or Right(images(i).src , 3)="JPG" Then
    picNum = picNum + 1
    call ThunderAgent.AddTask4(images(i).src, "photo-" + CStr(picNum) + ".jpg", "", 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>
　　最后，选择“文件”→“保存”命令将其保存（如图2）。

图2 修改并保存相应代码

添加右键菜单

　　第三步：添加右键菜单

　　按下Win+R，输入regedit，启动“注册表编辑器”，定位到[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt]，右击，选择“新建”→“项”，命名为“用迅雷下载所有JPG图”，然后修改该项中的默认字符串值为“C:Program FilesThunderProgramgetAlljpg.htm”（如图3，不含引号）。

图3 添加右键菜单

　  第四步：批量下载图片

　　当我们在浏览一网站时，可以右击页面空白处，选择“用迅雷下载所有JPG图”（如图4），之后就会出现如图5所示的窗口，所有的JPG图片已经被迅雷获取。

图4  选择“用迅雷下载所有JPG图”

图5  所有JPG文件已经被迅雷获取

　　第五步：制作自己的安装包

　　以上操作对于普通用户来说，操作起来有一定难度，也可能比较麻烦，我们可以启动“注册表编辑器”，指向[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt用迅雷下载所有JPG图]，右击，选择“导出”命令，将其保存为一reg文件，如d:thunderaddjpgs.reg。再把C:Program FilesThunder NetworkThunderProgramgetAlljpg.htm拷贝到d:thunder文件夹下，然后在其下编写一个批处理文件addjpg.cmd，内容如下：

　　@echo off

　　copy getAlljpg.htm  "C:Program FilesThunder NetworkThunderProgram"

　　regedit /s  addjpgs.reg

　　把addjpgs.reg、getAlljpg.htm和addjpg.cmd压缩为一压缩包，将其传给好友。好友只要将其解压，然后双击其下的addjpg.cmd即可完成安装工作。