-/- Google sira bulucu -

[Toprak]

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 [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) lookjapan


Gosterim:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])

alias googlearama {
var %rand $rand(0,99999)
sockopen $+(google,%rand) [Only Registered Users Can See Links] 80
sockmark $+(google,%rand) $2-
echo -a -/- 5 $1 6adresi5 $2- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.
hadd -m google web $+([Only Registered Users Can See Links]$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) [Only Registered Users Can See Links]
sockwrite -n $sockname Host: [Only Registered Users Can See Links]
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=[Only Registered Users Can See Links]) {
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
}