热点推荐
ZOL首页 > 软件资讯 > 技巧应用 > 简单设置 让迅雷一步保存所有网页图片

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


其它网站 【转载】 2009年02月27日 06:00 评论

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

  第一步:复制相应文件

  先进入C:\Program Files\Thunder Network\Thunder\Program文件夹,选中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 修改并保存相应代码

下载 迷你迅雷 请点击:http://xiazai.zol.com.cn/detail/5/45792.shtml
1 2 下一页
本文导航
  • 第1页:复制相应文件
查看更多软件信息>> 迅雷7正式版
本软件在下载工具中排名第5位
用户评分:8.1 | 1179 人点评
更新时间:2012年06月18日
开发商:迅雷
下载次数:206725589次
应用平台:Win XP/Win2000/Win98/Win ME
软件分类:下载工具
论坛讨论:进入论坛
频道热词:微信  手机QQ  12306  
视觉焦点
迅雷7正式版
大葱玩手机—X7③UC迅雷-大葱玩手机
新浪微博