IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   PR Sorgulama (https://www.ircforumlari.net/mirc-parca-kodlar/655537-google-page-ranking-sorgulama.html)

Toprak 30 Kasım 2014 00:17

PR Sorgulama
 
IF'in web araçlarından sorgulanmaktadır.
İlgili link= [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod baya basit oldu diğer araçlardanda birşey çıkarmaya çalıştım ama işe yarar tek bunu buldum belki birilerinin işine yarar.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:text:*:#: if ($1 == !pr) && $2 { set %:kanal # | var %:ipr $r(100,9999) | sockopen $+(ifpr,%:ipr)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ifpr,%:ipr) $remove($2,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:input:#: if ($1 == !pr) && $2 { set %:kanal # | var %:ipr $r(100,9999) | sockopen $+(ifpr,%:ipr)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ifpr,%:ipr) $remove($2,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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%2F
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname POST /webanaliz/tool.php?id=estimate-pagerank HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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= $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PR= $htmlfree(%:pr)
    sockclose $sockname | unset %:ifpr
  }
}

Komut: !pr [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:24.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net