[原创]你绝对喜欢的FlashGet右键菜单

类别:.NET开发 点击:0 评论:0 推荐:

当你浏览一个论坛的网页的时候,你发现又很多你喜欢的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中去.......

...

...

...

本文地址:http://com.8s8s.com/it/it43290.htm