[转载]Download Popular AV Idols Instantly
信息来源：[url]http://bbs.chinaunix.net/forum/viewtopic.php?t=382467&postdays=0&postorder=asc&start=0[/url]声明: 未成年的小DD,MM可不要看哦.赫赫~~~~~
#!/bin/bash
# Shell script function: Download Popular AV Idols Instantly!!!
URL=http://www.sergeaura.net/TGP
OFFI=162
OFFJ=17
if ! [ -d girlpicture2 ]; then
mkdir girlpicture2
fi
cd girlpicture2
for ((i=1; i < ${OFFI}; i += 1)); do
for ((j=1; j < ${OFFJ}; j += 1)); do
if ((i < 10)); then
SUBI=00"$i"
elif ((i > 9 && i < 100)); then
SUBI=0"$i"
else
SUBI="$i"
fi
if ((j > 9)); then
SUBJ="$j"
else
SUBJ=0"$j"
fi
wget -c ${URL}/${SUBI}/images/${SUBJ}.jpg -O ${SUBI}${SUBJ}.jpg
done
done
ls --color
echo "All OK!"
2.
<?php
# Shell script function: Download Popular AV Idols Instantly!!!
$URL="[url]http://www.sergeaura.net/TGP[/url]";
$OFFI=162;
$OFFJ=17;
$mydir = "girlpicture2";
if(!file_exists($mydir)) mkdir($mydir);
for($i=1;$i<$OFFI;$i++){
for($j=1;$j<$OFFJ;$j++){
$SUBI=sprintf("%03d",$i);
$SUBJ=sprintf("%02d",$j);
copy("${URL}/${SUBI}/images/${SUBJ}.jpg","/{$mydir}/${SUBI}${SUBJ}.jpg");
}
}
echo "ALL OK!";
?>
3. 'vbs脚本改写
Const URL = "[url]http://www.sergeaura.net/TGP/[/url]"
Const OFFJ = 162
Const OFFI = 17
dim fso, ts
Dim subi, subj, stri, strj, fn
set fso = createobject("scripting.filesystemobject")
set ts = fso.opentextfile("list.txt", 8 , true)
For subj = 1 to OFFJ
if subj < 10 Then strj = "00" & CStr(subj)
if subj >=10 and subj < 100 Then strj = "0" & CStr(subj)
if subj >=100 Then strj = Cstr(subj)
For subi = 1 to OFFI
if subi < 10 then stri = "0" & Cstr(subi)
if subi >=10 then stri = CStr(subi)
fn = URL & strj & "/images/" & stri & ".jpg"
ts.writeline (fn)
Next
Next
ts.close
set fso = nothing
页:
[1]