Kod: Kodu kopyalamak için üzerine çift tıklayın!
;..................................................................................................................................................... ; Bu Kod EmektaR Tarafindan Editlenmistir. ;..................................................................................................................................................... alias radyo { if (!$dialog(radyo)) { .dialog -md radyo radyo } } alias -l radyom { sockopen bilgi $1 $2 } alias -l radyobaslat { if ($exists(ilk.mp3) == $true) { .remove ilk.mp3 } | if ($exists(son.mp3) == $true) { .remove son.mp3 } | %dosya = ilk.mp3 | .timerradyoyubaslat 1 30 radyoçal | if ($sock(radyo)) { .sockclose radyo } | .sockopen radyo $did(radyo,1).seltext $did(4).text | .did -b radyo 1,4,5,8,14 | .did -e radyo 7 } alias -l mp3degistir { if ($exists($filename) == $true) { .remove $shortfn($filename) | if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 } } } alias -l radyoçal { if $exists(%dosya) { .radyom $did(radyo,1).seltext $did(radyo,4).text | .splay %dosya } | .did -ra Radyo 6 Radyo Aktif!.. | if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 } } alias -l radyoyukle { .splay stop | if ($sock(radyo)) { sockclose radyo } | %SC = 0 | .did -r radyo 1 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | .did -a radyo 1 $gettok($read(Radyo.txt,%SC),1,58) } | .did -c radyo 1 1 | portuyaz } alias -l radyoekle { .write Radyo.txt $+($?:"Eklenecek Radyonun IP Adresi? Ornek: 85.214.36.220",:,$?:"Port? Ornek: 80") | radyoyukle } alias -l radyosil { .write -dl $+ $did(radyo,1).sel Radyo.txt | radyoyukle } alias -l portuyaz { %SC = 0 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | if ($did(radyo,1).seltext == $gettok($read(Radyo.txt,%SC),1,58)) { .did -ra radyo 4 $gettok($read(Radyo.txt,%SC),2,58) } } } on 1:mp3end:{ if $exists(%dosya) { .splay %dosya | .radyom $did(radyo,1).seltext $did(radyo,4).text } | .mp3degistir } on 1:sockopen:radyo:{ if ($sockerr) { .did -ra radyo 6 Baglanti Kurulamadi.. Tekrar Deneyiniz! | halt } .sockwrite -n radyo get / http/1.0 .sockwrite -n radyo Host: $sock(radyo).ip .sockwrite -n radyo user-agent: mssc/1.1 .sockwrite -n radyo accept: */* .sockwrite -n radyo icy-metadata:0 .sockwrite -n radyo connection: close .sockwrite -n radyo .did -ra Radyo 6 Baglanti Kuruldu Lutfen Bekleyiniz.. } on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo } on 1:sockclose:radyo:{ .did -ra radyo 6 Baglanti Kurulamadi!.. } dialog Radyo { title " Radio" size -1 -1 185 72 option dbu text "Radyo Server :", 2, 5 18 38 18 text "Port :", 3, 125 20 15 8 edit "", 4, 142 19 28 10 button "Radyoyu Baslat", 5, 95 47 75 12 edit "", 6, 5 8 165 10, read center button "Radyo KAPAT", 7, 5 32 81 14, cancel button "Radyo Sil", 8, 133 32 37 12 text "Edit By EmektaR", 9, 3 63 61 8 combo 1, 46 19 76 40, size drop edit text "Ses :", 10, 6 49 16 8 button "Azalt", 11, 23 47 30 12 button "Yukselt", 12, 56 47 30 12 box "Ayarlar", 13, 2 0 171 62 button "Radyo Ekle", 14, 95 32 37 12 } on *:dialog:radyo:init:0:{ .radyoyukle | .did -b radyo 7 | .did -ra radyo 6 Baglanti Yok mdxinit mdx SetDialog $dname bgcolor $rgb(255,140,0) mdx SetColor $dname 1,2,3,4,6,9,10,13 textbg $rgb(255,140,0) mdx SetColor $dname 1,2,3,4,6,9,10,13 background $rgb(255,140,0) mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14 13 800 tahoma mdx SetColor 2,3,10 text $rgb(0,0,0) mdx SetBorderStyle 5,7,8,11,12,14 staticedge } on *:dialog:radyo:*:*:{ if $devent == sclick { if $did == 1 { .portuyaz } if $did == 5 { .radyobaslat } if $did == 11 { .vol -p $calc($vol(song) - 4000) } if $did == 12 { .vol -p $calc($vol(song) + 4000) } if $did == 14 { .radyoekle } if $did == 8 { .radyosil } if $did == 7 { .did -e radyo 1,4,5,7,8,14 | .sockclose radyo | .splay stop | .did -ra radyo 6 Baglanti Yok } } if $devent == close { .timerradyoyubaslat off | .sockclose radyo | .splay stop } } on *:sockopen:bilgi:{ if ($sockerr > 0) return .sockwrite -n bilgi GET /7.html HTTP/1.0 .sockwrite -n bilgi User-Agent: Mozilla .sockwrite -n bilgi } on *:sockread:bilgi:{ if ($sockerr > 0) return | var %oku | sockread -f %oku | while ($sockbr) sockread %oku } on *:sockclose:bilgi:{ var %csj | sockread -f %csj | %csj = $remove(%csj,<body>,<html>,</body>,</html>,<head>,</head>,<meta http-equiv="Pragma" content="no-cache">) | .did -ra radyo 6 Su an Calan Parca: $gettok(%csj,7-,44) $+ } On *:LOAD:{ .echo $timestamp 4*** Radyo mIRC* yuklendi.. .echo $timestamp 12*** Kullanmak icin /Radyo yazıp Enterlayiniz!.. .echo $timestamp 10*** Http:sizin siteniz }
Merhaba arkadaşlar. burada paylaşılmış olan bu addon çalışmıyor.
mirc script üzerinden irc sunucu radyosunun yayınını dinlemek için bir addon önerebilirmisiniz? yada bu kod daki eksikliği giderip güncelleyebilirmiyiz?
radyo link port girip ses kıs aç özelliği olan bir addona ihtiyacım var yardımcı olursanız memnun olurum.