🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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österici By SCouNDReL
;Kullanim /radyo Server(ip) Port
alias radyo {
sockclose radyo
if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com: 2525 ) | return }
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }
if (: isin $1) {
echo -a Lü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ü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 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($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) { 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 ¿ $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 = Ç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
}
Eğer haLa Aynı Hatayı aLırSan Hatayı Tam Satır Numarasıyla verirsen ii oLur...
06 Temmuz 2006, 01:07
Benzer Konular 
Ağaç şeklinde
