IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   ShoutCast (Radyo) BilgiLeri Gösterici (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/11143-shoutcast-radyo-bilgileri-gosterici.html)

SCouNDReL 23 Ocak 2006 02:16
ShoutCast (Radyo) BilgiLeri Gösterici
 
Kod:
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...]

viruS 23 Ocak 2006 02:33
Zaten calismiyorki :)
* /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)
Alıntı:
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
Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
Addon GünceLLenmİştir..

Kod:
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
Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
* /sockread: socket unavailable (line 177, defter.sys)

bende bu hatayi verdi sizde nasil acaba?

SCouNDReL 06 Temmuz 2006 01:07
Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
Sorunun Nerden KaynakLandıını AnLayamadım Ama Ş&#246;yle bir &#199;&#246;z&#252;m &#220;retmeye &#199;alıştım;
Kod:
;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
Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
5-6 kez calisti ve bu hatayi verdi

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

radiCOOL 07 Temmuz 2006 02:04
Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
* /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 ...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:52.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net