Кликер своими руками
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(60);
$ua->proxy('http',"http://".$pr);
print "Try... $pr ";
Браузер готов, теперь займемся заголовком, который браузер передаст
серверу.
$h1 = new HTTP::Headers
Accept => 'application/vnd.ms-excel, application/msword, image/gif,
image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',
User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
Referer => 'http://www.xakep.ru/default.asp';
Замени "http://www.xakep.ru/default.asp"
на адрес своей страницы, на которой висит кнопка топа. Настало время
делать запрос:
$req1 = new HTTP::Request ('GET', 'http://fomenko.ru/cgi-bin/top/lspro.cgi?click=номер',
$h1);
$response=$ua->request($req1);
$suc=$response->is_success;
Делаем запрос к серверу и получаем от него ответ. Слово "номер"
замени на свой номер, который тебе выдали при регистрации.
Теперь надо обработать результат, и если все прошло нормально,
запишем его в файл "click.log"
($suc) || print $response->code;
if ($suc) {
open(FH,">>click.log");
print FH $pr."\n";
close FH;
};
($suc) && print "+";
И завершим работу скрипта
exit;
Вот и весь текст скрипта. Не правда ли, все просто? Самое сложное
- это найти шелл :).
Установка
Если тебе повезло и ты достал где-то шелл, на котором есть перл,
и можно запускать фоновые процессы, считай, что ты #1 (Намба Ван,
то есть :)). Как определить, есть ли на твоем шелле возможность
запустить кликер или нет? Кликер запускается с помощью программки
"cron". Это своеобразный аналог Планировщика из виндов. Ты ему даешь
программу, которую надо запускать, и устанавливаешь время. Для создания
задания тебе необходимо будет создать файл в формате "crontab".
Допустим, ты решишь, что твой скрипт должен запускаться через каждые
20 минут, начиная с полуночи. Для этого тебе надо написать:
0, 20, 40, * * * * clicker.pl
Где "clicker.pl" - имя твоего кликера.
Если ты так и не нашел шелл, то можешь попробовать вызывать скрипт
каждый раз, когда на твою страничку заходит посетитель. Но для этого
твой хостинг должен поддерживать perl и ssi. Изменим чуть-чуть наш
скрипт. Для этого после строки:
#!/usr/bin/perl
добавь:
print "Content-type: text/html\n\n";
И в html файл своей странички добавь ssi команду вызова скрипта:
<!--#include virtual="/cgi-bin/clicker.pl"-->
Предварительно скопировав "clicker.pl" в каталог "cgi-bin" и установив
права доступа к файлу командой "chmod 755".
Заключение
Не советую тебе слишком увлекаться накруткой показов/кликов. Это,
конечно, рульно, когда на твою хоумпагу ходят люди. Но когда вместо
людей на нее ходят твои же клики, это совсем не кул. А представь
себе, если все отстойные сайты начнут накручивать себе показы. Это
будет гонка кликеров. А хорошие и нужные сайты останутся а глубоком
анусе. :( Так что, приятель, пиши кликер только если у тебя как
раз такой сайт, а раскручивать отстой лучше не надо - его и так
слишком много. Удачи!
