IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 5 Toplam 5 Sayfadan 1234 5
Konuya ait 40 Mesajı başka Sayfada göster

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)

Z-Lined 26 Ağustos 2014 00:34
Cevap: -/- Google sira bulucu -
 
ya bu sadece 100 'e kadar Arama yapıyor 500 yapamıyormuyuz onu?

Z-Lined 26 Ağustos 2014 21:54
Cevap: -/- Google sira bulucu -
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey ordamısınız lütfen bize yardım ediniz ustadım ;d

Set 02 Mayıs 2015 05:34
Cevap: -/- Google sira bulucu -
 
Oyle dialog'a dokuyum dedim , win8 kullaniyorum diye bazı programlar calismiyor bende @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'in dialog'una az el koydum artık k.bakmasın :) , maksat can sıkıntısıydı ugrasmadım sallama bir codlama ins işinize yarar, Hayırlı IF'ler.

Gorsel

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

Kod:
menu * {
  .Google Sıra Bulucu:if !$dialog(reg) { dialog -m reg reg }
}

dialog reg {
  title "Google Sıra Bulucu"
  size -1 -1 200 234
  option dbu
  edit "", 1, 8 18 174 10, multi autohs
  text "Site", 2, 9 9 25 8
  text "Kelime", 3, 9 31 25 8
  edit "", 4, 8 41 174 11, multi autohs
  text "", 6, 154 60 25 8
  text "Bilgiler ", 7, 7 67 66 8
  edit "", 5, 7 79 187 148, read multi vsbar
  button "Ara", 8, 70 55  40 15 8
}

on *:dialog:reg:sclick:*:{
  if $did(8) {
    did -r reg 5
    googlearama $did(reg,1).text $did(reg,4).text 
  }
}
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-
  did -i reg 5 1 -/-  $1 " adresi " $2- " kelimesinde 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:
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) {
    .did -i reg 5 2 Belirtiginiz $sock($sockname).mark  kelimesi  google 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) {
          .did -i reg 5 3 Sorgulanan web    : $hget(google,web)
          .did -i reg 5 4 Sorgulanan kelime : $hget(google,kelime)
          .did -i reg 5 5 Google uzerinde    : $strip($siralama($hget(googlearama,$v2)))
          .did -i reg 5 6 -/- Google uzerinde ilk 100 sirada $hget(google,kelime) kelimesiyle $hget(googlearama,%x).item  link'iyle index almistir.
          .did -i reg 5 7 -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        did -i reg 5 8  Google uzerinde ilk 100 sirada $hget(google,web)  web adresi $hget(google,kelime)  kelimesiyle $hget(google,bulunan)  kere index almistir.
        .hfree -sw googlearama
        .hfree -sw google
        sockclose $sockname
        return
      }
    }
    .did -i reg 5 2 Belirtilen  $hget(google,web)  adresi $hget(google,kelime) kelimesinde ilk  100  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
}

Smith 30 Mart 2016 20:27
Cevap: -/- Google sira bulucu -
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] usta bunu mesela #bot kanalında !ara domain.com kelime şekline çevirip gelen sonucları kanala yansımasını nasıl yapabiliriz ?

YouMyCure 30 Mart 2016 21:29
Cevap: -/- Google sira bulucu -
 
Alıntı:
Smith Nickli Üyeden Alıntı (Mesaj 1041761621)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] usta bunu mesela #bot kanalında !ara domain.com kelime şekline çevirip gelen sonucları kanala yansımasını nasıl yapabiliriz ?
bu şekilde güncelleyebilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bi çözemedin gitti şu işleri ya :)

Kod:
on *:text:*:#bot: {
if $regex($1,/[.!]ara) {
  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) $3-
  msg #bot -/- 5 $2 6adresi5 $3- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.
  hadd -m google web $+(http://,$2)
  hadd -m google kelime $3-
 }
}
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) {
    .msg #bot 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 #bot 5Sorgulanan web: $hget(google,web)
          .msg #bot 5Sorgulanan kelime:  $hget(google,kelime)
          .msg #bot 5Google uzerinde: $siralama($hget(googlearama,$v2))
          .msg #bot -/- 6Google uzerinde ilk5 100 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link'iyle index almistir.
          .msg #bot -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        .msg #bot - *** 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 #bot 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
}

Smith 30 Mart 2016 21:43
Cevap: -/- Google sira bulucu -
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çözmeyi deniyorum usta :)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Çalıştı ama sonuclarıda kanala vermesi gerek usta.

YouMyCure 30 Mart 2016 21:55
Cevap: -/- Google sira bulucu -
 
Alıntı:
Smith Nickli Üyeden Alıntı (Mesaj 1041761631)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çözmeyi deniyorum usta :)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Çalıştı ama sonuclarıda kanala vermesi gerek usta.
Kod:
on *:text:*:#bot: {
  if $chan == #bot {
    if $regex($1,/([.!]ara)/Si) {
      if !$2 || !$3 { .msg $chan Lütfen ".sira
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kelime" şeklinde arama yapınız. | return }
      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) $3-
      .msg $chan 4 $2 2sitesi4 $3- 2kelimesine göre inceleniyor, bekleyiniz.
      .hadd -m google web $+(http://,$2)
      .hadd -m google kelime $3-
    }
  }
}
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) {
    .msg #bot 2Belirtiginiz4 $sock($sockname).mark 2kelimesi 4google2 üzerinde link almamıştır.
    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 #bot 4Sorgulanan domain: $hget(google,web)
          .msg #bot 4Sorgulanan kelime:  $hget(google,kelime)
          .msg #bot 4Google : $siralama($hget(googlearama,$v2))
          .msg #bot 2Google uzerinde ilk4 100 2sirada4 $hget(google,kelime) 2kelimesiyle4 $hget(googlearama,%x).item 2link'iyle index almistir.
          .msg #bot -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        .msg #bot *** 2Google uzerinde ilk4 100 2sirada4 $hget(google,web) 2 web adresi4 $hget(google,kelime) 2 kelimesiyle6 $hget(google,bulunan) 2 kere index almistir.
        hfree -sw googlearama
        hfree -sw google
        sockclose $sockname
        return
      }
    }
    .msg #bot 2Belirtilen 4 $hget(google,web) 2adresi4 $hget(google,kelime) 2kelimesinde ilk4 100 2 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
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Smith 30 Mart 2016 22:08
Cevap: -/- Google sira bulucu -
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] saol kardeşim ellerin dert görmesin.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:40.
Sayfa 5 Toplam 5 Sayfadan 1234 5
Konuya ait 40 Mesajı başka Sayfada göster

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