IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü mirc radyo player (https://www.ircforumlari.net/mirc-scripting-sorunlari/1033718-mirc-radyo-player.html)

mirc radyo player

Kod:

;..................................................................................................................................................... ;                                                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.

Cevap: mirc radyo player

Bu kodu dene istersen bende çalışıyor.

Kod:

dialog enes {

  title "Radio Player "

  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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

}
 

alias oynat {

  window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

  write -c enes.html

  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {

    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="https://mixstreamflashplayer.net/v1.3.js"></script> $&

      </body> $&

      </html>

    .timer 1 2 rdy

  }

}
 

alias rdy {

  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {

    window -hne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

    noop $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)

    noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)

  }

}
 

alias rdydinle { dialog -m enes enes } 
 

menu * {

  Radio Player: rdydinle

}

Cevap: mirc radyo player

Malesef bu kod flashvar ve Javascript hatası veriyor çalışmıyor. Ayrıca ses kısıp açma olayıda yok. ilgin alakan için teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

Cevap: mirc radyo player

Bunu deneyebilirsin.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: mirc radyo player

Kod:

alias AFradyo { .timercloseaf -m 1 10 dialog $iif(!$dialog(AF-Rd),-m,-c) af-rd af-rd }

dialog AF-Rd {

  title "AfraN Script v.06 Radyo Player"

  size -1 -1 172 152

  option dbu

  list 4, 107 15 60 13, size

  list 10, 5 31 162 106, size

}

on *:dialog:AF-Rd:close:*:{

  dll $bamp_in Stop

  sockclose AF-Rd

}

on *:dialog:AF-Rd:init:*:{

  dll dlls\mdx.dll SetMircVersion $version

  dll dlls\mdx.dll MarkDialog $dname

  dll dlls\mdx.dll SetDialog $dname Style title

  dll dlls\mdx.dll SetDialog $dname bgcolor %Diacolors

  dll dlls\mdx.dll SetFont $dname 10,11 +b 14 700 Tahoma

  .disable #radsh1

  dll dlls\mdx.dll SetControlMDX 10 listview report single Sortascending grid rowselect oneclick Underlinehot > dlls\views.mdx

  dll dlls\mdx.dll SetColor 4 background %Listark

  dll dlls\mdx.dll SetColor 4 textbg %textark

  dll dlls\mdx.dll SetColor 4 text %buttextcolors

  did -i $dname 10 1 setbkg color %Listark

  did -i $dname 10 1 settxt color %buttextcolors

  did -i $dname 10 1 settxt bgcolor %Listark

  did -i $dname 10 1 headerdims 125:1 260:2 52:3

  did -i $dname 10 1 headertext + 1 Radyo isim $chr(9) $+ 1 Radyo url adresleri $chr(9) $+ +b port

  dll dlls\mdx.dll SetControlMDX 4 Trackbar horizontal noticks tooltips both > dlls\bars.mdx

  did -i $dname 4 1 params %AFrad-ses 0 100 * * * * 18

  did -i $dname 4 1 ticfreq 2

  mdc BitBtn create $dname 597 0 0 344 24 > Radyo su anda acik degil

  mdc BitBtn Color 597 %dibutcolors

  mdc BitBtn downcolor 597 %dibutdowncolors

  mdc BitBtn Font 597 %buttextcolors 14 +u > Tahoma

  mdc BitBtn Create $dname 590 10 30 28 26 > +

  mdc BitBtn Color 590 %dibutcolors

  mdc BitBtn downcolor 590 %dibutdowncolors

  mdc BitBtn Font 590 %buttextcolors 13 +b > Tahoma

  mdc BitBtn Create $dname 591 44 30 28 26 > -

  mdc BitBtn Color 591 %dibutcolors

  mdc BitBtn downcolor 591 %dibutdowncolors

  mdc BitBtn Font 591 %buttextcolors 13 +b > Tahoma

  mdc BitBtn Create $dname 592 78 30 28 26 > X

  mdc BitBtn Color 592 %dibutcolors

  mdc BitBtn downcolor 592 %dibutdowncolors

  mdc BitBtn Font 592 %buttextcolors 13 +b > Webdings

  mdc BitBtn Create $dname 593 112 30 28 26 > 4

  mdc BitBtn Color 593 %dibutcolors

  mdc BitBtn downcolor 593 %dibutdowncolors

  mdc BitBtn Font 593 %buttextcolors 13 +b > Webdings

  mdc BitBtn Create $dname 594 146 30 28 26 > <

  mdc BitBtn Color 594 %dibutcolors 

  mdc BitBtn downcolor 594 %dibutdowncolors

  mdc BitBtn Font 594 %buttextcolors 13 +b > Webdings

  mdc BitBtn Create $dname 595 180 30 28 26 > 5

  mdc BitBtn Color 595 %dibutcolors

  mdc BitBtn downcolor 595 %dibutdowncolors

  mdc BitBtn Font 595 %buttextcolors 13 +b > Webdings

  mdc BitBtn Create $dname 596 100 278 140 22 > Tamam kapat

  mdc BitBtn Color 596 %dibutcolors

  mdc BitBtn downcolor 596 %dibutdowncolors

  mdc BitBtn Font 596 %buttextcolors 11 +b > Tahoma

  Afradiolist

}

#rmut off

#rmut end

alias Afradiolist { 

  did -r AF-Rd 10

  var %a = 1 

  while (%a <= $lines($shortfn($scriptdirAFRadlist.txt))) { 

    did -a AF-Rd 10 + $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),3,32) $chr(9) $+ $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),1,32) $chr(9) $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),2,32)

    inc %a 

  } 

}

#radsh1 off

#radsh1 end

on *:dialog:AF-Rd:sclick:*:{

  if $did == 4 { 

    dll $bamp_in Misc setvolume $gettok($did(4,1),1,32) 

    set %AFrad-ses $gettok($did(4,1),1,32) 

    did -i AF-Rd 4 1 tipText Ses: % $+ %AFrad-ses

  }

}

alias afradyocal { 

  if ($dialog(AF-Rd)) && ($sock(AF-Rd)) {

    mdc BitBtn text 597 > $iif($sock(AF-Rd),Radyo Caliyor... $chr(91) $+ %radname $+ $chr(93),Bekleyin baglaniyor..) 

  } 

}

alias AfraNradio { 

  dll $bamp_in Stop

  if (!$exists($shortfn($mircdirAfraN\AfraNRad.mp3))) { write $shortfn($mircdirAfraN\AfraNRad.mp3) } 

  if ($exists($shortfn($mircdirAfraN\AfraNRad.mp3))) { .remove $shortfn($mircdirAfraN\AfraNRad.mp3) } 

  sockclose AF-Rd 

  if ($dialog(AF-Rd)) { mdc BitBtn text 597 > Baglanti kesildi. } 

  dll $bamp_in Stop

  sockopen AF-Rd $remove($$1,http://,/) $2 

  if ($dialog(AF-Rd)) mdc BitBtn text 597 > Bekleyin baglaniyor...

}

on *:sockclose:AF-Rd:{ 

  dll $bamp_in Stop 

  if ($dialog(AF-Rd)) { 

    mdc BitBtn text 597 > Baglantida hata olustu...

  } 

  if ($sokerr) { AFradio $sock($sockname).ip $sock($sockname).port } 

}

on *:sockopen:AF-Rd:{

  if ($sockerr) { if ($dialog(AF-Rd)) mdc BitBtn text 597 > Baglantida hata olustu, baglanti yok... | return }

  else {

    sockwrite -n $sockname GET / HTTP/1.0

    sockwrite -n $sockname Host: $sock($sockname).ip

    sockwrite -n $sockname User-Agent: AfraN Radio Player

    sockwrite -n $sockname Accept: */*

    sockwrite -n $sockname Connection: close

    sockwrite -n $sockname

    sockmark $sockname afran!

  }

}

on *:sockread:AF-Rd:{

  if ($sock(AF-Rd).mark == afran!) {

    sockread &radio 8192

    while ($sockbr) {

      set %AFrad-sockbr $sockbr

      bwrite $shortfn($mircdir/AfraN\) $+ AfraNRad.mp3 -1 -1 &radio

      sockread &radio 8192

    }

    var %m = $shortfn($mircdir/AfraN\) $+ AfraNRad.mp3

    if ($exists($shortfn($shortfn($scriptdir/AfraNRad.mp3)))) && ($int($bytes($file(%m).size,k)) >= 150) && ($gettok($dll($bamp_in,CurrentMusic,status),2,32) == stopped) {

      if ($dialog(AF-Rd)) { mdc BitBtn text 597 > $chr(91) $+ %radname $+ $chr(93) Radyo Caliyor.. } 

      bplay %m

    }

  }

}

alias bplay { dll $bamp_in Stop | dll $bamp_in Play $remove($1-,") }

alias bamp_in { return $shortfn($mircdirDlls/amp_in.dll) }

alias ampload-all-input return $findfile($shortfn($mircdirDlls/),in_*.dll,0,1,ampload-input-plugin $1-)

alias ampload-waveout dll $bamp_in PluginManager load output $shortfn($mircdirDlls/out_wave.dll)

alias ampload-input-plugin dll $bamp_in PluginManager load input $1-

alias ampload { ampload-all-input | ampload-waveout }

on *:signal:mdc: {

  if ($2 == AF-Rd) && ($3 == sclick) {

    if ($4 == 590) {

      var %H = $input(Portsuz radio link ekleyin. Orn; http://149.202.159.241,1,Radyo ekle)

      if (%H == $null) { return }

      var %i = $input(Linksiz Port ekleyin. Orn;7009,1,port ekle)

      if (%i == $null) { return }

      var %d = $input(Radyo ismi ekleyin. Orn;GevezeFm,1,Isim ekle)

      if (%d == $null) { return }

      write $shortfn($mircdirAfraN\AFRadlist.txt) %H %i %d

      Afradiolist

    }

    if ($4 == 591) { run $mircdirafran\AFradlist.txt }

    if ($4 == 592) { 

      $iif($group(#rmut) == on,.disable,.enable) #rmut

      if ($group(#rmut) == on) { 

        mdc BitBtn text 592 > x

        vol -vu1 

      } 

      else { 

        mdc BitBtn text 592 > X

        vol -vu2 

      }

    }

    if ($4 == 593) {

      if ($did($2,10,1).sel == 0) { echo -a Listeden bir radyo url adresi seciniz. | return }

      else { 

        AfraNradio $gettok($did($2,10).seltext,11,32) $gettok($gettok($did($2,10).seltext,16,32),1,43) 

        set -e %radname $gettok($did($2,10,1).seltext,6,32) 

      } 

    }

    if ($4 == 594) {

      sockclose AF-Rd

      mdc BitBtn text 597 > Radyo durduruldu.!

      dll $bamp_in Stop 

    }

    if ($4 == 595) {

      if $group(#radsh1) == off {

        var %a1f 304

        while (62 <= %a1f) { dialog -s af-rd -1 -1 344 %a1f | dec %a1f }

        mdc BitBtn text 595 > 6

        .enable #radsh1

      }

      else {

        var %a2f 62

        while (%a2f <= 304) { dialog -s af-rd -1 -1 344 %a2f | inc %a2f }

        mdc BitBtn text 595 > 5

        .disable #radsh1

      }

    }

    if ($4 == 596) { AFRadyo }

  }

}

on *:start: { ampload }

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:13 -->-> Daha önceki mesaj 11:09 --

Merhaba Arkadaşlar. Uzun süredir radyo player arıyorum fakat çalışır halde bir addon bulamadım.
Afran scriptin bir radyo player ini buldum fakat buda radyo link port adresini dialogta göstermiyor. bu sebeple çalışmıyor.
Bu addonu aktif hale getirebilirseniz, bu konuda yardımcı olursanız çok memnun olurum.