| CipriX | 22 Ocak 2009 20:28 |
Google Tool
- 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sitesidir.
** Google [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesinin 2.060 sayfasını barındırmaktadır.
-
/google -i [site] => sitenin toplamda googleye indexli sayfasını verir
ÖRN;
/google -i [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdım
** Google [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mirc indir yazdım
** Google [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesini mirc indir kelimesinde ilk 10'a ALMIŞ!
Kodumuz;
Kod:
; Google Zamazingosu
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
; 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
.halt
}
if $1 == -i && $2 && [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $2 {
.set %google.birinci $remove($2,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].)
sockclose google-3
sockopen google-3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
.halt
}
if $1 == -k && $3 && [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $2 {
.set %google.sitesi $2
.set %google.kelimesi $ue($3-)
.set %google.kelimesi.2 $3-
sockclose google-4
sockopen google-4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]. $+ %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
}
on *:sockopen:google-3:{
sockwrite -n $sockname $eval(GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %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
}
|
