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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Nerden .Tcl (https://www.ircforumlari.net/tcl-scriptler/944113-nerden-tcl.html)

Şunun: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
(Şöyle Böyle!) Tcl'si ...

Kanal'daki Nick Yada IP Sorgulayabilirsiniz.

Kod:

package require http
 

bind pub mnf|oa .ip getip
 

proc getip {nick uhost hand chan arg} {

    if {![llength [lindex [split $arg] 0]]} {

        putmsg $chan "Kullanımı: \00303$::lastbind <Nick Yada IP>\003 olmalı!"

        return 0

    } elseif {[onchan [lindex [split $arg] 0] $chan] &&\

            [regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]} {

        set albil [baglan [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]

        putmsg $chan $albil

    } elseif {[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split $arg] 0] -> ip]} {

        set albil [baglan $ip]

        putmsg $chan $albil

    } else {

        putmsg $chan "\"[lindex [split $arg] 0]\" Geçerli bir IP/Nick değil ${nick}!"

    }

    return 0

}
 

proc tercume str {

        string map -nocase [list Hostname Host\

        Continent Kıta City Şehir\

        Country Ülke Code Kodu Region Bölgesi\

        Organization Organizasyon Longitude Boylam Latitude Enlem\

        Mobile Mobil Proxy Proksi Turkey Türkiye false yanlış\

        &amp\; & Germany Almanya Europe Avrupa Asia Asya] $str

}
 

proc baglan ip {

    set tok [http::geturl http://igs.gevezeyiz.net/bilgi.php?ip=$ip]

    set dt [http::data $tok]

    ::http::cleanup $tok

    regsub -all -- {\n} $dt { } dt

    regsub -all -- {<span>(.*?):</span> <span>} $dt \002\\1\002:\00304 dt

    regsub -all -- {</span><br/>} $dt \003 dt

    lappend cikti [string trim $dt]

    return [join [tercume $cikti]]

}

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

Cevap: Nerden .Tcl

Eline emeğine sağlık.

Cevap: Nerden .Tcl

çalışmıyor neden

Cevap: Nerden .Tcl

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sorunsuz çalışıyor.

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

Cevap: Nerden .Tcl

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Script'te Kullanılan putmsg
Eggdrop'la Birlikte Gelen alltools.tcl
Script'inin Sağladığı Bir Komut!

source scripts/alltools.tcl
Satırıyla .Conf'ta Gösterirseniz,
putmsg Komutunu Tanıyabilir.
Bu Script'ten Daha Üst Satırda
Ekleyin .Conf'a.

"Yüklemek İstemiyorum" Deniyorsa;
Tüm putmsg $chan " .. 'ları:
putserv "PRIVMSG $chan : .. İle
Değiştirin Yukarıdaki Script Üzerinde...

Çalışmama Sebebi Bu Olabilir.
Bota Bağlanıp Gözlerseniz,
Neden İşlemediğine Dair
İpucu Görebilirsiniz.
Komut Kullanıldığında Hata
Atılıyor Mu Vs..

Bunun Dışında Tcl Sürümü Vs..
Gibi Bir Sorun Olamaz!
Script'te kullanılan Tcl Komutları,
8.4 Ve Üzeri Tüm Tcl Sürümlerine
Uyumlu...

Olsa Olsa alltools Yüklü Olmamasındandır...

Cevap: Nerden .Tcl

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] size nasıl ulaşabilirim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 10:15 -->-> Daha önceki mesaj 10:11 --

Alıntı:

Che Nickli Üyeden Alıntı (Mesaj 1042555145)

Eline emeğine sağlık.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sunucuna geldim bakar mısın :)