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 02 Temmuz 2016, 14:36   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Radyo Dinleyen Voice TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################################# # 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"

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################################# # 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"

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
dinleyen, radyo, tcl, voice
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