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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Google web sorgulama vs Yardım ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/604195-google-web-sorgulama-vs-yardim.html)

c00 10 Ağustos 2014 13:16
Google web sorgulama vs Yardım ?
 
Kod:
##############################
###### Nerden Bilgi ####
#############################

alias nerden {
  var %:x $rand(0,9999999)
  sockopen $+(nerde,%:x) whatismyipaddress.com 80
  sockmark $+(nerde,%:x) $1
}
on *:sockopen:nerde*:{
  var %komut sockwrite -nt $sockname
  %komut GET /ip/ $+ $sock($sockname).mark HTTP/1.1
  %komut Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
  %komut  Accept-Language: tr-TR
  %komut User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E)
  %komut Accept-Encoding: tzip, meflate
  %komut Host: whatismyipaddress.com
  %komut Connection: Keep-Alive
  %komut Cookie: pt=fc02a6b87064b504549ff9d7d29c6a51; __utma=53830638.1680144126.1346489478.1346489478.1346489478.1; __utmb=53830638.3.10.1346489478; __utmc=53830638; __utmz=53830638.1346489478.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __gads=ID=e2590fac1d198238:T=1346489576:S=ALNI_MZq57ArjZvhA2yUFmVE9XgtlGyJmg
  %komut $crlf
}
on *:sockread:nerde*:{
  var %city
  sockread %city
  if (*Country:* iswm %city) {
    .msgx -/- $sock($sockname).mark - Ortalama Bilgi -/-
    .msgx -
    .msgx Ulke: $token($htmlfree(%city),2,58)
    hadd -m $sockname ulke 1
  }
  if (*State/Region:* iswm %city) {
    .msgx Sehir: $token($htmlfree(%city),2,58)
    hadd -m $sockname sehir $token($htmlfree(%city),2,58)
  }
  if (*City:* iswm %city) {
    .msgx Ilce: $iif($hget($sockname,sehir) = $token($htmlfree(%city),2,58),Yok (Merkezde Bulunuyor),$v1)
    .msgx -
    hadd -m $sockname city 1
  }
  if (*Latitude:* iswm %city) {
    if !$hget($sockname,ulke) { .msgx Ulke: 5Bulunamadi }
    if !$hget($sockname,sehir) { .msgx Sehir: 5Bulunamadi }
    if !$hget($sockname,city) { .msgx Ilce: 5Bulunamadi | .msgx - }
    if $hget($sockname,ulke) { hdel -m $sockname ulke }
    if $hget($sockname,sehir) { hdel -m $sockname sehir }
    if $hget($sockname,city) { hdel -m $sockname city }
  }
}

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}


##############################
###### Google sira bulucu ####
#############################

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-
  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:
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) {
    .msgx 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) {
          .msgx 5Sorgulanan web: $hget(google,web)
          .msgx 5Sorgulanan kelime:  $hget(google,kelime)
          .msgx 5Google uzerinde: $siralama($hget(googlearama,$v2))
          .msgx -/- 6Google uzerinde ilk5 100 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link'iyle index almistir.
          .msgx -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        .msgx - *** 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
      }
    }
    .msgx 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
}

##############################
###### Web Sitesi Bilgileri ####
#############################

alias gindex {
  hadd -m tarama ctime $ctime
  var %xx $rand(0,99999)
  sockopen $+(gindex,%xx) wmaraci.com 80
  sockmark $+(gindex,%xx) $1
}
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 isin %x) {
    inc -e %xx
    if (%xx == 1) { hadd -m cookie PHPSESSID $token($token(%x,2,58),1,59) }
    if (%xx == 2) { hadd -m cookie bblastvisit $token($token(%x,2,58),1,59) }
    if (%xx == 3) { hadd -m cookie bblastactivity $token($token(%x,2,58),1,59) | unset %xx | $+(.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: http://wmaraci.com/site-analizi/sohbetcim.com
  %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
      .msgx 5Web:6 $sock($sockname).mark
      .msgx 5Pagerank Degeri:6 $hget(tarama,pr)
      .msgx 5Google Index:6 $hget(tarama,gindex)
      .msgx 5Google Gorsel Index:6 $hget(tarama,2gindex)
      .msgx 5Google Baclink:6 $hget(tarama,gbaclink)
      .msgx 5Alexa Dunya Sirasi:6 $hget(tarama,1alexa)
      .msgx 5Alexa Ulke Sirasi:6 $hget(tarama,2alexa)
      .msgx 5Alexa Baclink:6 $hget(tarama,3alexa)
      .msgx 5Yahoo Index:6 $hget(tarama,yahoindex)
      .msgx 5Yandex Index:6 $hget(tarama,yandexindex)
      .msgx 5Dmoz Kaydi:6 $hget(tarama,dmoz)
      .msgx 5Domain Yasi:6 $hget(tarama,yas)
      .msgx 5Site Lokasyon:6 $hget(tarama,location)
      .msgx 5 -
      .msgx 4*/* 5Site sorgulama bitmistir. Sorgulama suresi6 $calc($ctime - $hget(tarama,ctime)) 5 Sn. olarak belirtilmistir.
      hfree -sw tarama
      hfree -sw cookie
      sockclose $sockname
    }
  }
}
Kod alıntıdır.

Bu Parça kodları nı görsellik kazansın diye bir bota ekledim ama çalışmıyor.Hiç bir işlev gormuyor yardımcı olacak ark var mı.


Kullanımı aşagıdaki şekilde ki gibiymiş.
.googlearama siteadi.com kelime
.nerden nick
.tarayici siteadi.com

Toprak 10 Ağustos 2014 17:49
Cevap: Google web sorgulama vs Yardım ?
 
"nerden" kısmı çalışıyor yanlız sorgulanan site limit koymuş belli bir süre sonra block koyuyor. Diğer kodlara gelince "google sıra bulucu" eskiden çalışıyordu google sistemini degiştirmiş wmaraci'da aynı :)

TUNAHAN 10 Ağustos 2014 18:03
Cevap: Google web sorgulama vs Yardım ?
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041472115)
"nerden" kısmı çalışıyor yanlız sorgulanan site limit koymuş belli bir süre sonra block koyuyor. Diğer kodlara gelince "google sıra bulucu" eskiden çalışıyordu google sistemini degiştirmiş wmaraci'da aynı :)
Benim bildiğim tanıdığım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu zamana Kadar herhangi bir beklenti çıkar için olmadan bugüne Kadar bir çok paylaşım ve yardımların oldu. Bu "google sıra bulucu" işine de bir çözüm bulursun?

Toprak 10 Ağustos 2014 19:05
Cevap: Google web sorgulama vs Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] normalde hazırlamışdım atcaktım dedim kalsın maglum forumda kendisini coder sanan arkadaşlar var bırakıyımda onlar paylaşsın dedim :)

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

Code Sinan'a aiittir.


Sinan'ın inceleme kodunu güncelledim;

Kod:
[19:04:31] <12Toprak> -/- 5 yuzuk.net 6adresi bilgilere bakiliyor bekleyiniz.
[19:04:36] <12Toprak> 5Web:6 yuzuk.net
[19:04:36] <12Toprak> 5Pagerank Degeri:6 3
[19:04:36] <12Toprak> 5Google Index:6 13.300
[19:04:36] <12Toprak> 5Google Gorsel Index:6 1240
[19:04:36] <12Toprak> 5Google Baclink:6 8
[19:04:36] <12Toprak> 5Alexa Dunya Sirasi:6 3.240.687
[19:04:36] <12Toprak> 5Alexa Ulke Sirasi:6 73.072
[19:04:36] <12Toprak> 5Alexa Baclink:6 107
[19:04:36] <12Toprak> 5Yahoo Index:6 0
[19:04:36] <12Toprak> 5Yandex Index:6 16.567
[19:04:36] <12Toprak> 5Dmoz Kaydi:6 yok
[19:04:36] <12Toprak> 5Domain Yasi:6 12 yıl 2 ay
[19:04:36] <12Toprak> 5Site Lokasyon:6 Türkiye
[19:04:36] <12Toprak> 5 -
[19:04:36] <12Toprak> 4*/* 5Site sorgulama bitmistir. Sorgulama suresi6 5 5 Sn. olarak belirtilmistir.
Kendisine soruyum izni olursa paylaşırım :)

Aytac08 10 Ağustos 2014 19:12
Cevap: Google web sorgulama vs Yardım ?
 
Kod çalışıyor zaten neyini güncelledin : )

Kod:
[19:10:05] <11Aytac> .tarayici sohbetimi.com
[19:10:05] <07Ajan> -/- 5 sohbetimi.com 6adresi bilgilere bakiliyor bekleyiniz.
[19:10:09] <07Ajan> 5Web:6 sohbetimi.com
[19:10:09] <07Ajan> 5Pagerank Degeri:6 3
[19:10:09] <07Ajan> 5Google Index:6 958
[19:10:09] <07Ajan> 5Google Gorsel Index:6 74
[19:10:09] <07Ajan> 5Google Baclink:6 4
[19:10:09] <07Ajan> 5Alexa Dunya Sirasi:6 17.011.365
[19:10:09] <07Ajan> 5Alexa Ulke Sirasi:6 0
[19:10:09] <07Ajan> 5Alexa Baclink:6 58
[19:10:09] <07Ajan> 5Yahoo Index:6 0
[19:10:09] <07Ajan> 5Yandex Index:6 3.626
[19:10:09] <07Ajan> 5Dmoz Kaydi:6 yok
[19:10:09] <07Ajan> 5Domain Yasi:6 1 yıl 7 ay
[19:10:09] <07Ajan> 5Site Lokasyon:6 Türkiye
[19:10:09] <07Ajan> 5 -
[19:10:09] <07Ajan> 4*/* 5Site sorgulama bitmistir. Sorgulama suresi6 4 5 Sn. olarak belirtilmistir.

Set 11 Ağustos 2014 16:22
Cevap: Google web sorgulama vs Yardım ?
 
Beni bulabilecende İbram :) , paylaşmak istiyorsan paylaş kafana gore , zaten ajan botundaki kodlar bunlar yani sikinti yok benlik googleyide düzeltebilirsen güzel olur millet yararlansin :)

Toprak 11 Ağustos 2014 16:43
Cevap: Google web sorgulama vs Yardım ?
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041472633)
Beni bulabilecende İbram :) , paylaşmak istiyorsan paylaş kafana gore , zaten ajan botundaki kodlar bunlar yani sikinti yok benlik googleyide düzeltebilirsen güzel olur millet yararlansin :)
Kanka ajandak calisiyormus evet:d google sira bulucu calisiyor:)


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

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