Форум АНТИЧАТ - Как удалить всех друзей?

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Социальные сети (https://forum.antichat.xyz/forumdisplay.php?f=133)

- - Как удалить всех друзей? (https://forum.antichat.xyz/showthread.php?t=103092)

Yanker

25.01.2009 23:16

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

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

*eXe*

26.01.2009 00:43

+1

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

gyunter

26.01.2009 01:50

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

Campery

26.01.2009 02:53

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

xcedz

26.01.2009 03:05

погуглил сабж, поидее можно юзверский скрипт под это дело написать.
хм. пробуйте.
в Опере
- открываем исходный код страницы "Мои друзья"
- находите следующую строку
remove: "<li>Убрать из друзей",
- изменяете act=remove на act=do_delete

PHP код:


		
			
remove: "<li><a href=\"friend.php?act=do_delete&id=[[id]]\">Убрать из друзей</a></li>"

- применяете изменения
- теперь кнопка убрать из друзей убирает контакт без подтверждения. идете по списку друзей и нажимаете ее колесом мыши, это откроет вкладку в фоновом режиме.

Ps :)

Yanker

26.01.2009 04:15

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

*eXe*

26.01.2009 04:32

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

xcedz

26.01.2009 04:35

Цитата:

Сообщение от *eXe*

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

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

*eXe*

26.01.2009 04:53

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

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

metaN™®

26.01.2009 07:12

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

xcedz

26.01.2009 07:24

Цитата:

Сообщение от metaN™®

возможно по тому же принципу как прием заявок в друзья

Цитата:

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

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){processR equest(parseInt(matches[1]),1);}}

(стырил с группы :D )

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

[dei]

26.01.2009 11:53

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

Код:

#!/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	26.01.2009 15:46

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

[dei]

26.01.2009 17:35

Цитата:

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

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

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

Ylka	26.01.2009 21:07

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

*eXe*

26.01.2009 21:23

Цитата:

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

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

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

Цитата:

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

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

Ylka	26.01.2009 21:34

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

Вэлл	20.02.2009 22:47

Цитата:

Сообщение от *eXe*

палю мегопревад

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

*DeViL*

20.02.2009 22:53

Цитата:

Сообщение от Вэлл

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

>.:!FrE!:.<

21.02.2009 03:04

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

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

>.:!FrE!:.<

21.02.2009 17:21

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

Pr13raK

24.02.2009 02:10

Цитата:

Сообщение от [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);

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

F1shka

24.02.2009 02:38

Цитата:

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

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

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

Время: 01:22