Radio Player / mIRC'ten Radyo Dinleyin. - ForumTEK.Net

SuLh · 23 Ağustos 2015, 12:54

Bu dialog ile mIRC üzerinden radyo dinleyebilirsiniz.

Not: Gerekli olan dll dosyalarını mIRC ana klasörüne atınız.

Kod:

dialog enes {
  title "Radio Player @ESohbet.Net"
  size -1 -1 153 118
  option dbu
  button "Oynat", 1, 2 13 23 25
  button "Sil", 2, 128 28 22 24
  button "Ekle", 3, 1 78 24 16
  list 4, 26 13 99 53, size
  edit "", 5, 26 78 99 16, autohs autovs
  button "Kapat", 6, 35 103 78 12,ok
  button "Durdur", 7, 2 42 23 23
}

alias dlls if $1 = mdx { return mdx.dll } | if $1 = bars { return bars.mdx }

on *:dialog:enes:init:*: {
  var %bs 1
  while (%bs <= $lines(radyolar.txt)) {
    did -a enes 4 $read(radyolar.txt,%bs)
    inc %bs
  }
  dll $dlls(mdx) MarkDialog $dname
  dll $dlls(mdx) SetDialog $dname bgcolor $rgb(5,0,0)
  dll $dlls(mdx) SetFont 1,2,3,4,5 +a default 13 1200 Tahoma
  dll $dlls(mdx) SetColor 1,2 text $rgb(2,255,255) 
  dll $dlls(mdx) SetColor 1,2 textbg $rgb(0,0,0) 
  dll $dlls(mdx) SetColor 1,2 background $rgb(0,0,0)
  dll $dlls(mdx) SetColor 10 background $rgb(5,255,255)
}

on *:dialog:enes:sclick:*: {
  if ($did == 3) {
    if $did(5) == $null { echo -a Lutfen bir link giriniz. }
    else { write radyolar.txt $did(5) | echo -a $did(5) linki eklendi. | did -a enes 4 $did(5) }
  }
  if ($did == 2) { write -d radyolar.txt $did(4).sel | echo -a $did(4).seltext silindi. | did -d enes 4 $did(4).sel }
  if ($did == 1) { set %link $did(4).seltext | oynat | Echo -a 1,7 $did(4).seltext Linki Calmaya Basliyor. $server Sunucusundasiniz. }
  if ($did == 7) { window -c @radyo }
}

alias oynat {
  window -c @radyo
  write -c enes.html
  if !$window(@radyo) {
    write enes.html <html> $&
      <body> <script> var flashvars = {};flashvars.serverHost = " $+ $remove(%link,/,http:,listen.pls) $+ /;";flashvars.getStats = "0";flashvars.autoStart = "1";flashvars.textColour = "";flashvars.buttonColour = "";var params = {};params.bgcolor= "";params.wmode="transparent"; </script> $&
      <script type="text/javascript" src="http://mixstreamflashplayer.net/v1.3.js"></script> $&
      </body> $&
      </html>
    .timer 1 2 rdy
  }
}

alias rdy {
  if !$window(@radyo) {
    window -hne @radyo
    noop $dll(nHTMLn_2.95.dll,attach,$window(@radyo).hwnd)
    noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)
  }
}

alias rdydinle { dialog -m enes enes } 

menu * {
  Radio Player: rdydinle
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
mIRC Radyo Sistemi Dialog'lu	Fearless	Hazır Kodlar	0	29 Mayıs 2016 12:55
M-Op Mp3 Player (mIRC Toolbar'a Uyumlu)	mIRC	Hazır Kodlar	1	05 Nisan 2016 18:58
http://www.mIRCLive.net - mIRC, mIRC indir	Toprak	Web Site Tanıtımları	5	06 Mart 2015 16:01
mIRC Kodlarının mIRC'e Eklenmesi	Toprak	mIRC Scripting Dersleri	0	26 Ocak 2015 01:35
mIRC Kodlarının mIRC'e Eklenmesi	Toprak	Hazır Kodlar	0	26 Ocak 2015 01:02

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)