IRCForumu.ORG   sohbetkacak
reklamalanı


 
 
Seçenekler Stil
Alt 14 Kasım 2021, 12:26   #1
NCL
Mahrez - ait Kullanıcı Resmi (Avatar)

Standart Nerden Tcl ( Güncel )

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]]
}
________________

"Fark etmek acıydı ama gerekliydi."
 
Alt 14 Kasım 2021, 12:39   #2
1903 ∞
Prencies - ait Kullanıcı Resmi (Avatar)

Standart

Japonca mi bu?

 
Alt 15 Ocak 2022, 09:48   #3
Sen Geleceksin Diye, Ben Hep Yarım Kaldım.
No_FeaR - ait Kullanıcı Resmi (Avatar)

Standart

Uzun aradan sonra Herkese Tekrardan Merhabalar.. ^_^

Gönlü Güzel insanların yapmış olduğu TCL'dir. mIRC Bot Remotesinden Esinlenip yapmıştır.
Kısaca Özetlemek gerekirse.

Yapımıcısı ; Heartbroken

Kanal'daki Nick Yada IP Sorgulayabilirsiniz.



Kod verecek olursak ise,

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]]
}
Eggdrop botunuzda nerden.tcl şeklinde ekleme yaparsınız.
Çalışacaktır.

________________

Sabrettiğimi Sanarken, Vazgeçtiğimi Öğrendim..
 


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Kapalı



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