把當前web頁面上的所有圖片復制到特定目錄,比如C:/imgs/

轉載請注明:作者:糯米糊糊(huyoo353),來源:http://blog.csdn.net/huyoo/

MoreQuick回復:
thank,我也不是很精通這方面,不過插件可以用vbscript寫的
麻煩你貼代碼到論壇上,看是否有人會
thanks!

-- Previous Private Message --
Sent by : edward
Sent : 2005-03-18 at 7:53pm

MoreQuick 你好,我自己編了一個復制Cache圖片的插件,原來是用VBscript寫的,我把它加入了我的右鍵菜單,執行的時候,能夠把 當前頁面在Cache緩存中的圖片復制到C:/Imgs/中去.

但是做成插件形式就不能夠執行了.
后來詢問Waywang之后,他說一定要JS的,所以又改成JavaScript的,但是腳本出錯.我想請你有時間的話,自己或 者請一個高手幫我改改.

以前也給GB寫過一點簡單的插件,這回的如果做出來了也是對大家的貢獻~~~
------------------------
附上源文件:
-------------
<Script language="JavaScript">
//
//*******************請保留此信息****************
//*???????????????????????????????????????????? *
//*??? 由Edward(糯米糊糊就是我)傾情制作于2004年11月29日???????? *
//*??? 有問題請聯系huyoo353@126.com???????????? *
//*??? 希望所有的GB愛好者使用方便!!!!????????????? ? *
//*???????????????????????????????????????????? *
//*******************請保留此信息****************
//

轉載請注明:作者:糯米糊糊(huyoo353),來源:http://blog.csdn.net/huyoo/

var imgs = document.images;

var counter,err=0;

var cachefolder,tempimgs ;??? //定義JPG文件所在的IE緩存文件夾,要復制到的臨時目標文件夾
//
//設置文件夾路徑
//嚴重注意:這是你有必要修改的兩個地方!!!
//一般這兩個文件夾是IE存放臨時文件的地方，如下：
var cachefolder1="D://Documents and Settings//huzi//Local Settings//Temporary Internet Files//";?? //我的IE臨時文件夾地址,請改為你自己的
var cachefolder2="D://Documents and Settings//huzi//Local Settings//Temp//Temporary Internet Files//";?? //我的IE臨時文件夾地址,請改為你自己的
///
tempimgs="C://Imgs//" ; //我把JPG圖像復制到我自己的C://imgs//,請改為你自己喜歡的
var logfile; //定義記錄文件對象
var m_objFSO = new ActiveXObject("Scripting.FileSystemObject");

call CreateLogFileAndTempFolder();//創建記錄文件和臨時文件夾
call CopyCachePicToTempFolder();//把緩存中的圖片復制到臨時文件夾tempimgs

if( err!=0 )
{
???? logfile.writeline ( "發生錯誤" );
}
//設置圖像對象集合

?

?轉載請注明:作者:糯米糊糊(huyoo353),來源:http://blog.csdn.net/huyoo/

function CreateLogFileAndTempFolder()
{
???? 如果臨時文件夾不存在,就創建它

??? if m_objFSO.FolderExists(tempimgs)
??? {
??? }
??? else
??? {
?????? m_objFSO.CreateFol der(tempimgs) ;???????
???? }

??? //如果記錄文件zcopylog.txt不存在,就創建記錄文件
???? logfile=tempimgs & "zcopylog.txt"
??? if m_objFSO.FileExists(logfile) then
??????? logfile=m_objFSO.OpenTextFile( logfile,8,0);//在文件末尾追加
??? else
??????? logfile=m_objFSO.CreateTextFil e(logfile,true)
??? }
??? logfile.writeline( location );
??? logfile.writeline( "/n/r" );
/
}

轉載請注明:作者:糯米糊糊(huyoo353),來源:http://blog.csdn.net/huyoo/
function CopyCachePicToTempFolder()
{
???? if( err!=0)
???? {
?????? logfile.writeline( "發生錯誤" );
???? }
???? else
???? {
?????? var objDir,objFolder, objFile;
??????
?????? objFolder = m_objFSO.GetFolder(cachefolder2);
?????? call SearchIETemp(objFolder.Path);
??????
?????? objFolder = m_objFSO.GetFolder(cachefolder1);
?????? call SearchIETemp(objFolder.Path);
?????? logfile.writeline "已經復制了" & counter & "張圖片";
?????? logfile.writeline "復制完畢!!!!!!!" ;
???????
???? }
?????
} 轉載請注明:作者:糯米糊糊(huyoo353),來源:http://blog.csdn.net/huyoo/

function SearchIETemp(var strIETempPath)
{
?????
??? var objFolder;?????? //文件夾對象
??? var objFile;??????? //文件對象
??? var objSubdirs;????? //文件夾集合對象
??? var objLoopFolder;?? //文件夾對象
??? var finalname;

??? objFolder = m_objFSO.GetFolder(strIETempPath) ;
?????
??? logfile.writeline( "In Sub SearchIETemp ,objFolder is :"+ objFolder.Path);
??? for ( objFile In objFolder.Files)
??? {
?????????????? logfile.writeline( objFile.ShortPath );
?????????????? var len=objFile.ShortPath.length;
??????? if( objFile.ShortPath.substring(len-4, len)).toUpperCase() == ".JPG" )
??????? {
??????????????????
??????????? for(var i=0;i<imgs.length;i++)
??????????? {

??????????????? logfile.writeline( imgs.length );
??????????????? pos=imgs.src.lastIndexOf("/");
??????????????? fileName =imgs.src.substring(pos+1,imgs.src.length-pos);
??????????????? finalname = fileName;
??????????????? pos= fileName.indexOf(".");
??????????????? fileName = fileName.substr(0,pos-1)+"[1]"+fileName.substr(fileName.length,fileName.length-pos+1);
??????????????? logfile.writeline( filename );

???????????? if (filename==objFile.Name )
????????????? {
??????????????? m_objFSO.CopyFile( objFile.Path, tempimgs + finalname);
??????????????? counter++;
??????????????? logfile.writeline( imgs.src);
???????????? }
?????????? }
???????????????
??????? }
??? }

??? var objSubdirs = objFolder.SubFolders;
?????
??? for ( objLoopFolder In objSubdirs)
??? {
??????? SearchIETemp(objLoopFolder.Path);
??? }
}

</script>

上面的還有很多VBscript的句法,我沒有改過來,反正就是利用循環查找IE臨時文件夾(這個還是到CSDN上問到的)中的 JPG圖片來工作的.

希望熟悉Javascript的大俠,幫我改改~~~

__________________
簡單的簡單，困難的困難。
歡迎訪問我的Blog：http://blog.csdn.net/huyoo?
--------------------------------------------------------------------------------
?
只有人看,沒有人回答,看來高手沒有時間,新手沒有技能啊~~~

慘淡
?

總結

以上是生活随笔為你收集整理的把当前web页面上的所有图片复制到特定目录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。