Hoş Geldiniz MaviForum Güncel Paylaşım Eğlence Sohbet Forum Sitesi

MaviForum.Net Sitemizde Sizlerde Paylaşım yapmak için Lütfen kayıt olarak sınırsız şekilde paylaşım yapabilirsiniz. Hadi Ne duruyorsun Şimdi kayıt ol Sende    Kayıt ol

Mirc Radyo Remotesi

Emektar

kayıtlı Kullanıcı
Katılım
21 Şub 2024
Mesajlar
2
Tepkime puanı
2
Puanları
70
Konum
istanbul
Üzerinde editleme yaptığım remoteyi sizlerle paylaşıyorum.Mircinizin remote bölümünde yeni sayfa acıp ekleyebilir ve mirc üzerinden radyo dinleyebilirsiniz.
Kullanmak icin /Radyo yazıp Enterlayiniz!..

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
}
 
1,886Konular
1,997Mesajlar
39Kullanıcılar
DuRuSon üye
Üst Alt