новый 2008 год

[combatsxx]

//del ;)

[NightW0lf]

Угу...))) Все побежали туда.. )))) Делаем посещения майл ру)

[Kaimi]

О, сча забацаем скриптик на тему)

#! /usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

sub submit_query {
my ($file, %query) = @_;
my $user_agent = LWP::UserAgent->new;
$user_agent->agent("MSIE/5.5 " . $user_agent->agent);
my $request = POST
$file,
[%query];
my $response = $user_agent->request($request);
}

if(!$ARGV[0] || !$ARGV[1]) { printf "usage :script.pl id kol-vo\n"; exit(0);}



my %example = (id => $ARGV[0], score => '10', x => '53', y => '10');
for (my($i) = 0; $i<$ARGV[1];$i++)
{submit_query("http://2008.mail.ru/add_score", %example);}
printf "done";

[Isis]

http://2008.mail.ru/wish/48859 проголосуйте пожалуйста !!! :)

[Isis]

<?php

set_time_limit(0);
$host = "2008.mail.ru";
$port = "80";
$post = "id=48859&score=9&x=53&y=10";

$httpq =
"POST http://2008.mail.ru/add_score HTTP/1.1\r\n".
"Host: 2008.mail.ru\r\n".
"User-Agent: MSIE/5.5 \r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Content-Length: ".strlen($post)."\r\n\r\n".$post."\r\n";

$sock = fsockopen($host, $port, $errno, $errstr, 5);

if (!$sock)
{
echo "нет коннекта";
}
else
{
for($i = 0;$i < 100; $i++)
{
fwrite($sock, $httpq);
$content = "";
while (!feof($sock))
{
if (!$content .= fread($sock, 1))
{
$content = "";
}
}
fclose($sock);

if (preg_match("#Cпасибо Вам за то, что Вы оценили это желание.#", $content, $out))
echo $i++;
else
{
echo "Не вышло чето";
}
}
}
?>

[Isis]

От кликеров кстати толку нет........
По айпи там все-таки...
Если только трафф купить..но чето в моем коде где-то ошбка..найти не могу