|
Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Emeğine sağlık, hazır kodlar kullanmış olsan da uğraşıp emek vermişsin. Tebrik ederim. Hatalarını da en kısa zamanda gidermeni temenni ederim.
Kod: Kodu kopyalamak için üzerine çift tıklayın! /sockopen: 'radyo2' Soket Kullanılıyor (Satır 23, radyo)
radyo2 isimli socket açıkken tekrar aynı socket'i açmaya çalışıyor. Haliyle socket kullanılıyor hatası veriyor. Scriptin içeriğini incelemedim ama o kısıma if $sock(Socketadı) { gibi bir koşul koyabilirsin, Socket açıksa { Şunları yap } Değilse { Şunları yap } gibi..
Bunları göz önüne alarak ve forumda biraz araştırma yaparak eminim ki diğer sorunlarını da çözebilirsin. Bundan sonrası için iyi çalışmalar diliyorum.
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias radyoal {
if $sock(radyo) { sockclose radyo }
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
if $dialog(e-gibi) {
did -ra e-gibi 58 $1
did -ra e-gibi 59 $4
}
}
Sevgili Feragat tam olarak nasıl ve nereye ekliyeceğimi buradan gösterebilirmisin