файлы load.php и left.htm , к
примеру, в каталоге
http://www.lolik.ru/load/
то линки на Ваших страницах надо переписать ввиде:
Было - Mp3-Search
Новый - Скачай игры
Это только базовый вариант.
Неплохо
бы спрятать собственно пустой файл left.htm от
любопытных глаз.
23. Классический скрипт для “накрутки”
посещений
где-то в Internet без указания авторства.
Приводится без изменений.
КЛИКЕР - скрипт для имитации
посещений web-сайтов.
КЛИКЕР - Perl-скрипт для имитации посещений web-сайтов.
Данное руководство позволит Вам создать и использовать свою программу для
web-серфинга. Для этого Вам понадобится установить на машине web-сервер,
например Apache. И использовать список анонимных
прокси-серверов.
Для написания самого скрипта рекомендуется использовать
PerlBuilder. Это довольно удобная софтина,
которая умеет выделять программу цветом, проверять синтаксис и многие другие
вещи. Найти ее можно где-то на листсофте, (www.listsoft.ru), а регистрашку к
ней - на асталависте (www.astalavista.box.sk).
Чтобы PerlBuilder нормально понимал русский, в каталоге
windows найди файл "pbuilder.ini".
В нем есть строчка: "Font Face=Courier New".
Замените ее на "Font Face=Courier New Cyr"
и перезапустите PerlBuilder.
Первая строка скрипта - это
путь к перлу на шелле. Чаще всего это:
#!/usr/bin/perl.
Потом к скрипту подключаем дополнительные
модули:
use HTTP::Request::Common;
require LWP::UserAgent;
Инициализируем генератор случайных чисел и
уменьшим буфер до единицы:
srand($$ & time ^ $$);
$|=1;
Теперь откроем файл, в котором хранится список
твоих проксей:
open(PROXY,
"proxy.lst");
@proxies=;
chomp(@proxies);
close(PROXY);
Все адреса проксей должны храниться в текстовом
файле с именем "proxy.lst". В
следующем формате:
адрес.сервера:порт
адрес.сервера:порт
Инициализируем переменную "$suc", а в "$pr"
записываем адрес прокси, случайно выбранного из всего списка.
$suc=1;
$pr = splice(@proxies, int rand @proxies, 1);
Теперь самое интересное. Создадим виртуальный браузер,
который будет заходить по ссылке, тем самым кликая по
собой IE5 и Windows98.
$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,
Главная / web программирование / web технологии 