Forum

TRKlavye.NET Resmi Forum Sitesi'nde her türlü konuları soru-cevap seklinde ve açılan kategorilere uygun bir şekilde sorunlarınza yönelik çözüm arayabilirsiniz

Webmaster Sitesi

Webmaster (Web uzmanı), internet üzerine teknik bilgisiyle öne çıkan, internet siteleri ve web uygulamaları geliştiren, internet ekosisteminde kullanılacak üründür.

Genel Programlar

Ücretsiz ve güvenle indirebileceğiniz tüm web programlarının tek adresi.En güncel sürümleri ile beraber artık sizlerle!



Mirc Radyo Remotesi

Hazır Kodlar - Bölüm Kuralları
  • Paylaşacağınız kodun kopyası yada benzeri bölüm içerisinde bulunmamalıdır.
  • Paylaşacağınız kodun kullanım şekli açık ve net bir şekilde dile getirmelisiniz.
  • Kodun amacı yada içeriğinde asla kullanıcılara zarar verecek bir yapı olmamalıdır.
  • mIRC hazır kod parçacıklarını .zip, rar ve .txt uzantılarından başka herhangi bir uzantı ile eklemeye çalışmak yasaktır.

  • Konuyu Başlatan: Delikan
  • Konu Başlığı: Mirc Radyo Remotesi
  • Kategori: mIRC Scripting / mIRC Hazır Kodlar;
  • Dosya Uzantıları: .zip, .rar, .txt
  • Kodlama Dili: Visual Basic, C++, Delphi, Com, Objects, Socket


Ü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!.. 

;.....................................................................................................................................................
;                                                Bu Kod EmektaR (rizegenclik)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-metadаta: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
}

Kullanıcı: | Misafir: Toplam () Kişi

D İ K K A T !

  • Konudan farklı bir şey için soru sorulacak ise ayrı bir konu açılmalı.
  • Yoruma eklenecek kod 15 satırdan fazla ise onay alınarak kod yüklenmeli.
  • Eklenen kodlar kesinlikle code tagı ile eklenmeli. Farklı bir tag ile eklenen kodlar silinecektir.
  • Resimleri link olarak verilmeli, image tagı ile değil. Link açık olarak veya url tagı ile yazılabilir.
  • Konu ile ilgili olmayan yorumlar veya buna sebebiyet verecek yorumlar haber verilmeden silinecektir.
  • Yazılanlar anlaşılabilir ve kelimeler doğru harflerle yazılmalıdır.
  • Tamamen büyük harf ile yazılan, yorumlar silinecek; Benzer kelimelerin bulunduğu yorumların sahibi uyarı alacaktır.
  • Konuyu ekledikten sonra, bilen yok mu? bakan yok mu? eden yok mu? tarzında yazılan yorum sahipleri yasaklanacaktır.

Yorum Ekleyerek Bize Destek Olabilirsiniz