Radyo Acma Ve İstek kodu

diShy · 1 Mar 2013

Radyo Acma Ve İstek kodu 2011 sitemize eklendi

alias cal {
if ($1 != Dur) {
set %caldir $+(sjn.,$ticks)
.comopen %caldir wmplayer.ocx
var %z $com(%caldir,Url,4,bstr,$1-)
%z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
%z = $com($+(%caldir,wmp),Play,3)
}
if ($1 == Dur) && ($com(%caldir)) {
%z = $com($+(%caldir,wmp),Stop,3)
unset %z
}
}
dialog nmkradio {
title Radio
size -1 -1 132 43
option dbu
edit , 1, 32 12 98 10, autohs
text Adres :, 2, 3 13 25 8
button Çal, 3, 4 28 37 12
button Dur, 4, 46 28 37 12
button Gizle, 5, 89 28 37 12
text Radyo Linki, 6, 28 2 101 8
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
}
if ($devent == sclick) {
if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
if ($did == 4) { .cal dur }
if ($did == 5) { .dialog -x nmkradio nmkradio }
}
}
menu menubar,status,nicklist,channel,query {
-
Radio aç:Run radyo Linki
İstek Gönder:/msg #Radyo $$?= !istek

Radyo Acma Ve İstek kodu

diShy