Proxy.tcl - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

qeweSe · 08 Şubat 2012, 15:48

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


proc noticeler {from keyword arg} {
       global botnick bot server girTas
       if {[string match "*Client connecting on port*" $arg] } {
               set nick [lindex $arg 9]
               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]
               if {$bot(prxydurum) == "on"} {
                       utimer 4 [list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]
                       utimer 4 [list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]
                       if {[info exists ::proxyliste]} {
                               foreach prxy $::proxyliste {
                                       if {[string match -nocase $prxy $host]} {
                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."
                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"
                                               return 0
                                       }
                               }
                       }
                       utimer 6 [list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]
                       utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]
                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"
               return 0
               }
       }
}

bu şekilde düzenleyin.. calişacaktir.

CLubber · 08 Şubat 2012, 17:00

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

 global botnick bot server girTas

Global olarak belirttiğiniz girTas isimli numeric'e ait herhangi bir kod yok. Bu sebeplede botunuz çalışmayabilir.

qeweSe · 09 Şubat 2012, 14:00

girTas cagiriyor girtas a bagli bi kod olamadigindan calişir ama botu kullanan arkadaslar

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


proc noticeler {from keyword arg} {

       global botnick bot server

       if {[string match "*Client connecting on port*" $arg] } {

               set nick [lindex $arg 9]

               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]

               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]

               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]

               if {$bot(prxydurum) == "on"} {

                       utimer 4[list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]

                       utimer 4[list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]

                       if {[info exists ::proxyliste]} {

                               foreach prxy $::proxyliste {

                                       if {[string match -nocase $prxy $host]} {

                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."

                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"

                                               return 0

                                       }

                               }

                       }

                       utimer 6[list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]

                       utimer 7[list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]

                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"

                      return 0

               }

       }

}

şeklinde düzenleme yaparsa daha güzel calişir.

house · 10 Şubat 2012, 06:27

global server botnick bot server

demişsin.
Ama onları set ile belirtmemişsin.

proc noticeler demişsin ama bind de yok ortada.

Ayrıca yazım hataları var bu şekilde çalışmaz boşa uğraşmayın.
girTas olunca da çalışır olmassa daha iyi çalışır demen tamamen vahamet.
Editliyosun da bari iyi bişiler yap
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
SaW 'ın proxy tcl sinin editlemesi sadece mesajlar değişik.

Sonuç fiyasko.

qeweSe · 10 Şubat 2012, 13:42

sorun cıkartma sorun cöz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ben bu kadarini yaptim sen daha iyisini yap

house · 10 Şubat 2012, 16:04

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)) Üzerinde çalışıyorum bunu stabil hale getirebilirsem paylaşıcam. Ama çok sorunlu :P
Şaka bi yana tek bi yerde hata var ama tcl bu bi yerde çıksa en dipten patlıyor. Bakcaz.

qeweSe · 10 Şubat 2012, 17:37

başarilarinin devamini dilerim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Proxy Giriş Yapanları #proxy Kanalına Almak !	diyorumki	mIRC Scripting Sorunları	30	04 Nisan 2013 15:14
Proxy IP Leri proxy.data dosyasından okutarak servere girişte zline atma	ExrimCi	mIRC Scripting Sorunları	4	26 Şubat 2010 15:11
Proxy Koruması ( Koruma Icın Proxy Lıstesı Lazım)	Heavenly	mIRC Scripting Sorunları	2	05 Temmuz 2009 20:09

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.