![]() | ![]() |
![]() | #1 |
Gelme, burası çok derin. ![]() ![]() Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara Mesajlar: 584 WEB Sitesi: www.Sohbetsin.Com IRC Sunucusu: irc.FixSohbet.Net İlgi Alanı: Domain Kan Grubu: A RH (+) Alınan Beğeni: 86 | ![]() Kod: ############################################# # radyo-yama.tcl By MeCHuL # Yayını dinleyene voice verir. # yayını dinlediği için teşekkür eder.. ############################################# # Radyo ip'sini yazınız.. set radyoip "95.168.187.16" # Radyo portunu yazınız.. set rport "6161" # Radyo şifresini yazınız.. set rsifre "!!sanadiryar++" # Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz. # Örnek #Radyo ile #radyo farklıdır ;) set rkanal "#Radyo" ############################################################### ############################################################### ### PROCS....................................................... ############################################################### ############################################################### bind time - "* * * * *" yenidinleyici proc yenidinleyici {min hour day month year} { global radyoip rsifre rport if {[catch {set sock [socket $radyoip $rport] } sockerror]} { putlog "error: $sockerror" return 0 } else { puts $sock "GET /admin.cgi?pass=$rsifre&mode=viewxml&page=0 HTTP/1.0" puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" puts $sock "Host: $radyoip" puts $sock "Connection: close" puts $sock "" flush $sock while {[eof $sock] != 1} { set bl [gets $sock] if { [string first "standalone" $bl] != -1 } { set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]] } } close $sock } set voicevr [temiz $voicevr] set deger 0 set ::rawcount 0 set ipler "" bind raw - 352 voysver foreach i $voicevr { if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} { incr ::rawcount lappend ipler "[lindex $voicevr $deger] " } incr deger } set ydeger 0 foreach j $ipler { putquick "who +i [lindex $ipler $ydeger]" incr ydeger } } proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] } proc voysver {from keyword arg} { global rkanal if {![isvoice [lindex $arg 5] $rkanal]} { putquick "mode $rkanal +v [lindex $arg 5]" putquick "privmsg $rkanal \002[lindex $arg 5]: \002 Radyo yayınımızı dinlediğiniz için teşekkürler.." } } bind raw - 315 countdusur proc countdusur {from keyword arg} { set ::rawcount [expr $::rawcount - 1] if {$::rawcount == "0"} { unbind raw - 352 voysver } } proc temiz {veri} { regsub -all \< $veri " " veri regsub -all \/ $veri " " veri regsub -all \> $veri " " veri return $veri } putlog "radyo-yama.tcl By \002MeCHuL"
__________________ ![]() |
![]() | ![]() |
![]() |
Etiketler |
dinleyen, radyo, tcl, voice |
Seçenekler | Arama |
Stil | |
| |
![]() | ||||
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 |
Forum | Yasal Uyarı |
Powered by vBulletin® Version 3.8.9 Beta 1 Copyright ©2000 - 2022, Jelsoft Enterprises Ltd. Search Engine Friendly URLs by vBSEO 3.6.0 Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi Kurucular: immortaL IRCForumu.Net Her Hakkı Saklıdır. irc forumu | ircforumları | irc forumları | |
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. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir. 5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir. |