Приемы раскрутки WEB-сайтов



   прокси сервер          

Приемы "раскрутки" WEB-сайтов - часть 24


Чтобы 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 ";

    Браузер готов, теперь - заголовок, который браузер передаст серверу.



Содержание  Назад  Вперед