facebook facebook twitter rss

Auto_Liker Post facebook Account

Author: isdo213 , Published: 24-07-2015
#!/usr/bin/perl
print "
------------------------------------------------------------
|
.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |
.%%..%%.....%%............... %%... %%%.......%%.. |
.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |
.%%..%%...%%................ %%........%%........%%. |
.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |
|
|[+] Auto_Liker Post facebook Account |
|[+] isdo213 | | isdo[at]dr[Dot]com |
|[+] GreetZ: Me && My Bro !
|[+] FAcebook Page : dzpublic
------------------------------------------------------------
";
use strict ;
use warnings ;
use WWW::Mechanize::Firefox;
my $c=0;
print "enter profile facebook : ==> ";my $pro =<>;
my $url = "m.facebook.com/".$pro;
my $ua = WWW::Mechanize::Firefox->new() ;
my $ua2 = WWW::Mechanize::Firefox->new() ;
$ua->get($url) ;
kk:

my @awacha=$ua->find_all_links( url_regex => "like.php") ;
for ( my $i=0;$i<@awacha;$i++){
my $mli7a = $awacha[$i]->url ;
$ua2->get($mli7a) ;
$c++ ;
print "i like $c\n\n"

}
my @piw = $ua->find_link( text_regex => "Afficher plus" ) ;
if ($piw[0]){
$ua->get($piw[0]->url);
goto kk;
}else{
my @bb = $ua->find_link( text_regex => "2015" ) ;
$ua->get($bb[0]->url);
goto kk;
}

Like us on Facebook :