Version : 0.3

BY SeRDaR406

Bu addon istediğiniz programı aramanızı ve indirmenizi sağlar.

Bu addon mIRC v6.2′de çalışmaktadır.Düşük olanlarda çalışmaz!

Program Arama Motoru indir

Google’de Arama Yapmak İçin ; /Google Kelime
Yahoo’da Arama Yapmak İçin ; /Yahoo Kelime

Örneğin /google ircforum
Örneğin /yahoo ircforum
Gibi.

########################## Yahoo & Google Searcher #########################################
alias bilgi {
echo - Google'de Arama Yapmak İçin ; $qt(/Google Kelime)
echo - Yahoo 'da Arama Yapmak İçin ; $qt(/Yahoo Kelime)
}
#Google On
alias Google {
var %Arama $1 , %site Google
if $1 == $null {
echo - $qt(/Google Kelime) Şeklinde Tekrar Deneyiniz $chr(46) $+ $chr(46) $+ $chr(46)
halt
}
.hmake Arama
.hadd Arama Ara $1 Kelimesi
echo - $hget(Arama,1).data Google'de Aranıyor.
run http://www.google.com.tr/search?hl $+ $chr(61) tr&q $+ $chr(61) $+ %Arama &btnG $+ $chr(61) Google%27da+Ara&meta=
echo - Açık Olan Site : $url dur $chr(46) $+ $chr(46) $+ $chr(46)
.hfree Arama
}
#Google End
#Yahoo On
alias yahoo {
var %yahoo $1 , %yahoo2 Yahoo
if $1 == $null {
echo - $qt(/Yahoo Kelime) Şeklinde Giriniz
halt
}
.hmake Yaho
.hadd Yaho Yah $1 Kelimesi
echo - $hget(Yaho,1).data %yahoo2 Sitesinde Aranıyor $chr(46) $+ $chr(46) $+ $chr(46)
run http://search.yahoo.com/search?p $+ $chr(61) $+ $1 &fr $+ $chr(61) yfp-t-501&toggle $+ $chr(61) 1&cop $+ $chr(61) mss&ei $+ $chr(61) UTF-8
echo - Aktif Olan Site $qt($url) $chr(39) $+ dur $chr(46) $+ $chr(46) $+ $chr(46)
.hfree Yaho
}
#Yahoo End

############################ Coded By daRkMoRGaN ##############################################

- 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
}