ANTICHAT - Показать сообщение отдельно - Программы и скрипты для [В]контакте

Цитата:

Сообщение от GenaD

Есть у когото рабочий скрипт на одобрение всех Предложений вконтакте?

Отвечаю самому себе кому пригодится!
Вот скрипт подправите и работает как часы 300 приглосов в день!

PHP код:


		
			
 #!/usr/bin/perl -w 

############################### 

# (c) [dei] 369-476-512 

############################### 

############ Config ############### 

$email = 'xxxx@mail.ru'; 

$pass = '111'; 

$count = 100; 

$city = 0; 

$sex = 1; 

$age = 0; 

################################ 

use LWP::UserAgent; 

use HTTP::Cookies; 

my $ua = LWP::UserAgent->new; 

$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1'); 

$ua->cookie_jar(HTTP::Cookies->new(file => 'cookies.txt', autosave => 1)); 

sub login( $$ ) { 

    my $em = $_[0]; 

    my $pa = $_[1]; 

    $em =~ s/@/%40/; 

    my $req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php'); 

    $req->referer('http://vkontakte.ru/'); 

    $req->content_language('ru'); 

    $req->content_type('application/x-www-form-urlencoded'); 

    $req->content("email=$em&pass=$pa"); 

    my $result = $ua->request($req); 

    if($result->code == 302) { return 1; } 

} 

sub myrand( $ ) { 

    my $int=''; 

    for(my $i=1;$i<=$_[0];$i++) { $int .= int(rand(10)) } 

    return $int; 

} 

sub accepts { 

    my $req = HTTP::Request->new(GET=>'http://vkontakte.ru/matches.php?act=search'); 

    $req->referer('http://vkontakte.ru/groups.php?'.myrand(5)); 

    my $result = $ua->request($req); 

    $result->content =~ /searchMatch((d+))/; 

    my $m = $1; 

    sleep(1); 

    for(my $i=0;$i<$count;$i++) { 

        $req = HTTP::Request->new(POST=>'http://vkontakte.ru/matches.php'); 

        $req->referer('http://vkontakte.ru/matches.php?act=search'); 

        $req->header('X-Requested-With: XMLHttpRequest'); 

        $req->content_type('application/x-www-form-urlencoded'); 

        $req->content('act=a_search&st=0&c='.$city.'&s='.$sex.'&y='.$age.'&id='.$m); 

        $result = $ua->request($req); 

        print '.'; 

        $|++; 

        if(!($result->content =~ /searchMatch((d+))/)) { die "error\n"; } 

        $m = $1; 

        sleep(1); 

    } 

    print "\ndone\n"; 

} 

if(!login($email,$pass)) { die "bad acc\n"; } 

else { print "use $email\n"; } 

&accepts;

А вот для командной строки работает сам проверял

PHP код:


		
			
javascript:for(b=0;b<100;b++){searchMatch(Math.round(Math.random()*16000000));var date = new Date();var curDate = null;do {curDate=new Date();} while(curDate-date < 1500);}