当你浏览一个论坛的网页的时候,你发现又很多你喜欢的MM照片,你是一个个点右键,另存为保存吗?
你有没有觉得这样好烦呢,那么试试使用我为你定制的整合到IE浏览器(只要是基于IE内核的都行)FlashGet右键菜单吧!!!
看下图:
当你访问 http://image.cnool.net/ 时,单击右键选择“使用网际快车下载全部图片“命令,你就能够把所有的JPG格式的图片添加到FlashGet的下载列表中去,之所以没有添加GIF格式的,是因为它们太小,看不清出,我清楚大家的需求.当然有BMP和PNG格式的,也能够添加到下载列表中去,请看下图:
这个功能确实很强大,因为你选“使用网际快车下载所有链接“,都不一定能够把所有图片(bmp,jpg,png格式)添加到下载列表中去,尤其是在那些论坛中.
它会让你的工作更加方便!相信你会喜欢的!!
想要这个功能吗?跟我一步一步来吧!!!
实现步骤如下:
1.到FlashGet程序的目录下,C:\Program Files\flashget,把jc_all.htm选中,按住Ctrl键拖动复制一个“复件 jc_all.htm“,然后改名为“jc_allpic.htm“,接着以文本的方式打开,你会看到如下内容:
1<script language="VBScript">
2'Great thanks to Vladimir Romanov(Author of ReGet Pro)
3
4On Error Resume Next
5set JetCarCatch=CreateObject("JetCar.Netscape")
6if err<>0 then
7MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
8else
9set links = external.menuArguments.document.links
10ReDim params(links.length*2)
11params(0)=external.menuArguments.document.Url
12for i = 0 to links.length-1
13params(i*2+1)=links(i).href
14params(i*2+2)=links(i).innerText
15next
16JetCarCatch.AddUrlList params
17end if
18</script>
2.改一改,这是修改后的jc_allpic.htm
--------------------------------------------------------------------------
1<script language="VBScript">
2'非常感谢Vladimir Romanov(ReGet Pro的作者)
3
4On Error Resume Next
5set JetCarCatch=CreateObject("JetCar.Netscape")
6if err<>0 then
7MsgBox("FlashGet 没有正确安装!"+ vbCrLf+"请重新安装FlashGet")
8else
9set imgs = external.menuArguments.document.images
10ReDim params(imgs.length*2)
11params(0)=external.menuArguments.document.Url
12for i = 0 to imgs.length-1
13params(i*2+1)=imgs(i).src
14params(i*2+2)=imgs(i).alt
15next
16JetCarCatch.AddUrlList params
17end if
18</script>
-------------------------------------------------------------
'到这一步,跳过第三步的话,进入第四步,你就可以把所有的图片格式文件加到FlashGet的下载列表中去.
3.过滤掉GIF类型文件,修改后的jc_allpic.htm如下:
---------------------------------------------------------------------------
1<script language="VBScript">
2'非常感谢Vladimir Romanov(ReGet Pro的作者)
3
4On Error Resume Next
5set JetCarCatch=CreateObject("JetCar.Netscape")
6if err<>0 then
7MsgBox("FlashGet 没有正确安装!"+ vbCrLf+"请重新安装FlashGet!")
8else
9set imgs = external.menuArguments.document.images
10
11
12dim params()
13
14ReDim params(imgs.length*2)
15dim jpgcount
16jpgcount=0
17for i = 0 to imgs.length-1
18ext=LCase(Right(imgs(i).src,4))
19if ext=".jpg" Or ext=".bmp" Or ext=".png" Or ext="jpeg" then
20file.writeline imgs(i).src
21params(jpgcount*2+1)=imgs(i).src
22params(jpgcount*2+2)=imgs(i).alt
23jpgcount=jpgcount+1
24end if
25next
26
27ReDim Preserve params(jpgcount*2)
28params(0)=external.menuArguments.document.Url
29
30JetCarCatch.AddUrlList params
31end if
32</script>
---------------------------------------------------------------
4.创建一个注册表文件
新建一个文本文档,输入一下内容,当然FlashGet的路径在你们自己的机器上要改一改:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用网际快车下载本页中的Flash]
"contexts"=dword:000000f3
@="C:\\Program Files\\FlashGet\\jc_allpic.htm"
然后另存为allpic.reg文件
4.双击allpic.reg导入注册表
5.关闭浏览器,接着重新打开浏览器.
试试访问精品图库吧, http://image.cnool.net/ !!!!!!然后测试一下你的右键....
6.后面的话,有没有看到我的右键菜单中的”复制缓存JPG图片到C:Imgs”?这个是我的另一个使用FlashGet的右键菜单,可以把IE临时文件夹中的JPG文件,全部复制到C:\Imgs中去.......
...
...
...