中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 到IE缓存挖掘宝贝(有自动重命名功能)

pooloo
初级用户

积分 62
发帖 33
注册 2007-6-16
状态离线

『楼主』: 到IE缓存挖掘宝贝(有自动重命名功能)

::自动重命名功能---IE cache里好多重名资源啊，原来一copy就覆盖了，现在好了，可以自动重命名了，哈哈
::key words: Internet 临时文件夹提取资源 IE临时文件夹批量提取图片删除批处理清除
echo off
set file_num=0
cls
echo 请选择要提取的文件类型
echo  1(swf) 2(flv) 3(jpg) 4(gif) 5(mp3) 6(wma) 7(htm) 8(其它类型) 9(清除IE缓存)
set /p type=
if %type%==1 (set  filetype=swf)
if %type%==2 (set  filetype=flv)
if %type%==3 (set  filetype=jpg)
if %type%==4 (set  filetype=gif)
if %type%==5 (set  filetype=mp3)
if %type%==6 (set  filetype=wma)
if %type%==7 (set  filetype=htm)
if %type%==8 (echo 请输入文件类型,例如bmp
set /p  filetype=)
if %type%==9 (goto :clear_cache)

:select_del_or_not
echo 提取后是否删除原文件？(y/n)
set /p delornot=
if %delornot%==y (goto startcopy)
if %delornot%==n (goto startcopy)
goto select_del_or_not
:startcopy
echo 正在提取文件，请稍候……
md %filetype%
for /f "delims=" %%i in ('dir "%userprofile%\Local Settings\Temporary Internet Files\*.%filetype%" /s/b') do if not exist "%CD%\%filetype%\%%~nxi" (
copy /y "%%i" "%CD%\%filetype%\") else (
call :copy_same_name_file "%%~i" "%%~ni" "%%~xi")
if %delornot%==y (for /f "delims=" %%i in ('dir "%userprofile%\Local Settings\Temporary Internet Files\*.%filetype%" /s/b') do del /f/q "%%i")
goto :eof

:copy_same_name_file
set file_n=%2
set file_x=%3
set /a file_num+=1
::变量file_num自加1
echo %file_num%
if not exist "%CD%\%filetype%\%file_n%_%file_num%%file_x%" (
copy %1 "%CD%\%filetype%\%file_n%_%file_num%%file_x%">nul
) else call :copy_same_name_file %1 %2 %3
set file_num=0
goto :eof
:clear_cache
for /f "delims=" %%i in ('dir "%userprofile%\Local Settings\Temporary Internet Files\*.*" /s/b') do del /f/q "%%i"
goto :eof

此帖被 +7 点积分

点击查看详情