mIRC PR Sorgulama

on *:text:*:#: if ($1 == !pr) && $2 { set %:kanal # | var %:ipr $r(100,9999) | sockopen $+(ifpr,%:ipr) www.ircforumlari.net 80 | sockmark $+(ifpr,%:ipr) $remove($2,www.,http://) } on *:input:#: if ($1 == !pr) && $2 { set %:kanal # | var %:ipr $r(100,9999) | sockopen $+(ifpr,%:ipr) www.ircforumlari.net 80 | sockmark $+(ifpr,%:ipr) $remove($2,www.,http://) } alias htmlfree { if ($len($1-) < = 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:ifpr*:{  var %:ifpr $+(doFormPostback=7f32992aa3803a49e8176a67da202d44&url=http%3A%2F%2Fwww.,$sock($sockname).mark)  sockwrite -nt $sockname POST /webanaliz/tool.php?id=estimate-pagerank HTTP/1.1  sockwrite -nt $sockname Host: www.ircforumlari.net  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:33.0) Gecko/20100101 Firefox/33.0  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3  sockwrite -nt $sockname Referer: http://www.ircforumlari.net/webanaliz/tool.php?id=estimate-pagerank  sockwrite -nt $sockname Connection: keep-alive  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded  sockwrite -nt $sockname Content-Length: $len(%:ifpr)  sockwrite -nt $sockname   sockwrite -nt $sockname %:ifpr}on *:sockread:ifpr*:{  var %:pr | sockread %:pr | tokenize 32 %:pr  if (*<div class="bigNumber">* iswm %:pr) { set %:ifpr oke! }  else if (%:ifpr) {    msg %:kanal 12G4o7o12g3l4e 12P4a12g4e7R4a3n12k URL= $+(http://www.,$sock($sockname).mark) - PR= $htmlfree(%:pr)    sockclose $sockname | unset %:ifpr  }}</div>
Kullanımı : ! siteadı
ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir