Eggdrop - IP Checker TCL - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

CLubber · 30 Ocak 2012, 00:38

Kod: Kodu kopyalamak için üzerine çift tıklayın!

##################################################################
#          IP Sorgulama TCL v1.0 - Written By CLubber            #
#      Bu TCL ile istediğiniz bir ip'yi sorgulayabilirsiniz.     #
#            Kullanımı: <!ipsorgula ip> şeklindedir.             #
#       TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.   #
##################################################################
 
# Komutun Kullanılacağı Kanal
set cmd_chan "#OperLog"
 
############################################
# IP Sorgula TCL v1.0 - Written By CLubber #
############################################
bind pub - !ipsorgula msg_sorgula
proc msg_sorgula {nick uhost hand chan text} {
  global botnick cmd_chan
  if {$text == ""} {putquick "PRIVMSG $cmd_chan :Herhangi bir ip'yi sorgulamak için lütfen komutu doğru kullanınız. Kullanımı: <!ipsorgula ip> şeklindedir.";return}
  set connect [::http::geturl http://ipstats.ircfanclub.com/stats.php?ip=$text] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
    regexp -- {<b>Sorgulanan IP Bilgileri:</b> (.+?)</font>} $i - ip
    regexp -- {<b>Ulke:</b></font> (.+?)<br />} $i - country
    regexp -- {<b>Ulke Kodu:</b></font> (.+?)<br />} $i - code
    regexp -- {<b>Sehir:</b></font> (.+?)<br />} $i - city
    regexp -- {<b>Plaka:</b></font> (.+?)<br />} $i - plaka
    if {[info exists ip]} { 
      putquick "privmsg $cmd_chan Sorgulanan IP Bilgileri: $ip"
      unset ip
    }
    if {[info exists country]} { 
      putquick "privmsg $cmd_chan Ülke: $country"
      unset country
    }
    if {[info exists code]} { 
      putquick "privmsg $cmd_chan Ülke Kodu: $code"
      unset code
    }
    if {[info exists city]} { 
      putquick "privmsg $cmd_chan Şehir: $city"
      unset city
    }
    if {[info exists plaka]} { 
      putquick "privmsg $cmd_chan Plaka: $plaka"
      unset plaka
    }
  }
::http::cleanup $files
}
 
putlog "IP Sorgula TCL v1.0 - Written By CLubber"

NOT: Botunuzun çalışması için http.tcl gereklidir. Http TCL'yi buradan indirebilirsiniz.

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

http.tcl'yi eggdrop/scripts klasörüne attıktan sonra, botunuzun confunun en alt satırına

Kod: Kodu kopyalamak için üzerine çift tıklayın!

source scripts/http.tcl

kodunuda eklemeniz gerekmektedir.

qeweSe · 30 Ocak 2012, 07:58

http://ipstats.ircfanclub.com/stats.php?ip=$text

şeklinde degilde

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][lindex $text 1] olarak yazsaydın daha dogru olurdu gibime geliyor cüngü $text degişkeninde !ipsorgula 000.00.00.00 olarak algilandigindan burda komutu 0 ile caliştirsa 1 ilede sorgulanacak ip olarak görür diye düşünüyorum

Paint · 30 Ocak 2012, 10:10

Kaynak sitede bir kaç deneme yaptım fakat hiç birinde doğru şehiri alamadım hatta bazen İstanbulda olan bir ip için Kore'de dedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

v2 versiyonda daha stabil bir siteden veri çekmeni umut ediyorum.
Eline sağlık.

qeweSe · 30 Ocak 2012, 18:14

bu siteyi kullanabilirsin

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


http://api.ipinfodb.com/v2/ip_query.php?key=8049e44cdcd5ad3e628e2998627d1362538077f57d27d52277372fcb3f1932d8&ip=

oPtimiSt · 05 Şubat 2012, 10:45

bağlananlara botun oto olarak sorgulayıp kanala yazmasını nasıl sağlarız

CLubber · 05 Şubat 2012, 12:27

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind raw * notice ipconnection
proc ipconnection {from keyword arg} {
  global botnick 
  if {![string match -nocase "*Client connecting on port*" $arg]} {return}
  set nick [lindex $arg 9]
  set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
  set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
  set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][.]com/stats.php?ip=$host] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
    regexp -- {<b>Sorgulanan IP Bilgileri:</b> (.+?)</font>} $i - ip
    regexp -- {<b>Ulke:</b></font> (.+?)<br />} $i - country
    regexp -- {<b>Ulke Kodu:</b></font> (.+?)<br />} $i - code
    regexp -- {<b>Sehir:</b></font> (.+?)<br />} $i - city
    regexp -- {<b>Plaka:</b></font> (.+?)<br />} $i - plaka
    if {[info exists ip]} { 
      putquick "privmsg #Opers Sorgulanan IP Bilgileri: $ip"
      unset ip
    }
    if {[info exists country]} { 
      putquick "privmsg #Opers Ülke: $country"
      unset country
    }
    if {[info exists code]} { 
      putquick "privmsg #Opers Ülke Kodu: $code"
      unset code
    }
    if {[info exists city]} { 
      putquick "privmsg #Opers Şehir: $city"
      unset city
    }
    if {[info exists plaka]} { 
      putquick "privmsg #Opers Plaka: $plaka"
      unset plaka
    }
  }
::http::cleanup $files
}
 
putlog "IP Sorgula TCL v1.0 - Written By CLubber"

NOT: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bölümündeki [] işaretlerini kaldırmanız gerekiyor.

Abyss · 05 Şubat 2012, 13:03

Tebrikler, CLubber

oPtimiSt · 05 Şubat 2012, 13:15

[13:05:47] <04@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sohbet> Sorgulanan IP Bilgileri: (host)

yazısından baska bırsey cıkmadı

set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][.]com/stats.php?ip=$host]
şeklinde

putquick "privmsg #opers Sorgulanan IP Bilgileri: $host"
şeklinde değişince düzeldi teşekkür ederim

MyKraL · 17 Şubat 2012, 00:44

yazım icin tşkler ben ekledim fakat deneme yaptıgımda yanlış yeri söylüyor . hep yanlış söylüyor doğru söyleyen bir tcl warmı acaba

house · 15 Ağustos 2012, 08:57

Nedense şu hatayı alıyorum;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 Tcl error [msg_sorgula]: wrong # args: should be "set varName ?newValue?"

Çözebilmiş değilim.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Msn Delete Checker	SeRDaR406	mIRC Scripting Hazır Kodlar	3	14 Ocak 2009 15:36

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.