ShoutCast (Radyo) BilgiLeri Gösterici - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SCouNDReL · 23 Ocak 2006, 02:16

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias radyo { 
  if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.turkcoders.com:2525) | halt }  
  if (: isin $1) { 
    tokenize 58 $1  
    sockopen radyo $1 $2 
    set %site $1 $2 
  } 
  else { sockopen radyo $1- | set %site $1- } 
} 
on *:SockOpen:radyo:{ 
  if ($sockerr > 0) return    
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo:{ 
  if ($sockerr > 0) return    
  sockread %radyo 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }  
  if (icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo:radyo2 
alias radyo2 { sockopen radyo2 %site | unset %site } 
on *:SockOpen:radyo2:{ 
  if ($sockerr > 0) return    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo2:{ 
  if ($sockerr > 0) return    
  var %z 
  sockread %z 
} 
on *:SockClose:radyo2:{  
  sockread -f %radyo 
  var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
  var %i $numtok(%z,44) 
  while %i { 
    set %radyo2 %radyo2 ¿ $gettok(%z,%i,44) 
    dec %i 
  } 
  tokenize 168 %radyo2 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  tokenize 191 %radyo2 
  ; $1 = Dj in Yazdığı İsim 
  ; $2 = Genre 
  ; $3 = URL 
  ; $4 = ÇaLan Parça 
  ; $5 = Şarkı Kalitesi 
  ; $6 = Dinleyici Sayısı 
  ; $7 = Max. Dinleyici Sayısı 
  ; $8 & $9 = DinLeyici Rekoru 
  ; $10 = Ne oLduunu biLmiOm :) 
  echo -a İsim : $1 
  echo -a Genre : $2 
  echo -a URL : $3 
  echo -a ÇaLan Parça : $4 
  echo -a Şarkı KaLiteSi : $5 
  echo -a DinLeyici Sayısı : $6 
  echo -a Max. Dinleyici Sayısı : $7 
  echo -a DinLeyici Rekoru : $8 & $9 
}

kuLLanIm : /radyo ip(server) port
Not : http:// YazmanIza Gerek Yok

Addonun Benzeri Forumda Vardı ama Daha AyrıntıLı Yapayım Dedim Umarım İşinize Yarar..

yanki · 23 Ocak 2006, 02:19

Kodlardan anlamam Ama Konu açarken arama yapınız.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

23 Ocak 2006, 02:33

Zaten calismiyorki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

* /sockopen: invalid parameters (line 5, radyo)

Silence · 23 Ocak 2006, 11:38

Çok Güzel Çalışıyor Eline Sağlık..

SCouNDReL · 23 Ocak 2006, 13:10

1) kuLLanImı Okuyun
2)

SCouNDReL Nickli Üyeden Alıntı

Addonun Benzeri Forumda Vardı ama Daha AyrıntıLı Yapayım Dedim Umarım İşinize Yarar..

SCouNDReL · 16 Haziran 2006, 18:41

Addon GünceLLenmİştir..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias radyo { 
sockclose radyo  
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | halt }  
if (: isin $1) { 
  echo -a Lütfen Bekleyin..    
  tokenize 58 $1  
  sockopen radyo $1 $2 
  set %site $1 $2 
} 
else { sockopen radyo $1- | set %site $1- | echo -a Lütfen Bekleyin.. } 
} 
on *:SockOpen:radyo:{ 
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
sockwrite -tn $sockname GET / HTTP/1.1 
sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo:{    
sockread %radyo 
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) } 
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }  
if (icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo:radyo2 
alias radyo2 { sockopen radyo2 %site | unset %site } 
on *:SockOpen:radyo2:{ 
if ($sockerr > 0) return    
sockwrite -tn $sockname GET /7.html HTTP/1.0 
sockwrite -tn $sockname User-Agent: Mozilla 
sockwrite -tn $sockname 
} 
on *:Sockread:radyo2:{ 
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
var %z 
sockread %z 
} 
on *:SockClose:radyo2:{  
sockread -f %radyo 
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
var %i $numtok(%z,44) 
while %i { 
  set %radyo2 %radyo2 ¿ $gettok(%z,%i,44) 
  dec %i 
} 
gostert 
unset %radyo2 
unset %radyo 
} 
alias -l gostert { 
tokenize 191 %radyo2 
; $1 = Dj in Yazdığı İsim 
; $2 = Genre 
; $3 = URL 
; $4 = ÇaLan Parça 
; $5 = Şarkı Kalitesi 
; $6 = Dinleyici Sayısı 
; $7 = Max. Dinleyici Sayısı 
; $8 & $9 = DinLeyici Rekoru 
; $10 = Ne oLduunu biLmiOm :) 
echo -a İsim : $1 
echo -a Genre : $2 
echo -a URL : $3 
echo -a ÇaLan Parça : $4 
echo -a Şarkı KaLiteSi : $5 
echo -a DinLeyici Sayısı : $6 
echo -a Max. Dinleyici Sayısı : $7 
echo -a DinLeyici Rekoru : $8 & $9 
}

kuLLanIm : /radyo ip(server):port
Not : http:// YazmanIza Gerek Yok

Güncelleme ;

Açılırken Oluşan Hatalar Düzeltildi
Hata MesajLarı ekLendi..

arananadam1 · 05 Temmuz 2006, 22:46

* /sockread: socket unavailable (line 177, defter.sys)

bende bu hatayi verdi sizde nasil acaba?

SCouNDReL · 06 Temmuz 2006, 01:07

Sorunun Nerden KaynakLandıını AnLayamadım Ama Şöyle bir Çözüm Üretmeye Çalıştım;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;Radyo Bilgileri G&#246;sterici By SCouNDReL
;Kullanim /radyo Server(ip) Port

alias radyo { 
  sockclose radyo  
  if (: !isin $1) && (!$2) { echo -a Port Yazın (&#214;rn : radyo.deneme.com:2525) | return }
  if ($1 == $null) { echo -a Radyo Adı Yazın (&#214;rn : radyo.deneme.com:2525) | return }  
  if (: isin $1) { 
    echo -a L&#252;tfen Bekleyin..    
    tokenize 58 $remove($1,http://,/) 
    sockopen radyo $1 $2 
    set %site $1 $2 
  } 
  else { sockopen radyo $remove($1-,http://,/) | set %site $remove($1-,http://,/) | echo -a L&#252;tfen Bekleyin.. } 
} 
on *:SockOpen:radyo:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo:{    
  if ($sock(radyo)) { sockread %radyo } | else { echo -a Data Okumada Hata! | return } 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 &#191; $remove($gettok(%radyo,2,58),|) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 &#191; $remove($gettok(%radyo,2,58),|) }  
  if (icy-url isin %radyo) {  set %radyo2 %radyo2 &#191; $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo:radyo2 
alias radyo2 { sockopen radyo2 %site | unset %site } 
on *:SockOpen:radyo2:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! }    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo2:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
  var %z 
  if ($sock(radyo2)) { sockread %z } | else { echo -a Data Okumada Hata! | return }
} 
on *:SockClose:radyo2:{  
  if ($sock(radyo2)) { sockread -f %radyo } | else { echo -a Data Okumada Hata! | return }  
  var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
  var %i $numtok(%z,44) 
  while %i { 
    set %radyo2 %radyo2 &#191; $remove($gettok(%z,%i,44),|) 
    dec %i 
  } 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  tokenize 191 %radyo2 
  ; $1 = Dj in Yazdığı İsim 
  ; $2 = Genre 
  ; $3 = URL 
  ; $4 = &#199;aLan Par&#231;a 
  ; $5 = Şarkı Kalitesi 
  ; $6 = Dinleyici Sayısı 
  ; $7 = Max. Dinleyici Sayısı 
  ; $8 & $9 = DinLeyici Rekoru 
  ; $10 = Ne oLduunu biLmiOm :) 
  echo -a İsim : $1 
  echo -a Genre : $2 
  echo -a URL : $3 
  echo -a &#199;aLan Par&#231;a : $4 
  echo -a Şarkı KaLiteSi : $5 
  echo -a DinLeyici Sayısı : $6 
  echo -a Max. Dinleyici Sayısı : $7 
  echo -a DinLeyici Rekoru : $8 & $9 
}

Eğer haLa Aynı Hatayı aLırSan Hatayı Tam Satır Numarasıyla verirsen ii oLur...

arananadam1 · 07 Temmuz 2006, 01:42

5-6 kez calisti ve bu hatayi verdi

* /sockread: socket unavailable (line 181, defter.sys)

radiCOOL · 07 Temmuz 2006, 02:04

* /sockread: socket unavailable (line 41, script28.cpl)

Bendeki hata bu ..

if ($sock(radyo2)) { sockread -f %radyo } | else { echo -a Data Okumada Hata! | return }

Satır da bu ...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo bot TCL (Shoutcast v2)	ByOzCaN	TCL Scriptler	4	10 Ağustos 2020 13:24
Shoutcast radyo recoder/player	IrCbaStarD	mIRC Scripting Hazır Kodlar	10	18 Ağustos 2017 02:23
ShoutCast Radyo yayını hakkında	h4run	Servisler	4	08 Haziran 2008 23:48
Radyo Bilgi Gösterici..	JaMMaH	mIRC Scripting Hazır Kodlar	11	07 Aralık 2007 00:23
ShoutCast Radyo Yardım(bot)	By_ReBeL	mIRC Scripting Sorunları	0	24 Eylül 2007 20:51

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.