08 Nisan 2012, 20:58
#2 Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Radyo Tcl
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
# DJ'lere verilecek ident'i yazıyoruz. set dj ( ident ) "DJ" # DJ'lere verilecek hostu yazıyoruz. set dj ( host ) "DJ.mIRCTurk.com" # DJ'lere verilecek fullname'yi yazıyoruz. set dj ( name ) "irc.mIRCTurk.com DJ" bind pub - ! dj dj : login proc dj : login { nick uhand host chan text } { global botnick dj if {[ string match - nocase "#DJ" $chan ]} { putquick "chghost $nick $dj (host)" putquick "chgident $nick $dj (ident)" putquick "chgname $nick $dj (name)" putquick "operserv raw svsmode $nick +Wq :1" putquick "operserv raw svsnick $nick Dj_ $nick :1" putquick "privmsg $chan $nick Başarı ile dj login oldunuz." } } putlog "DJ Login TCL v1.0 - Written By CLubber"
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
# Radyo ip'sini yazınız. set radyoip "Ip" # Radyo portunu yazınız. set rport "Port" # Radyo şifresini yazınız. set rsifre "Pass" # Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz. set rkanal "#Radyo" 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]" } } 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 Voice TCL By SaW"