Форум успешных вебмастеров - GoFuckBiz.com

  Форум успешных вебмастеров - GoFuckBiz.com > Разное > Треп | Флейм
Дата
USD/RUB58.9640
BTC/USD0.0000
Треп | Флейм Обсуждение самых разных тем вне онлайн бизнеса.

Закрытая тема
Опции темы Опции просмотра
Старый 29.08.2009, 05:00   #1
myforum666
Ебланнед
 
Регистрация: 29.08.2009
Сообщений: 6
Бабло: $500
Exclamation Нужна программа для рассылки запросов на дружбу в Вконтакте.

Нужна программа для рассылки запросов на дружбу в Вконтакте.
Именно для приглашения друзей к себе (к анкете отправляющего запросы) а не для приглашения друзей в группу.

Принцип работы:

В текстовой файл записываются логины;пароли к анкетам с которых будет высылаться приглашения.
Эти данные пользователь заполняет сам вручную.

Код:
user.txt
[email protected];vGhdd31
[email protected] yandex.ru;54345331
...
В другой текстовый файл
Код:
id.txt
http://vkontakte.ru/id2925427
http://vkontakte.ru/id2863278
http://vkontakte.ru/id2848361
или просто
2925427
2863278
2848361
...
Скприпт (программа) при старте:
1. Логинится на vkontakte.ru под первым юзером из файла user.txt
2. Начинает брать линки из файла id.txt и добавлять к себе в друзья эти экаунты (из файла id.txt).
По сути скрипт переходит на страницу и нажимает кнопку добавить в друзья.
3. Ждем заданное количество секунд (скажем 3). Которое каким-то образом задается в настройках.
4. Берет следующий линк из файла id.txt и добавляет его в друзья.
5. Опять задержка в Х секунд.
6. И так далее аж до 40-вого линка или что лучше до получения ошибки: Ограничения лимита добавления друзей в сутки.
7. Выходит из экаунта.

8. Логинится на vkontakte.ru под Вторым юзером из файла user.txt
9. Продолжает добавлять друзей из файла id.txt начиная со следующего линка. Т. .е не с начала списка.

10. И так, пока не закончатся линки или в файле id.txt или эканту в файле user.txt.



Вот пример подобного скрипта:
Кто то написал в некоторой степени подобный скрипт, но он уже не работает из за нововведений Дурова. И он добавлял друзей по заданному диапазону id. А мне нужно что бы он добавлял по моему списку id. И что бы не нужно было вводить каждый раз логины и пароль вручную.
Но на основе этого скрипта можно написать то что нужно мне.

Вот этот скрипт:
1. Ставим Active Perl (http://www.activestate.com/Products/...rl/index.mhtml).
2. Создаем файл run.bat в котором меняем "email" на ваше мыло и "password" на ваш пароль.
После "email" и "password" стоят циферки....Первая обозначает с какого id начать, вторая (которая после пробела) - та,чьим id закончить.
И далее идёт цифра,через скока секунд будет добавляться друг. Советую оставить 3, дабы не получилась петрушка.
3. Создаем файл vkontakte.pl
4. Запускаем файл run.bat

Вот сами файлы:

Код:
Run.bat

c:\Perl\bin\perl vkontakte.pl email password 15680 15700 3
pause
Код:
vkontakte.pl

use IO::Socket;
#use Switch;
#all questions to scksql[at]gmail.com

system('cls');
if(@ARGV <5) {
print "Arguments Required!\n";
print "Example: vkontakte.exe email\@mail.ru password idFrom idTo SleepTime(in_sec)\n";
system('pause');
exit();
}


$email = $ARGV[0];
$password = $ARGV[1];
$from = $ARGV[2];
$to = $ARGV[3];
$sleep = $ARGV[4];
$logging = $ARGV[5];


$added = 0;
$error = 0;

print "---------------------------------------------\n";
print "- -=Vkontakte Friend Flooder=- -\n";
print "---------------------------------------------\n";
print "- -=Script by Hard (c) 2008=- -\n";
print "---------------------------------------------\n";

if($cookie = auth($email, $password)) {
if($logging) {logging($logging, "<pre>","clear_file");}
print "[+] Auth succesfull...\n";
print "[-] Now working...\n";
print "---------------------------------------------\n";
do {
$answer = search($cookie, $from, $link);
#if($logging) {logging($logging, $answer);}

if($answer=~/h=([0-9A-z][0-9A-z][0-9A-z][0-9A-z][0-9A-z][0-9A-z][0-9A-z][0-9A-z])/) {
$searched = $1;
}
else {
$searched = 0;
}

if($searched) {
$AddAnswer = AddFriend($cookie, $from, $searched);
if($logging) {logging($error."-".$logging, $AddAnswer);}
if($AddAnswer == 1) {
print "ID: ".$from." - friend added!\n";
$added++;
}
else {
print "ID: ".$from." - error! (".ErrorAdd($AddAnswer).")\n";
$error++;
}
}
else {
print "ID: ".$from." - error! (".ErrorSearch($answer).")\n";
$error++;
}
$from++;
sleep($sleep);
} while($from <= $to);
logout($cookie);
}
else {
print "Login Error!\n";
system('pause');
exit();
}
print "---------------------------------------------\n";
print "[+] Finished!\n";
print "---------------------------------------------\n";
print "Added Total: ".$added."\n";
print "Total Errors: ".$error."\n";
print "---------------------------------------------\n";
print "- -=Script by Hard (c) 2008=- -\n";
print "---------------------------------------------\n";
system('pause');
#########################
########FUNCTIONS#########
#########################
sub logout {
($cookie)[email protected]_;
#"http://vkontakte.ru/login.php?op=logout";
$header = "GET /login.php??op=logout HTTP/1.1\r\n";
$header .= "Host: vkontakte.ru\r\n";
$header .= "User-Agent: Antidurov 2.0\r\n";
$header .= "Cookie: ".$cookie."\r\n";
$header .= "Connection: Close\r\n";
$header .= "Content-Type:text/xml; charset=windows-1251\r\n\r\n";
}
sub auth {
($email, $password) = @_;
print "[-] Connecting to the server...\n";
$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "vkontakte.ru",PeerPort => "80", Timeout=> 10) || die "$socket";
print "[+] Connected!\n";
print "[-] Auth...\n";
$header = "GET /login.php?email=".$email."&pass=".$password." HTTP/1.1\r\n";
$header .= "Host: vkontakte.ru\r\n";
$header .= "User-Agent: Antidurov 2.0\r\n";
$header .= "Cookie: income=1\r\n";
$header .= "Connection: Close\r\n";
$header .= "Content-Type:text/xml; charset=windows-1251\r\n\r\n";

print $socket $header;

$ResAnswer = "";
while($answer = <$socket>){
$ResAnswer .= $answer;
}
close($socket);
if($ResAnswer=~/302 Moved/si || $ResAnswer=~/302 FOUND/si) {
$return = "remixlang=0;remixchk=5;remixchk=5;";
$ResAnswer=~/remixmid=(.*?;)/;
$return .= "remixmid=".$1;
$ResAnswer=~/remixemail=(.*?;)/;
$return .= "remixemail=".$1;
$ResAnswer=~/remixpass=(.*?;)/;
$return .= "remixpass=".$1."remixcookietest=deleted;";
return $return;
}
else {
return 0;
}
}
sub search {
($cookie, $id, $link)[email protected]_;
$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "vkontakte.ru",PeerPort => "80", Timeout=> 10) || die "$socket";

$header = "GET /search.php?id=$id HTTP/1.1\r\n";
$header .= "Host: vkontakte.ru\r\n";
$header .= "User-Agent: Antidurov 2.0\r\n";
$header .= "Cookie: ".$cookie."\r\n";
$header .= "Connection: close\r\n";
$header .= "Content-Type:text/xml; charset=windows-1251\r\n\r\n";

print $socket $header;

$ranswer = "";
while($answer = <$socket>) {
$ranswer .= $answer;
}
close($socket);
return $ranswer;
}
sub logging{
($logging, $data, $clear=0)[email protected]_;
#open(file, ">".(!$clear?">":"").$logging);
#print file $data;
#close(file);
}
sub AddFriend {
($cookie, $id, $h) = @_;

$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "vkontakte.ru",PeerPort => "80", Timeout=> 10) || die "$socket";

$header = "POST /friend.php?act=addFriend HTTP/1.1\r\n";
$header .= "Host: vkontakte.ru\r\n";
$header .= "User-Agent: DurovSuka\r\n";
$header .= "Cookie: ".$cookie."\r\n";
$header .= "Content-Type: application/x-www-form-urlencoded\r\n";
$header .= "Connection: Close\r\n";
$header .= "Content-Length: ".length("fid=".$id."&h=".$h)."\r\n\r\n";

$header .= "fid=".$id."&h=".$h."\r\n\r\n";

print $socket $header;

$ranswer = "";
while($answer = <$socket>) {
$ranswer .= $answer;
}

#for($i=0;$i<11;$i++) {
# $ranswer .= <$socket>;
#}

#print $ranswer;

#if($logging) {logging($logging, $answer);}
#$_=$ranswer;
#logging($logging, $_);
#if($ranswer=~/Set-Cookie: remixdeffriendgroups=deleted/) {
if($ranswer=~/получил уведомление и подтвердит, что Вы его друг/) {
return 1;
}
else {
return $ranswer;
}
}
sub ErrorSearch{
($answer)[email protected]_;
if($answer=~/Страница удалена/) {
return "Page is deleted";
}
if($answer=~/К сожалению, по Вашему запросу ничего не найдено/) {
return "Page is not created";
}
if($answer=~/Location: blank.php\r\n/) {
return "Flood protect in search";
}
if($answer=~/Убрать из друзей/) {
return "Already Friend";
}
}
sub ErrorAdd{
($answer)[email protected]_;
$_=$answer;
#switch($answer) {
if($answer=~/Заявка уже была отправлена. Повторно заявка отправлена не будет/) {return "Invite was already send";}
if($answer=~/Location: blank.php\r\n/) {return "Flood protect in add";}
if($answer=~/code=6/) {return "Added in black list";}

#}
if($answer=~/code=11/) {return "Friend add limit reached";}
}
myforum666 вне форума  
Старый 29.08.2009, 14:01   #2
myforum666
Ебланнед
 
Регистрация: 29.08.2009
Сообщений: 6
Бабло: $500
ТС -->
автор темы ТС По умолчанию

Ура, нашел что искал.
Теперь могу продать кому нужна подобная программа:
Vkontakte Friends Inviter Версия 1.1.
Цена: 15 дол за копию.


О программе:
+ Заходит на сайт vkontakte.ru и рассылает приглашения на дружбу
+ Рассылка идёт только тем, кто сейчас онлайн
+ Можно добавлять аккаунты в процессе рассылки
+ Сохранение информации об аккаунтах, proxy и пр. не нужно каждый раз вбивать по новой
+ Многопоточность
+ Акцептирует тех кто пригласил вас в друзья
+ Работает с ac-service.info
+ Работа через прокси листы
+ Отсылает заданное личное сообщение
+ 100% рассылка пригласительных с аккаунта, т.е. рассылка прекращается только тогда когда будет получено сообщение что "Вы не можете добавлять так много друзей за сутки".
+ Подробная статистика и наглядность, расчёт скорости рассылки (кол. инвайтов в минуту) + ещё всякие мелкие плюшки.

Скоро выйдет версия 2.0.
Цена будет: 40 дол. за копию.
+ Авторегистрация аккаунтов vkontakte.ru с заполнением анкеты и пр...

ТРОЯНОВ НЕ ОБНАРУЖЕНО, СКРИН:










Для заинтересованный в покупке:
ICQ#: 577730007

Последний раз редактировалось myforum666; 29.08.2009 в 15:49.
myforum666 вне форума  
Старый 29.08.2009, 15:46   #3
Timon
Senior Member
 
Регистрация: 31.10.2007
Сообщений: 380
Бабло: $88512
По умолчанию

жжёшь... сначала просишь, помочь, тебе найти, а когда нашёл, начинаешь ей барыжить.. ггг)
Timon вне форума  
Старый 29.08.2009, 15:47   #4
MFC
Listen to the bit
 
Аватар для MFC
 
Регистрация: 15.08.2009
Сообщений: 362
Бабло: $22480
По умолчанию

Ну когда же каникулы кончатся...
__________________
Если есть причина , всегда есть следствие. Мы это следствие.
MFC вне форума  
Старый 29.08.2009, 15:50   #5
myforum666
Ебланнед
 
Регистрация: 29.08.2009
Сообщений: 6
Бабло: $500
ТС -->
автор темы ТС По умолчанию

так продаю с разрешения автора и по его же цене.

Последний раз редактировалось myforum666; 29.08.2009 в 17:14.
myforum666 вне форума  
Старый 29.08.2009, 17:23   #6
lion
Senior Member
 
Аватар для lion
 
Регистрация: 25.01.2009
Адрес: Країна Мрій
Сообщений: 1,319
Бабло: $111916
Отправить сообщение для lion с помощью ICQ Отправить сообщение для lion с помощью Skype™
По умолчанию

ебланнед
lion вне форума  
Старый 29.08.2009, 17:46   #7
Chester
Member
 
Аватар для Chester
 
Регистрация: 08.08.2009
Сообщений: 64
Бабло: $2944
По умолчанию

Цитата:
Сообщение от lion Посмотреть сообщение
ебланнед
Угу
__________________
Keine Hindernisse. Der Z&#228;hler nichts.
Chester вне форума