Вступатель в группы vkontakte

[k0lbasa]

Есть такой скрипт? Допустим берутся аккаунты и "вступают" в группу. Вроде на php не очень сложно реализовать.

[svesve]

#!/usr/bin/perl
#Group Joiner by svesve;
my $gr ="3703268";
use strict;
use LWP::UserAgent;
use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;

my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get("http://vkontakte.ru/groups.php?act=enter&gid=$gr")->as_string;
print "[+]$mail:JOINED to group\n";
}
else{print"[-]bad login or password";}
}
close FILE;

изменяешь my $gr ="" на нужную группу
и в файлик logs.txt кидаешь акки которые хочешь джойнить к группе
З.Ы. накидал на скорую руку ) да и перл я куево знаю
З.Ы.Ы хз почему все не заходят мб я туплю либо вконтакте что то недает

[k0lbasa]

эм
пишет что joined, но на самом деле эффекта ноль
что не так?

[svesve]

хм ) говорю же писал на скорую руку )
надо разбираться

[k0lbasa]

ты сделай все чики-пуки, я и денюжек дам

[k0lbasa]

http://seomoney.org.ua/wp-content/scriptvkontakte.txt
вот ява-скрипт приглашалки какой-то

[Whirt]

k0lbasa, пиши в пм. Сделаю тебе такое счастье :)

[k0lbasa]

http://forum.antichat.ru/showpost.php?p=565709&postcount=24
вот еще че есть подобное, но у меня не заработало

[Whirt]

Лезь в ПМ) Написал я тебе эту тему.
Парсит список друзей собственного акка, рассылает инвайты на вступление в конкретную группу, пока контакт не зарычит "Максимум 40 инвайтов с одного акка за день".
Включил поддержку Http-прокси.