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

Merhaba'lar , Baslik'ta belirtildigi gibi Googlede web adresinin aranilan kelimede ilk 100 siraya gore kacinci sirada oldugunu bulabilen bir code'dir, direk Google uzerinden calistigi icin sonuclar neredeyse %100 olmaktadir, ins isinize yarar Hayırlı IF'ler.

Kullanimi: /googlearama -Web- -Aranacak kelime-
* Ornek: /googlearama [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ircforumlari

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

Kod:

alias googlearama {

  var %rand $rand(0,99999)

  sockopen $+(google,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 

  sockmark $+(google,%rand) $2-

  echo -a -/- 5 $1 6adresi5 $2- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.

  hadd -m google web $+(http://,$1)

  hadd -m google kelime $2-

}

on $*:sockopen:/^google/i: {

  sockwrite -n $sockname GET $+(/search?num=100&q=,$replace($sock($sockname).mark,$chr(32),+),&hl=tr&gbv=2) HTTP/1.1 

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf 

}

on $*:sockread:/^google/i: {

  var %2 | sockread %2

  if (*ile ilgili hiçbir arama sonucu* iswm %2) {

    .echo -a 6Belirtiginiz5 $sock($sockname).mark 6kelimesi 5google6 aramalarinda bulunmamaktadir.

    sockclose $sockname 

    hfree -sw googlearama

    hfree -sw google

    return 

  }  

  if (class="r"><a href="/url?q isin %2) {

    _google $sockname %2

  }

  if (Google\u0026#39;da isin %2) {

    if $hget(googlearama) {

      var %x 1

      while $hget(googlearama,%x).item {

        if ($hget(google,web) isin $v1) { 

          .echo -a 5Sorgulanan web: $hget(google,web)

          .echo -a 5Sorgulanan kelime:  $hget(google,kelime)

          .echo -a 5Google uzerinde: $siralama($hget(googlearama,$v2))

          .echo -a -/- 6Google uzerinde ilk5 100 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link'iyle index almistir.

          .echo -a -

          hinc -m google bulunan 1

        }

        inc %x

      }

      if $hget(google,bulunan) {

        .echo -a - *** 6Google uzerinde ilk5 100 6sirada5 $hget(google,web) 6 web adresi5 $hget(google,kelime) 6 kelimesiyle4 $hget(google,bulunan) 6 kere index almistir.

        hfree -sw googlearama

        hfree -sw google

        sockclose $sockname

        return

      }

    }

    .echo -a 6Belirtilen 5 $hget(google,web) 6adresi5 $hget(google,kelime) 6kelimesinde ilk5 100 6 sitede yer almamaktadir.

    sockclose $sockname

    hfree -sw googlearama

    hfree -sw google

  }

}

alias _google {

  var %x 1

  while $pos($2-,class="r"><a href="/url?q=http:,%x) {

    var %web $token($token($mid($2-,$v1,300),4,61),1,38)

    if (google !isin %web) {

      hinc -m google inc 1

      hadd -m googlearama %web  $hget(google,inc) 

    }

    inc %x

  }

}
 
 

alias siralama {

  if ($gettok($calc($gettok($1,1,46) / 10),2,46)  / 10),2,46) == $null) { return $gettok($calc($gettok($1,1,46) / 10),1,46) Sayfa $gettok($1,2,46) Sirada | halt }

  return $calc($gettok($calc($1 / 10),1,46) +1) Sayfa $iif(!$gettok($calc($1 / 10),2,46),1,$gettok($calc($1 / 10),2,46)) Sirada

}