mirc google kelime arama
google kelime arama
kod.
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
}

________________

Kullan?m?;

/google -a [kelime] => Googlede belirtti?iniz kelime ile ilgili olarak istatistik verir
ÖRN;
/google -a mirc indir yazd?m