FlashGet右键菜单
当你浏览一个论坛的网页的时候,你发现又很多你喜欢的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“,接着以文本的方式打开,你会看到如下内容:
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
JetCarCatch.AddUrlList params
end if
</script>
2.改一改,这是修改后的jc_allpic.htm
--------------------------------------------------------------------------
<script language="VBScript">
'非常感谢Vladimir Romanov(ReGet Pro的作者)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet 没有正确安装!"+ vbCrLf+"请重新安装FlashGet")
else
set imgs = external.menuArguments.document.images
ReDim params(imgs.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to imgs.length-1
params(i*2+1)=imgs(i).src
params(i*2+2)=imgs(i).alt
next
JetCarCatch.AddUrlList params
end if
</script>
-------------------------------------------------------------
'到这一步,跳过第三步的话,进入第四步,你就可以把所有的图片格式文件加到FlashGet的下载列表中去.
3.过滤掉GIF类型文件,修改后的jc_allpic.htm如下:
---------------------------------------------------------------------------
<script language="VBScript">
'非常感谢Vladimir Romanov(ReGet Pro的作者)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet 没有正确安装!"+ vbCrLf+"请重新安装FlashGet!")
else
set imgs = external.menuArguments.document.images
dim params()
ReDim params(imgs.length*2)
dim jpgcount
jpgcount=0
for i = 0 to imgs.length-1
ext=LCase(Right(imgs(i).src,4))
if ext=".jpg" Or ext=".bmp" Or ext=".png" Or ext="jpeg" then
file.writeline imgs(i).src
params(jpgcount*2+1)=imgs(i).src
params(jpgcount*2+2)=imgs(i).alt
jpgcount=jpgcount+1
end if
next
ReDim Preserve params(jpgcount*2)
params(0)=external.menuArguments.document.Url
JetCarCatch.AddUrlList params
end if
</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中去.......
...
...
...