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

[Yanker]

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

[*eXe*]

+1

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

[gyunter]

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

[Campery]

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

[xcedz]

погуглил сабж, поидее можно юзверский скрипт под это дело написать.
хм. пробуйте.
в Опере
- открываем исходный код страницы "Мои друзья"
- находите следующую строку
remove: "<li>Убрать из друзей",
- изменяете act=remove на act=do_delete
remove: "<li><a href=\"friend.php?act=do_delete&id=[[id]]\">Убрать из друзей</a></li>"
- применяете изменения
- теперь кнопка убрать из друзей убирает контакт без подтверждения. идете по списку друзей и нажимаете ее колесом мыши, это откроет вкладку в фоновом режиме.

Ps :)

[Yanker]

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

[*eXe*]

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

[xcedz]

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

Да, работает, как раз один контакт надо было удалить :)

[*eXe*]

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

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

[metaN™®]

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

[xcedz]

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

Заходите на страничку в приглашениями добавить в друзья и в строку броузера вставляете это (в одну строчку):

javascript:var divs=document.getElementsByTagName('div');for(var i=0;i<divs.length;i++){var matches=divs[i].id.match('^progric([\\d]+)$');if(matches!=null&&matches.length>0){processRequest(parseInt(matches[1]),1);}} (стырил с группы :D )

и запускаете. Все заявки будут приняты автоматически

[[dei]]

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

#!/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);

[Ylka]

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

[[dei]]

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

[Ylka]

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

[*eXe*]

Ну да , но мне надо соих друзей пригласить а друзей можна сколька хочеш приглашать
палю мегопревад
VKInviter v0.3.0 (http://depositfiles.com/files/5dfu0tzqe)
насколько я знаю там стоит ограничение на 40 приглашений в сутки
кстати, да! Друзей можно приглашать всех сразу... сколько есть в скписке.

[Ylka]

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

[Вэлл]

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

[*DeViL*]

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

[>.:!FrE!:.<]

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

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

[>.:!FrE!:.<]

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

[Pr13raK]

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

#!/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);



спасибо за скрипт работает
но ооочень медленно

[F1shka]

спасибо за скрипт работает
но ооочень медленно
Удаляй ручками.