Follow along with the video below to see how to install our site as a web app on your home screen.
Бележка: This feature may not be available in some browsers.
#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/3.01 (CacheFlow-Cache/1.1 - 10787.R)");
$req = new HTTP::Request(GET => "http://site.com/count/link.html");
$req->header(accept => '*/*');
while (1) {
$response = $ua->request($req);
sleep int rand 15;
}
PhrozenCrew каза:Ето ти един много елементарен бот, който ще ти свърши чудесна работа. Смени само линка с който искаш:
Бота е писан на Perl - най-мощния език за Web.Код:#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("Mozilla/3.01 (CacheFlow-Cache/1.1 - 10787.R)"); $req = new HTTP::Request(GET => "http://site.com/count/link.html"); $req->header(accept => '*/*'); while (1) { $response = $ua->request($req); sleep int rand 15; }
Успех!
Google ш**ат яко ако те набарат, че шмекериш. Поне преди беше така - първо спират Addsense на този потребител, после спират разрешението за регистриране на каквито и да било услуги, които предлагат, от това IP... след това вкарват сайта в черния списък. Не вярвам да се е променила много политиката, но може да се провери.NewGuy каза:PhrozenCrew каза:Ето ти един много елементарен бот, който ще ти свърши чудесна работа. Смени само линка с който искаш:
Бота е писан на Perl - най-мощния език за Web.Код:#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("Mozilla/3.01 (CacheFlow-Cache/1.1 - 10787.R)"); $req = new HTTP::Request(GET => "http://site.com/count/link.html"); $req->header(accept => '*/*'); while (1) { $response = $ua->request($req); sleep int rand 15; }
Успех!
Той сигурно иска банер на google :wink:
Благодаря.Получаваш точка.И ако може малко инфо как да го подкарам, че не разбирам от перл.И в какво разширение да е файлаPhrozenCrew каза:Ето ти един много елементарен бот, който ще ти свърши чудесна работа. Смени само линка с който искаш:
Бота е писан на Perl - най-мощния език за Web.Код:#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("Mozilla/3.01 (CacheFlow-Cache/1.1 - 10787.R)"); $req = new HTTP::Request(GET => "http://site.com/count/link.html"); $req->header(accept => '*/*'); while (1) { $response = $ua->request($req); sleep int rand 15; }
Успех!