- Nedir ?
Adı üstünde Google ile ilgili birşeydir (:
- Ne İşe Yarar ?
Google üzerinden belli bilgileri çekmeye yarar..
Kullanımı;
/google -a [kelime] => Googlede belirttiğiniz kelime ile ilgili olarak istatistik verir
ÖRN;
/google -a mirc indir yazdım
** Googlede mirc indir kelimesinde toplam 1.770.000 site bulunmuştur.
** Bu sitelerin birincisi http://www.mircindir.com/ sitesidir.
** Google http://www.mircindir.com sitesinin 2.060 sayfasını barındırmaktadır.
-
/google -i [site] => sitenin toplamda googleye indexli sayfasını verir
ÖRN;
/google -i www.mircindir.com yazdım
** Google http://www.mircindir.com sitesinin 2.060 sayfasını barındırmaktadır.
-
/google -k [site] [kelime] => verilen kelimede verilen site ilk sayfada varmı yokmu onu gösterir
ÖRN;
/google -k www.mircindir.com mirc indir yazdım
** Google http://www.mircindir.com sitesini mirc indir kelimesinde ilk 10′a ALMIŞ!
Kodumuz;
; Google Zamazingosu
; www.mircindir.com
; Alayına CipriX (:
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l ue return $regsubex($1-,/\G(.)/g,$iif(($prop && \1 !isalnum) || !$prop,$chr(37) $+ $base($asc(\1),10,16),\1))
alias google {
if $1 == -a && $2 {
.set %google.arama $ue($2-)
.set %google.arama.2 $2-
.sockclose google-1
.sockopen google-1 www.google.com.tr 80
.halt
}
if $1 == -i && $2 && www.* iswm $2 {
.set %google.birinci $remove($2,http://,www.)
sockclose google-3
sockopen google-3 www.google.com.tr 80
.halt
}
if $1 == -k && $3 && www.* iswm $2 {
.set %google.sitesi $2
.set %google.kelimesi $ue($3-)
.set %google.kelimesi.2 $3-
sockclose google-4
sockopen google-4 www.google.com.tr 80
.halt
}
else {
echo -a /google Hata! kullanılabilecek parametreler: -a [kelime] , -i [site] , -k [site] [kelime]
}
}
alias -l google.goster {
var %i 1
while %i <= $numtok($1-,32) {
if $remove($gettok($1-,%i,32),.) isnum {
echo -a 3** 4Googlede $+ %google.arama.2 $+ kelimesinde toplam 1 $+ $gettok($1-,%i,32) 4site bulunmuştur.
sockclose google-2
sockopen google-2 www.google.com.tr 80
.halt
}
inc %i
}
}
alias -l google.goster-2 {
var %i 1
while %i <= $numtok($1-,32) {
if $remove($gettok($1-,%i,32),.) isnum {
echo -a 3** 4Google $+ http://www. $+ %google.birinci $+ sitesinin 1 $+ $gettok($1-,%i,32) 4sayfasını barındırmaktadır.
.unset %google*
.sockclose google*
.halt
}
inc %i
}
}
on *:sockopen:google-1:{
sockwrite -n $sockname $eval(GET http://www.google.com.tr/search?hl=tr&q=,0) $+ %google.arama $+ $eval(&btnG=Google?da+Ara&,HTTP/1.0,0)
sockwrite -n $sockname
}
on *:sockread:google-1:{
var %kacsonucvar
sockread %kacsonucvar
if (*yaklaşık* iswm %kacsonucvar) google.goster $htmlfree($gettok(%kacsonucvar,20-,32))
}
on *:sockopen:google-2:{
sockwrite -n $sockname $eval(GET http://www.google.com.tr/search?hl=tr&q=,0) $+ %google.arama $+ $eval(&btnI=Şansımı+Denemek+İstiyorum HTTP/1.0,0)
sockwrite -n $sockname
}
on *:sockread:google-2:{
var %sonsite
sockread %sonsite
if Location isin %sonsite {
echo -a 3** 4Bu sitelerin birincisi 1 $+ $gettok(%sonsite,2,32) 4sitesidir.
.set %google.birinci $remove($gettok($gettok(%sonsite,2,32),2-,46),/)
sockclose google-3
sockopen google-3 www.google.com.tr 80
}
}
on *:sockopen:google-3:{
sockwrite -n $sockname $eval(GET http://www.google.com.tr/search?hl=tr&q=,0) $+ site: $+ %google.birinci HTTP/1.0
sockwrite -n $sockname
}
on *:sockread:google-3:{
var %kacsonucvar.2
sockread %kacsonucvar.2
if (*yaklaşık* iswm %kacsonucvar.2) { google.goster-2 $htmlfree($gettok(%kacsonucvar.2,20-,32)) }
}
on *:sockopen:google-4:{
sockwrite -n $sockname $eval(GET http://www.google.com.tr/search?hl=tr&q=,0) $+ %google.kelimesi $+ $eval(&btnG=Google?da+Ara&,HTTP/1.0,0)
sockwrite -n $sockname
}
on *:sockread:google-4:{
var %kacsonucvar
sockread %kacsonucvar
if (* $+ %google.sitesi $+ * iswm %kacsonucvar) {
.set %google.aldimi Evet
echo -a 3** 4Google http:// $+ %google.sitesi sitesini $+ %google.kelimesi.2 kelimesinde 1ilk 104′a ALMIŞ!
.unset %google*
.halt
}
}
on *:sockclose:google-4:{
if !%google.aldimi {
echo -a 3** 4Google http:// $+ %google.sitesi sitesini $+ %google.kelimesi.2 kelimesinde 1ilk 104′a ALMAMIŞ!
}
.sockclose google*
.unset %google.*
.halt
}
|
