Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Radyo Acma Ve İstek kodu

diShy

~ یơυℓℓεss ..
Emektar Yönetici
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,083
  • MFC Puanı
    339
  • MFC Seviyesi

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 ”


 
Üst Alt