ก๊อบรูปจากเว็บ Mthai By ICheer_No0M

[Admin]

โค๊ด: [Select]

#Script Save Picture From Picpost.mthai.com By ICheer_No0M :)
use LWP::UserAgent;
my $browser=LWP::UserAgent->new();

print "\t\n Script By ICheer_No0M\n\n";
print "URL : ";
chomp($url=<STDIN>);
print "\nBeginning...\n\n";
if($url=~/.*view\/(.*).*/i){system("mkdir $1");}
$content=$browser->get($url)->content;
while($content=~m/class="fullsize" rel="gallery"><img src="(.*?)\" alt="/ig)
{
$pic=$1;
$getpicture='http://picpost.mthai.com'.$pic;
my $respose=$browser->get($getpicture);
my $content= $respose->content;
$pic=~s/\///;
$pic=~s/\///;
$pic=~s/\///;
if($getpicture =~m/http:\/\/picpost.mthai.com\/pic\/(.*?)\/(.*?)\.(.*)/ig){
       open OUTFILE, "> ".$1."/".$2.'.'.$3;
       binmode OUTFILE;
       print OUTFILE $content;
       close OUTFILE;
}
print $getpicture." => Saved\n";
}
print "\nComplete...\n";