中国DOS联盟

@echo off

title 9flash *.swf任我下----更新



set "url=http://www.9flash.com/"

set "music=FlashDefault/1.html"

set "movie=FlashDefault/2.html"

set "game=FlashDefault/3.html"

set "t=test.tx"

::分类页面里面的共n页,越大越慢,1~100中间都可以

set "top=50"



copy /y swfs.txt swfs.back>nul 2>nul

cd.>swfs.txt

md "%t%">nul 2>nul

PUSHD "%t%"

del /a/s/f/q *.html *.txt>nul 2>nul

title 更新分类列表

cls

echo 请稍候......

wget -q -O 1.html "%url%%music%"

wget -q -O 2.html "%url%%movie%"

wget -q -O 3.html "%url%%game%"

sed "/作品分类/,/*<\/ul>/!d;{/作品分类/{s/<*>//g;s/*//g;s/^/\/};s/*\x22\(\/.*\)\x22>\(*\)<\/a.*/\1→\2/;/^\/\|^\

更新分类的作品列表

cls

echo 这一步有点慢,请耐心等待

echo.

for /f "tokens=1,2 delims=→" %%a in (分类.txt) do (

del /a/s/f/q *.html>nul 2>nul

echo %%a|findstr /B "



*第*页共*页/!d;{/.html/!d;/http:/d;{s/*\x22\(\/.*\)\x22>\(*\)<\/a.*/\1→\2/};/^\//!d}" *.html |more>temp.txt

sed -n 1,$p temp.txt>>htmls.txt

)

)



title 更新作品的下载地址

cls

for /f "tokens=1,2 delims=→" %%a in ('sed "s:/FlashPlay/:/Flash/:" htmls.txt') do (

echo %%a|findstr /B "^/">nul && ( 

echo 正在更新作品 %%b 的下载地址

wget -q -O temp.html "%url%%%a"

sed "/\(\{32\}\).swf/!d;{s/.*\(http:.*\{32\}.swf\).*/\1/}" temp.html|more>temp.txt

for /f "tokens=*" %%? in ('sed -n 1p temp.txt') do (>>../swfs.txt echo %%?→%%b)

)||(>>../swfs.txt echo %%a)

)



title 更新完毕

echo.

echo 旧的列表文件 swfs.txt 备份成为 swfs.back 

echo.

echo 请查看新列表文件swfs.txt是否正确,如不正确请立即恢复

pause>nul

goto :eof

@echo off

title 9flash *.swf任我下(支持断点续传)      by:vkill      V:1.0

if not exist swfs.txt (echo 缺少文件swfs.txt&pause>nul&goto :eof)

findstr . swfs.txt>nul ||(echo swfs.txt是空的&pause>nul&goto :eof)

set "t=test.tx"

:xuanze

cls

echo.

echo                 请输入你要下载的flash文件名,全部下载输入all

echo.

set name=

set/p name=                        name=

if "%name%*"=="*" goto xuanze

if "%name%*"=="all*" goto down_all

md "%t%">nul 2>nul

PUSHD "%t%"

del /a/s/f/q *.txt>nul 2>nul

sed "/→.*%name%/!d" ../swfs.txt|more>temp.txt

echo.

findstr . temp.txt>nul ||(echo 没有找到你要搜索的flash&pause>nul&goto xuanze)

cls

echo ________________________________________________________________________________

echo                   你要搜索的flash作品列表如下,5秒后开始自动下载

type temp.txt

echo ________________________________________________________________________________

ping -n 10 127.1>nul 2>nul

popd

for /f "tokens=1,2 delims=→" %%a in (temp.txt) do (

echo 正在下载作品%%b

wget -q -c -O %%b.swf "%%a"

)

goto end



:down_all

cls

for /f "tokens=1,2 delims=→" %%a in (swfs.txt) do (

echo %%a|findstr /B "





















[ Last edited by vkill on 2007-1-15 at 06:06 AM ]