IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 17:48   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Radyo kick.tcl


Reklam

Merhaba arkadaşlar. Bir çok sitede olmasına rağmen çoğu işlev görmüyor. Denenmiştir çalışıyor.

Yayın kickleme komutu !kickradyo


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
##Buraya Radyonun İp Adresini Yazın.. set ip "RADYO-IP ADRESİ" ##Buraya Radyonun Portunu Yazın.. set port "RADYO-PORT" ##Buraya Radyonun Şifresini Yazın.. set pass "RADYO-SIFRESI" ##Buraya Radyonun Admin Şifresini Yazın.. set adminpass "AdminPASS" ## Buraya Komutun Geçerli Olacağı Kanalı Yazın.. set kickkanal "#DJ" ## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim 😉 ####################################################################################################### bind pub - !kickradyo kickradyo proc kickradyo {nick host handle chan arg} { global ip port pass adminpass kickkanal if {$chan != $kickkanal} {return 0} 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 putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür..Lütfen 5 Saniye içinde Yayını Alınız.." } ####################################################################################################### 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 }

Merhaba arkadaşlar. Bir çok sitede olmasına rağmen çoğu işlev görmüyor. Denenmiştir çalışıyor.

Yayın kickleme komutu !kickradyo


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
##Buraya Radyonun İp Adresini Yazın.. set ip "RADYO-IP ADRESİ" ##Buraya Radyonun Portunu Yazın.. set port "RADYO-PORT" ##Buraya Radyonun Şifresini Yazın.. set pass "RADYO-SIFRESI" ##Buraya Radyonun Admin Şifresini Yazın.. set adminpass "AdminPASS" ## Buraya Komutun Geçerli Olacağı Kanalı Yazın.. set kickkanal "#DJ" ## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim 😉 ####################################################################################################### bind pub - !kickradyo kickradyo proc kickradyo {nick host handle chan arg} { global ip port pass adminpass kickkanal if {$chan != $kickkanal} {return 0} 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 putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür..Lütfen 5 Saniye içinde Yayını Alınız.." } ####################################################################################################### 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 }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
kicktcl, radyo
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

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 Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Radyo NABIZ - Twitcht.TV'de Canlı Yayında! radyonabiz Sunuculardan Son Haberler 0 18 Aralık 2021 00:11
Radyo NABIZ Sohbet Arayüzü Değişti radyonabiz Sunuculardan Son Haberler 1 14 Aralık 2021 23:21
Radyo NABIZ'dan Yenilikler Sizlerle radyonabiz Sunuculardan Son Haberler 0 06 Aralık 2021 01:51