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/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Eggdrop - IP Checker TCL (https://www.ircforumlari.net/tcl-scriptler/447780-eggdrop-ip-checker-tcl.html)

CLubber 30 Ocak 2012 00:38
Eggdrop - IP Checker TCL
 
Kod:
##################################################################
#          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:
source scripts/http.tcl
kodunuda eklemeniz gerekmektedir.

qeweSe 30 Ocak 2012 07:58
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
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
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
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 :)

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

qeweSe 30 Ocak 2012 18:14
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
bu siteyi kullanabilirsin

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

oPtimiSt 05 Şubat 2012 10:45
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
bağlananlara botun oto olarak sorgulayıp kanala yazmasını nasıl sağlarız

CLubber 05 Şubat 2012 12:27
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
Kod:
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
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
Tebrikler, CLubber

oPtimiSt 05 Şubat 2012 13:15
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
[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
Cevap: IP Sorgula TCL v1.0 - Written By CLubber
 
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
Cevap: * / IP Sorgula TCL * /
 
Nedense şu hatayı alıyorum;

Kod:
Tcl error [msg_sorgula]: wrong # args: should be "set varName ?newValue?"
Çözebilmiş değilim.


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

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