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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Mart 2011, 12:15   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
1 Port'a Özel Version Kontrol'ü



Arkadaşlar Şöyle Birşey Düşündüm Acaba Olabilirmi?


Ben 7000 Portundan Gelen Kişilere Version Çekmesini İstiyorum.



Version Cevabın'da esChat v3.9b © 2009 Dışında Bir Cevap Gelirse Direk Zline Atmasını İstiyorum Böyle Bir Unreal Kod Yazabilirmiyiz. Bu'nun Eggdrop TCL Tarzı Var Ama Tarama Yapıyor Temiz Diyor Sonra Atıyor Version Taramasından Geçemediniz Diye.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 19 Mart 2011, 12:25   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



Alıntı:
esChat v3.9b © 2009

Eggdrop 'da © 'yi gosteremezsiniz

Namesis'sin Yapmıs Oldugu Bir TCL war. Kızmaz İnsallah :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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

# Log kanalini belirtiniz.
set vrsy(knal) "#OperHelp"

# Portu belirtiniz.
set vrsy(port) "9656"

# Zline suresini belirtiniz.
# 1h = 1 saat.
# 30m = 30 dakika.
# 30s = 30 saniye.
set vrsy(sure) "1m"

# Zline ile uzaklastirma sebebini belirtiniz.
set vrsy(rasn) "Lutfen 1 dakika sonra 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden giris yapiniz."

#################
# ELLEME CISS ! #
#################

bind raw * notice connect:user
proc connect:user {from keyword arg} { 
global botnick vrsy appver
	if {[string match -nocase "*Client connecting*" $arg]} {
	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 appver([string tolower $nick]) 1
		if {$port == $vrsy(port)} {
			bind ctcr - VERSION applet:version
			putquick "PRIVMSG $nick :\1VERSION\1"
			#putquick "privmsg $vrsy(knal) :*** - \002Giris\002 - \002$nick ($ident@$host)\002 su anda \002WEB\002 portundan sunucuya giris yapti client program kontrolu yapiliyor."
			utimer 2[list applet:no:version $nick]
		}
	}
}

proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy appver
	if {[info exists appver([string tolower $nick])]} {
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	}
	if {![string match -nocase "*esChat*v3*9b*2009*" $arg]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		putquick "privmsg $vrsy(knal) :*** - \002Version\002 - \002$nick\002 WEB portundan mIRC ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	} else {
		putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	}
}

proc applet:no:version {nick} {
global botnick appver
	if {[info exists appver([string tolower $nick])]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		putquick "privmsg $vrsy(knal) :*** - \002Version\002 - \002$nick\002 VERSION cevabi vermedigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
	}
}

################################
putlog "TCL basariyla yuklendi."
putlog "control.tcl by Namesis."
################################

Bu tcl'yi dene istersen

 
Alıntı ile Cevapla

Alt 19 Mart 2011, 12:44   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



TCL'yi Denedim Port Ayarı Yaptım Çalışmıyor Kontrol Etmiyor.

 
Alıntı ile Cevapla

Alt 19 Mart 2011, 12:53   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



Bide Bunu Dene
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###############
# Control TCL #
###############

# Log kanalini belirtiniz.
set vrsy(knal) "#Opers"

# Portu belirtiniz.
set vrsy(port) "8000"

# Zline suresini belirtiniz.
# 1h = 1 saat.
# 30m = 30 dakika.
# 30s = 30 saniye.
set vrsy(sure) "30m"

# Zline ile uzaklastirma sebebini belirtiniz.
set vrsy(rasn) "Lutfen 30 dakika sonra 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden tekrar giris yapiniz."

# Cevap vermeyen client programlarini ne kadar sure beklesin ? (Saniye cinsinden.)
set vrsy(tmrs) "10"

# Sunucuya girenler hakkinda log kanal'ina bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcon) "0"

# Log kanalina versiyon korumasindan gecemeyenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lmsg) "1"

# Web portundan giriste kullaniciya versiyon kontrolunden basarili bir sekilde gectigine dair notice atilmasi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(unot) "0"

# Log kanalina versiyon korumasindan basariyla gecenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcok) "0"

# Log kanalina cevap vermeyen client baglantilarini uzaklastirdigina dair bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lnvr) "0"

#################
# ELLEME CISS ! #
#################

bind raw * notice connect:user
proc connect:user {from keyword arg} { 
global botnick vrsy appver appfin
	if {[string match -nocase "*Client connecting*" $arg]} {
	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 appver([string tolower $nick]) 1
	set appfin([string tolower $nick]) 1
		if {$port == $vrsy(port)} {
			if {$vrsy(lcon) == "0"} {
				bind ctcr - VERSION applet:version
				bind ctcr - FINGER applet:finger
				putquick "PRIVMSG $nick :\1FINGER\1"
				putquick "PRIVMSG $nick :\1VERSION\1"
				utimer $vrsy(tmrs)[list applet:no:version $nick]
				utimer $vrsy(tmrs)[list applet:no:finger $nick]
			}
			if {$vrsy(lcon) == "1"} {
				bind ctcr - VERSION applet:version
				bind ctcr - FINGER applet:finger
				putquick "PRIVMSG $nick :\1FINGER\1"
				putquick "PRIVMSG $nick :\1VERSION\1"
				putquick "PRIVMSG $vrsy(knal) :*** \002CONNECT\002 - \002$nick ($ident@$host)\002 su anda WEB portundan sunucuya giris yapti, client program kontrolu yapiliyor."
				utimer $vrsy(tmrs)[list applet:no:version $nick]
				utimer $vrsy(tmrs)[list applet:no:finger $nick]
			}
		}
		if {[string match -nocase "*changed his/her nickname*" $arg]} {
		set nick [lindex $arg 4]
		set newnick [lindex $arg 11]
			if {![info exists appver([string tolower $nick])]} {
				set appver([string tolower $newnick]) 1
				utimer $vrsy(tmrs)[list applet:no:version $newnick]
			}
		}
	}
}

proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy appver
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
}

proc applet:no:version {nick} {
global botnick appver
	if {[info exists appver([string tolower $nick])]} {
		if {$vrsy(lnvr) == "0"} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			unset appver([string tolower $nick])
		}
		if {$vrsy(lnvr) == "1"} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION cevabi vermedigi icin sunucudan uzaklastirildi."
			unset appver([string tolower $nick])
		}
	}
}

proc applet:finger {nick uhost handle {dest ""} keyword arg} {
global botnick appfin
	if {[string match -nocase "*" $arg]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appfin([string tolower $nick])
		unbind ctcr - FINGER applet:finger
	} else {
		unset appfin([string tolower $nick])
		unbind ctcr - FINGER applet:finger
	}
}

################################
putlog "TCL basariyla yuklendi."
putlog "control.tcl by Namesis."
################################
 
Alıntı ile Cevapla

Alt 19 Mart 2011, 13:09   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



*** CONNECT - EneS (eSevgi@78.176.252.82) su anda WEB portundan sunucuya giris yapti, client program kontrolu yapiliyor.

böyle Kalıyor Kontrol Etmiyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

 
Alıntı ile Cevapla

Alt 19 Mart 2011, 13:16   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



eggdrop botu admin list'e ekle flagları kontrol et bişiler yap
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olucaktir

----------

Bide Botun Özeline ßişi Yazilmiyorsa Version Cevabinida Alamiyordur :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bi Hatirlatma

 
Alıntı ile Cevapla

Alt 19 Mart 2011, 13:25   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



Unreal ile except versiyon suan mümkün değil. Bunu bot tarzi yazilimlarla yapmaktan başka çareniz yok.

 
Alıntı ile Cevapla

Alt 19 Mart 2011, 13:32   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: 1 Port'a Özel Version Kontrol'ü



Hım Peki Teşekkürler..

 
Alıntı ile Cevapla

Cevapla

Etiketler
1, kontrolü, porta, version, Özel

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kullanışlı Webmaster(Google) Programları(Çoklu Pagerank Kontrol,Backlink Kontrol...) aLKoLiK Google 5 27 Ocak 2010 20:56
Özel Kontrol Sistemi - OzelSys SiyahKaR mIRC Scripting Hazır Kodlar 27 25 Nisan 2009 03:56
Girişte version port atlaması yardım 1Casper Unreal IRCd 3 27 Temmuz 2008 04:02




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org