IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   -/- Google sira bulucu - (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/528256-google-sira-bulucu.html)

uFuK 10 Eylül 2013 18:18

Cevap: -/- Google sira bulucu -
 
echo -a olan yerleri /msg #kanalismi yaparsan kanala yansitir.

ayrica socketi çalıştıran alias'ıda

Alıntı:

on *:text:*:#: {
if $1 == !sorgula $2 == bilmemne) { set %kanal $chan | aliasadı }
}
şeklinde yaparsan /msg %kanal yaptıgında hangi kanalda sorgulanmışsa veriyi o kanala düşürür.

LanetLy 10 Eylül 2013 18:29

Cevap: -/- Google sira bulucu -
 
[18:29] <LaNeTLy> !rank zurnam.net mirc
[18:29] <Misafir> Verilere ulaşılmaya çalışıyor,lütfen bekleyiniz...
[18:29] <Misafir> -/- adresi kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.

çıkmıyor.

uFuK 11 Eylül 2013 15:14

Cevap: -/- Google sira bulucu -
 
Kod:

alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(google,%rand) $2-
  msg %kanalr -/- 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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on $*:sockread:/^google/i: {
  var %2 | sockread %2
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    .msg %kanalr 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) {
          .msg %kanalr 5Sorgulanan web: $hget(google,web)
          .msg %kanalr 5Sorgulanan kelime:  $hget(google,kelime)
          .msg %kanalr 5Google uzerinde: $siralama($hget(googlearama,$v2))
          .msg %kanalr -/- 6Google uzerinde ilk5 100 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link'iyle index almistir.
          .msg %kanalr -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        msg %kanalr - *** 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
      }
    }
    .msg %kanalr 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
}
on *:text:*:#: {
  if $1 == !rank {
    set %kanalr $chan
    googlearama $2-
  }
}


Eksen 12 Ekim 2013 02:09

Cevap: -/- Google sira bulucu -
 
Guzel paylaşım.

aspawa 01 Kasım 2013 17:35

Cevap: -/- Google sira bulucu -
 
Çalışmadı bende daha önceden çalışıyordu

[18:34] -> *-/-* 5 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 6adresi5 sohbet 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.

Toprak 01 Kasım 2013 17:41

Cevap: -/- Google sira bulucu -
 
Sorun yok çalışıyor;

Kod:

[17:40:43] <02Toprak> !ara trmircindir.net türkce mirc
[17:40:44] <02Toprak> 5Sorgulanan web:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kelime: türkce mirc
[17:40:44] <02Toprak> 5Google uzerinde: 4 Sayfa 9 Sirada
[17:40:44] <02Toprak> -/- 6Google uzerinde ilk5 500 6sirada5 türkce mirc 6kelimesiyle5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
index almistir.


kheldor 02 Kasım 2013 12:10

Cevap: -/- Google sira bulucu -
 
[12:09:56] <ArchangeL> !rank trmircindir.net türkce mirc
[12:09:56] <@BiTTuRK> -/- 5 trmircindir.net 6adresi5 türkce mirc 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.

/sockwrite: 'google4451' Bağlı Değil (Satır 10, ara.txt)

Nasıl çalışıyor ?

Toprak 02 Kasım 2013 14:21

Cevap: -/- Google sira bulucu -
 
Buyur ekren görüntüsüde veriyim çalıştıgına dahil

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bendeki kod belki sen oynarken birşeyler yapmış olabilirsin sendekini sil bunu ekle tekrar;

Kod:

on *:text:*:#:{
  if $1 == !incele {
    if !$2 || *.* !iswm $2 { msg # Site belirtiniz.. | return }
    set %:kanal #
    tarama $2
  }
  if $1 == !ara {
    if !$2 || *.* !iswm $2 { msg # Site belirtiniz.. | return }
    if !$3 { msg # Kelime belirtiniz.. | return }
    set %:kanal #
    googlearama $remove($2,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(google,%rand) $2-
  msg %:kanal -/- 5 $1 6adresi5 $2- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.
  hadd -m google web $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hadd -m google kelime $2-
}
on $*:sockopen:/^google/i: {
  sockwrite -n $sockname GET $+(/search?num=500&q=,$replace($sock($sockname).mark,$chr(32),+),&hl=tr&gbv=2) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on $*:sockread:/^google/i: {
  var %2 | sockread %2
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    msg %:kanal 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) {
          msg %:kanal 5Sorgulanan web: $hget(google,web)
          msg %:kanal 5Sorgulanan kelime:  $hget(google,kelime)
          msg %:kanal 5Google uzerinde: $siralama($hget(googlearama,$v2))
          msg %:kanal -/- 6Google uzerinde ilk5 500 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link'iyle index almistir.
          msg %:kanal -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        msg %:kanal - *** 6Google uzerinde ilk5 500 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
      }
    }
    msg %:kanal 6Belirtilen 5 $hget(google,web) 6adresi5 $hget(google,kelime) 6kelimesinde ilk5 500 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
}
alias tarama {
  hadd -m tarama ctime $ctime
  var %xx $rand(0,99999)
  sockopen $+(gindex,%xx) wmaraci.com 80
  sockmark $+(gindex,%xx) $1
  msg %:kanal -/- 5 $1 6adresi bilgilere bakiliyor bekleyiniz.
}
on *:sockopen:gindex*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/site-analizi/,$sock($sockname).mark) HTTP/1.1
  %komut Host: wmaraci.com
  %komut Connection: keep-alive
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3
  %komut $crlf
}
on *:sockread:gindex*: {
  var %x | sockread %x
  if (*Cookie*PHPSESSID* iswm %x) { hadd -m cookie PHPSESSID $token($token(%x,2,58),1,59) }
  if (*Cookie*bblastvisit* iswm %x) { hadd -m cookie bblastvisit $token($token(%x,2,58),1,59) }
  if (*Cookie*bblastactivity* iswm %x) { hadd -m cookie bblastactivity $token($token(%x,2,58),1,59) | $+(.timer,$sock($sockname).mark) 2 2 /2gindex $sock($sockname).mark $(|) inc -e %gosterim }
}
alias tamamlat {
  return $+($hget(cookie,PHPSESSID),;,$chr(32),bbsessionhash=2de4a66a697fd8b5fc45395d97e0cb32; __utma=224626588.1153023067.1366712999.1366940682.1167621522.4; __utmb=224626588.6.10.1167621522; __utmc=224626588; __utmz=224626588.1167621522.4.3.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=wmaraci;,$chr(32),$hget(cookie,bblastvisit),;,$chr(32),$hget(cookie,bblastactivity),;,$chr(32),__cfduid=de3d49b5ead8bfb08f014c7ecb94674031366067282)
}
alias 2gindex {
  var %x $rand(0,9999)
  sockopen $+(2gindex,%x) wmaraci.com 80
  sockmark $+(2gindex,%x) $1
}
on *:sockopen:2gindex*: {
  var %komut sockwrite -nt $sockname, %post $+(url=http%3A%2F%2F,$sock($sockname).mark)
  %komut POST /module.php?module=siteanaliz&do=query&thash=1167622291421 HTTP/1.1
  %komut Host: wmaraci.com
  %komut Connection: keep-alive
  %komut Content-Length: $len(%post)
  %komut Accept: */*
  %komut Origin: http://wmaraci.com
  %komut X-Requested-With: XMLHttpRequest
  %komut User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31
  %komut Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset=UTF-8
  %komut Referer: Sohbetcim.com Site Analiz Raporu | WM Aracı
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3
  %komut Cookie: $tamamlat
  %komut
  %komut %post
}
on *:sockread:2gindex*: {
  var %x3 | sockread %x3
  if (%gosterim == 2) {
    if (/pr.php?premiumI isin %x3) { hadd -m tarama pr $token(%x3,6,39) }
    if (/googleindex.php isin %x3) { hadd -m tarama gindex  $token(%x3,6,39) }
    if (/googlebacklink.php? isin %x3) { hadd -m tarama gbaclink $token(%x3,6,39) }
    if (/alexa.php? isin %x3) {
      hadd -m tarama 1alexa $token(%x3,6,39)
      hadd -m tarama 2alexa $token(%x3,8,39)
      hadd -m tarama 3alexa $token(%x3,10,39)
    }
    if (/yahooindex.php? isin %x3) { hadd -m tarama yahoindex $token(%x3,6,39) }
    if (/yandexindex.php? isin %x3) { hadd -m tarama yandexindex $token(%x3,6,39) }
    if (/dmoz.php? isin %x3) { hadd -m tarama dmoz $token(%x3,6,39) }
    if (/location.php isin %x3) {
      if (bilinmiyor == $token(%x3,6,39)) { hadd -m tarama location $v2 }
      else { hadd -m tarama location $token($token(%x3,6,39),2,62) }
    }
    if (/domainage.php? isin %x3) { hadd -m tarama yas $token(%x3,6,39) }
    if (/google_image.php? isin %x3) {
      hadd -m tarama 2gindex $token(%x3,6,39)
      unset %gosterim
      msg %:kanal 5Web:6 $sock($sockname).mark
      msg %:kanal 5Pagerank Degeri:6 $hget(tarama,pr)
      msg %:kanal 5Google Index:6 $hget(tarama,gindex)
      msg %:kanal 5Google Gorsel Index:6 $hget(tarama,2gindex)
      msg %:kanal 5Google Baclink:6 $hget(tarama,gbaclink)
      msg %:kanal 5Alexa Dunya Sirasi:6 $hget(tarama,1alexa)
      msg %:kanal 5Alexa Ulke Sirasi:6 $hget(tarama,2alexa)
      msg %:kanal 5Alexa Baclink:6 $hget(tarama,3alexa)
      msg %:kanal 5Yahoo Index:6 $hget(tarama,yahoindex)
      msg %:kanal 5Yandex Index:6 $hget(tarama,yandexindex)
      msg %:kanal 5Dmoz Kaydi:6 $hget(tarama,dmoz)
      msg %:kanal 5Domain Yasi:6 $hget(tarama,yas)
      msg %:kanal 5Site Lokasyon:6 $hget(tarama,location)
      msg %:kanal 5 -
      msg %:kanal 4*/* 5Site sorgulama bitmistir. Sorgulama suresi6 $calc($ctime - $hget(tarama,ctime)) 5 Sn. olarak belirtilmistir.
      hfree -sw tarama
      hfree -sw cookie
      sockclose $sockname
    }
  }
}


kheldor 05 Kasım 2013 11:37

Cevap: -/- Google sira bulucu -
 
evet sorunsuz çalıştı. Teşekkürler toprak :)

amasyaLi 04 Aralık 2013 19:18

Cevap: -/- Google sira bulucu -
 
/_google: Sıra cok uzun (Satır 38, google.txt)


statuste böyle onlarca satır çıktı.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:11.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk