Как удалить всех друзей?

Как удалить всех друзей вконтакте разом???
заранее спасибо.

 

+1

тоже скрипт так и не нашол.

 

+2, спрашивал очень давно, никто так и не ответил.

 

Щас с телефона, завтра домой приеду поищу, где то был...

 

xcedz спасибо, завтра попробую

 

xcedz ты пробовал?

 

работает))) спасибо. в вот если их 1.5к ?

Хотя уже легче)))

 

а есть скрипт чтоб сразу всех желающих в группу добавить если по запросу набирается?
а то у меня несколько тысяч заявок(

 

вот кому надо, удалялка друзей

Code:

#!/usr/bin/perl -w
#######
# by [dei]

#######
$login = '';
$pass = '';
#######

use LWP::UserAgent;
use HTTP::Cookies;

sub login( $$ ) {
	my $em = $_[0];
	my $pa = $_[1];
	
	my $cookies = $em;
	$em =~ s/@/%40/;
	local $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.63 (Windows NT 6.0; U; ru) Presto/2.1.1');
	$ua->cookie_jar(HTTP::Cookies->new(file => $cookies, autosave => 1));
	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);
	
	$result->as_string =~ /id(\d+)/;
	local $id = $1;
	
	if($result->code == 302) {
		&delfriends;
		
		print "done\n"
	}
	else { die('bad acc'); }
}


sub delfriends( ) {
	my $req = HTTP::Request->new(GET=>'http://vkontakte.ru/friend.php?'.myrand(5));
	$req->referer('http://vkontakte.ru/id'.$id);
	my $result = $ua->request($req);
	my $r = $result->content;
	
	while($r =~ /\[(\d+), \{/g) {$ua->get('http://vkontakte.ru/friend.php?act=do_delete&id='.$1); sleep(5); }
}


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


login($login,$pass);

 

А приглашалку всех друзей вместе в групу можете сказать ??? Пожалуста

 

насколько я знаю там стоит ограничение на 40 приглашений в сутки

 

Ну да , но мне надо соих друзей пригласить а друзей можна сколька хочеш приглашать

 

палю мегопревад
VKInviter v0.3.0

кстати, да! Друзей можно приглашать всех сразу... сколько есть в скписке.

 

А есть штота на пхп ???

 

свободно распространяемая !)
ЗЫ: автора уже удалили с ВК)
Уже давно есть 032 версия...
Все релизы были доступны тут http://depositfiles.com/ru/folders/0GHLJ6F65
Но начиная с 040 сделали приватом
Если кому надо VKInviter_040 с исходниками берём тут: http://vall.ifolder.ru/10660091

 

теперь это точно не привадд))

 

[dei] спасибо, уже пригодилась!

Да автора удалили буквально вчера

 

А есть ли ещё подобные скрипты\программы для удаления\принятия предложений видео\фото\группы? Если есть у кого, прошу поделится.

 

Удаляй ручками.

 

норм