mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 16 Temmuz 2017, 12:32
Che - ait Kullanıcı Resmi (Avatar)
Che Che isimli Üye şimdilik offline konumundadır

mS Puan: 1
mS Derece: Che
 
Üyelik tarihi: 19 Ağustos 2015
Bulunduğu yer: Ankara
Mesajlar: 38
Konular: 38
Eklentiler: 1
Alınan Teşekkür: 4
Yapılan Teşekkür: 2
Post mIRC Google Sıra Bulucu /googlearama Site Kelime

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.

Kullanimi: /googlearama -Web- -Aranacak kelime-
* Ornek: /googlearama IRC ve mIRC Kullanıcılarının Buluşma Noktası ircforumlari





Kod:
alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand) www.google.com.tr 80 
  sockmark $+(google,%rand) $2-
  echo -a -/- 5 $1 6adresi5 $2- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.
  hadd -m google web $+(http://,$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) HTTP/1.1 
  sockwrite -n $sockname Host: www.google.com.tr
  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=http:,%x) {
    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
}
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
bulucu, google, kelime, mirc, or googlearama, site, sıra

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
kelime seçme comanche Help - Yardım 4 20 Ocak 2016 20:29
Kanal kelime istatistiği Feragat Snippets - Parça kodlar 0 10 Nisan 2014 03:28
!wiki <Sorgulamak istediğiniz kelime> Soğuk Showcase - Hazır kodlar 3 24 Ocak 2014 22:54
$site Difuzyon mIRC identifiers - Tanımlar 0 02 Ocak 2010 22:25
SüperLig Puan sıra durumu !puandurumu SaGoPa Showcase - Hazır kodlar 1 12 Ekim 2009 16:00


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76