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

Joop · 27 Kasım 2012, 15:10

Arkadaşlar, sorunu Çözebilen, Veya Elinde Çalışanı olan varmı?

PRaNGaLaR · 28 Kasım 2012, 08:41

Birde Bunu Deneyin

Alıntı:

## Buraya radyonun kurulu olduğu dizinde "sc_serv.conf" un yerini belirtiyoruz.
set dosya_adresi "../radyo/sc_serv.conf"

## Buraya komutun geçerli olacağı kanalı yazıyoruz.
set kickkanal "#dj"

## Başkada birşeye dokunmuyoruz. Gerisini ben hallederim

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {
global dosya_adresi kickkanal

if {$chan != $kickkanal} {return 0}

set dosya [open $dosya_adresi r]
set liste [split [subst -nocommands [read $dosya]] "\n"]
regexp -- {DestIP=(.+?) Yport, port to connect to} $liste - ip
regexp -- {PortBase=(.+?) Optional Parameters} $liste - port
regexp -- {Password=(.+?) PortBase. This is} $liste - pass
regexp -- {AdminPassword=(.+?) AutoDumpUsers controls whether} $liste - adminpass
close $dosya

set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $ip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
close $sock
}

proc duzelt { a } {
regsub -all {\}} $a "" a
regsub -all {\{} $a "" a
regsub -all {\;} $a "" a
regsub -all {\*} $a "" a
regsub -all " " $a "" a
return $a
}

######kickradyo.tcl#########
## Coded By BuCaLI #
############################

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo Yayını Kick Ister bota entegre edin ister addon olarak kullanın.	Sessiz	mIRC Scripting Hazır Kodlar	15	17 Şubat 2021 23:25
Radyo Kick Botu	xBaRaN	TCL Scriptler	22	09 Mart 2015 13:16
Radyo Kick Sorunu	xwerswoodx	mIRC Scripting Sorunları	5	06 Aralık 2011 15:31
radyo we yayın kick ŞifreSini degiştirme ?	FOX	Eggdrop, NeoStats, BNC	7	05 Nisan 2009 22:53
KişiseL Ban Koruması (deop - Kick - ban+kick Yapıyor )	LauReLL	mIRC Scripting Hazır Kodlar	0	29 Haziran 2007 06:22

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.