IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Ağustos 2008, 20:43   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Radyo addonu




Selam arkadaslar bir radyo addonu var ama malesef mirc'de çalışmıyor bir bakabilirmisiniz sorun nerde olabilir..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 $+($?:"Ekleyeceğiniz Radyonun IP Adresi?:",:,$?:"Port?:") | 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 ---> Bağlantı Kurulamadı!.. 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-metadata:0 .sockwrite -n radyo connection: close .sockwrite -n radyo .did -ra Radyo 6 -->> Bağlantı Kuruldu!.. Radyo mIRC Yükleniyor... <<-- } on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo } on 1:sockclose:radyo:{ .did -ra radyo 6 ---> Bağlantı Kurulamadı!.. <--- } dialog Radyo { title "Radyo" size -1 -1 175 65 option dbu text "Radyo Server :", 2, 6 20 38 8 text "Port :", 3, 125 20 15 8 edit "", 4, 142 19 28 10 button "Radyoyu Başlat!..", 5, 95 47 75 12 edit "", 6, 5 8 165 10, read center button "Radyo Değiştir...", 7, 5 32 81 12 button "Radyo Sil..", 8, 133 32 37 12 combo 1, 46 19 76 40, size drop edit text "Ses :", 10, 6 49 16 8 button "---", 11, 23 47 30 12 button "-+-", 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 ---> Bağlantı Yok <--- } 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 ---> Bağlantı 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 [Çalan Parça: $gettok(%csj,7-,44) $+ ] }

Yardımcı olacak arkadaslara şimdiden tsk ederim

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 24 Ağustos 2008, 20:52   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo addonu




Addonundaki Hatayı bulamam Ama Bu linke Bak derim;oki

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Cevapla

Etiketler
addonu, mirc, mirc download, mirc indir, radyo


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Radyo Addonu Sorunlu Mecnun`X mIRC Scripting Sorunları 0 26 Aralık 2011 08:19
Radyo Addonu LAzım ? bøCek mIRC Scripting Sorunları 16 18 Eylül 2010 01:11
Mdx.dll ile Radyo addonu ExceptioN mIRC Scripting Hazır Kodlar 4 12 Ocak 2010 18:02
radyo addonu QkLa mIRC Scripting Sorunları 14 11 Eylül 2008 08:22
Radyo Addonu Yardım! DarkCode mIRC Scripting Sorunları 0 24 Mayıs 2008 20:55