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

Etiketlenen Kullanıcılar

4Beğeni(ler)
  • 3 Post By SeRDaR406
  • 1 Post By SeRDaR406

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Nisan 2015, 21:50   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Mp3 Player Koduna Radyo Ekleme




Sa. Arkadaşlar Elimde Şöyle bir Kod Var. Bu Kod Sayesinde Toolbarıma Mp3 player ekledim. Ben bunu Mp3 player olarak değilde radyo olarak kullanmak istiyorum. Şöyleki Şarkı falan eklemicek Kullanıcı. Resimdede Görüldüğü gibi Sadece Açıp kapatacak. ses yükseltip Kısacak.

Eklenecek Radyo Linki: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
Not:Görünüm Aynı kalabilir.

Görüntü

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


Kod
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias mp3_tek { var %a = $shortfn($msfile(D:,Mp3 Klasörünü Seçiniz..,Ekle)) if (%a) { var %i = 1 while (%i <= $msfile(0)) { write $text(liste.txt) $msfile(%i) inc %i } did -r T_bar 60 mp3_liste } } alias mp3_klasör { window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] loadbuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt) var %x = $findfile($shortfn($sdir(D:)),*.mp3,0,aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1-) savebuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt) window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] did -r T_bar 60 mp3_liste } alias mp3_stop { if ($dialog(T_bar)) { .splay stop .timermpos_mp3bar off .timertrak off did -ra T_bar 63 00:00 / 00:00 did -ra T_bar 61 Çalmıyor.. did -i T_bar 62 1 params 0 } } alias mp3_pause { if ($oku(Mp3) && $insong) { if ($oku(Mp3Pause) = pause) { splay resume Yaz Mp3Pause resume } elseif ($oku(Mp3Pause) = resume) { splay pause Yaz Mp3Pause pause } } } alias mp3_geri { var %x = $read($text(liste.txt), w, * $+ $oku(Mp3) $+ *) if (%x) { var %line = $readn if (%line == 1) { var %line = $lines($text(liste.txt)) Yaz Mp3 $read($text(liste.txt), %line) mp3_çaldır } else { Yaz Mp3 $read($text(liste.txt),$calc(%line - 1)) mp3_çaldır } } } alias mp3_ileri { var %x = $read($text(liste.txt), w, * $+ $oku(MP3) $+ *) var %c = $readn,%lines = $lines($text(liste.txt)) if (%x) { var %line = $readn if (%line == $lines($text(liste.txt))) { var %line = 1 Yaz Mp3 $read($text(liste.txt), %line) mp3_çaldır } else { Yaz Mp3 $read($text(liste.txt),$calc(%line + 1)) mp3_çaldır } } } alias mp3_çaldır { if ($oku(MP3)) { .splay -p " $+ $shortfn($oku(MP3)) $+ " var %read = $read($text(liste.txt),w,$oku(MP3)),%line = $iif($readn = 0,$lines($text(liste.txt)),$readn) if ($dialog(T_bar)) { did -c T_bar 60 %line } $iif($dialog(T_bar),.timermpos_T_bar 0 1 $!iif($dialog(T_bar) && $!insong,did -ra T_bar 63 $!mpos $chr(47) $!mlen)) $iif($dialog(T_bar),.timertrak 0 1 $!iif($dialog(T_bar),mp3trak)) $iif($dialog(T_bar),did -ra T_bar 61 $remove($nopath($oku(MP3)),.mp3)) if ($oku(MP3Anons) == evet && $server) { if ($oku(MP3a) = kanala) { scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3)) } else { scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3)) } elseif ($oku(MP3AdvMeth) = allchans) { mp3_netadv } } } } alias mp3_Temizle { var %x = $input(Şarkı Listesi Temizlenecek Eminmisiniz?,yq,Seciniz...) if (%x = $true) { did -r T_bar 60 write -c $text(liste.txt) mp3_liste } } on *:dialog:T_bar:close:*: { .timermpos_mp3bar off .timertrak off } on *:MP3End: { if ($dialog(T_bar)) { did -ra T_bar 63 00:00 / 00:00 } if ($oku(Mp3Mode) = Karışık) { Yaz mp3 $read($text(liste.txt)) mp3_çaldır } elseif ($oku(Mp3Mode) = Tekrar) { mp3_çaldır } elseif ($oku(Mp3Mode) = Devamlı) { mp3_ileri } elseif ($oku(Mp3Mode) = Normal) { mp3_stop } else { .timertrak off .timermpos_mp3bar off } } alias mp3_mod { $iif($1 = 1,Yaz MP3Mode normal) $iif($1 = 2,Yaz MP3Mode Karışık) $iif($1 = 3,Yaz MP3Mode Tekrar) $iif($1 = 4,Yaz MP3Mode Devamlı) } alias mp3_anons { if ($oku(MP3Anons) = on) { Yaz MP3Anons off } elseif ($oku(MP3Anons) = off) { Yaz MP3Anons on } } alias mp3_liste { .filter -k $text(liste.txt) $iif($1 = -d,mp3_add2,mp3_add) | if ($1 != -d) { .signal mp3_liste } } alias mp3_add { did -a T_bar 60 $remove($nopath($1-),.mp3) | did -c T_bar 60 1 } alias mp3_add2 { did -a mp3_dosya 1 $remove($nopath($1-),.mp3) } on *:signal:mp3_liste: { if ($oku(MP3)) { var %r = $read($text(liste.txt),w,$oku(MP3)),%c = $readn did -c T_bar 60 %c } } alias mp3_dosya { if (!$dialog(mp3_dosya)) dialog -m mp3_dosya mp3_dosya else { dialog -x mp3_dosya } } dialog mp3_dosya { title "Çalma Listesi" size -1 -1 137 111 option dbu icon $icl, 0 list 1, 2 2 133 94, size button "Sil", 2, 57 98 35 10 button "Tamam", 3, 98 98 35 10, ok } on *:dialog:mp3_dosya:*:*:{ if ($devent == init) { mdx MarkDialog $dname mdx SetFont $dname 1,2,3 11 1100 Tahoma mp3_liste -d } if ($devent == close) { did -r T_bar 60 mp3_liste } if ($devent == sclick) { if $did == 2 { if ($did($dname,1).sel) { var %s = $ifmatch .write -dl $+ %s $text(liste.txt) did -r $dname 1 mp3_liste -d } } if $did == 3 { dialog -c $dname } } } dialog vol { title "" size -1 -1 20 40 option dbu list 1, 5 0 12 44, size check "Zzz;)", 2, 0 44 22 8 } on *:Dialog:vol:*:*:{ if ($devent == init) { var %N = $dname mdx MarkDialog %N mdx SetDialog vol Style dlgframe mdx SetBorderStyle %N 1 mdx SetControlMDX 1 Trackbar both noticks vertical tooltips > $bars did -i vol 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 16 if ($calc(65535 - $vol(master)) 0 65535 * * * * 20 = 0) { did -c vol 2 } dialog -s vol 850 1 40 90 } if ($devent == sclick) { var %N = $dname if ($did == 0) { dialog -x %N } if ($did == 1) { did -u %N 2 vol -v $calc(65535 - $gettok($did($did,1),1,32)) if ($gettok($did($did,1),9,32) = tiptext) { did -i %N $did 1 tiptext $iif($int($calc($vol(master) /655.35)) = 0,Sessiz,$int($calc($vol(master) /655.35)) $+ %) } if ($gettok($did($did,1),1,32) = 65535) { did -c %N 2 } } if ($did == 2) { if ($vol(master) = 0) { vol -v 65535 } if ($vol(master) != 0) { vol -v 0 } :a did -ci %N 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 20 halt } } } alias mp3trak { if ($dialog(T_bar)) { did -i T_bar 62 1 params $round($calc($calc($inmp3.pos / $inmp3.length) * 100),0) } else { .timertrak off } } alias mpos { if (!$insong) { return 2 | halt } var %x = $calc($insong.pos /1000) return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss)) } alias mlen { if ($1) { if (!$exists($1-)) { return 1 | halt } var %x = $calc($sound($1-).length /1000) return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss)) } if (!$1) { if (!$insong) { return 00.00 | halt } var %x = $calc($insong.length /1000) return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss)) } } on *:join:#: { if $nick == $me { xpencere $chan } } alias xpencere { if !$widnow(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -dp +L @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 250 100 | window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(background) 50 $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).x $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).y $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).w $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).h drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(own text) TimesNewRoman 30 30 40 $1 drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(info text) TimesNewRoman 14 20 15 Sohbetin Tek Adresi drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(ctcp text) TimesNewRoman 15 100 30 irc.RenkSohbet.com drawsave @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chan,_tmp.bmp) background -p $1 $+($chan,_tmp.bmp) .remove $+($chan,_tmp.bmp) set %checks $color(background) } #sefect on on 1:open:?:{ if ($nick == $me) { halt } else { splay sounds\ao.wav | halt } } on ^1:join:#: { if ($nick != $me) { halt } else { splay sounds\join.wav | halt } } on 1:part:#: { if ($nick != $me) { halt } else { splay sounds\part.wav | halt } } on 1:voice:#: { if ($vnick != $me) { halt } else { splay sounds\voice.wav | halt } } on 1:devoice:#: { if ($vnick != $me) { halt } else { splay sounds\devoice.wav | halt } } on *:op:#: { if ($opnick == $me) { splay sounds\op.wav } } on 1:deop:#: { if ($opnick != $me) { halt } else { splay sounds\deop.wav | halt } } on 1:connect:{ splay sounds\connect.wav } on 1:disconnect:{ splay sounds\disconnect.wav } on 1:kick:#: { if ($knick != $me) { halt } else { splay sounds\kick.wav | halt } } #sefect end

Cod KaRanTiNa (hakan)Adlı arkadaşımıza aittir..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 08 Nisan 2015, 00:24   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Player Koduna Radyo Ekleme




mIRC'in "pls" dosyaları çalacağını sanmıyorum(Yeni sürümlerde varmı bilmiyorum).Winamp ve benzeri programlar ile açabilirsin yada windows media player'ın açması için codec gerektirebilir.Uzun lafın kısası bunu mp3 player'dan radyo player'a dönüştürmen bu haliyle çok zor.Ancak bir dll ile yapabilirsin diye düşünüyorum ki piyasada bu işi yapacak bir dll varmı? Sanmıyorum denk gelmedim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:24 -->-> Daha önceki mesaj 00:21 --

Bir başka alternatif yol daha aklıma geldi.Flash Radio Player'lar var hazır.mDC.DLL ile o flash dosyasını oynatabilir pls uzantılarını çaldırabilirsin.Ircbastard arkadaşımız bir script'inde yapmıştı yanılmıyorsam.Ama bu player ile olmaz.

 
Alıntı ile Cevapla

Alt 08 Nisan 2015, 09:20   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Player Koduna Radyo Ekleme




SeRDaR406 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
mIRC'in "pls" dosyaları çalacağını sanmıyorum(Yeni sürümlerde varmı bilmiyorum).Winamp ve benzeri programlar ile açabilirsin yada windows media player'ın açması için codec gerektirebilir.Uzun lafın kısası bunu mp3 player'dan radyo player'a dönüştürmen bu haliyle çok zor.Ancak bir dll ile yapabilirsin diye düşünüyorum ki piyasada bu işi yapacak bir dll varmı? Sanmıyorum denk gelmedim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:24 -->-> Daha önceki mesaj 00:21 --

Bir başka alternatif yol daha aklıma geldi.Flash Radio Player'lar var hazır.mDC.DLL ile o flash dosyasını oynatabilir pls uzantılarını çaldırabilirsin.Ircbastard arkadaşımız bir script'inde yapmıştı yanılmıyorsam.Ama bu player ile olmaz.

Tşkler Bilgilendirme için Abicim.

Zor olduğunu Biliyorum. imkansız Değil. Ben winamp'ı toolbara gömecektim. yani Exe'yi. Bu Seferde Her kullanıcıda winamp olmayabilir. Aklıma bu fikir geldi. Sanırım Biraz Daha Kafa Yormamız Gerekicek..

 
Alıntı ile Cevapla

Alt 08 Nisan 2015, 20:29   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Player Koduna Radyo Ekleme




Winamp'ı oraya gömmeye çalışmak boşa zaman kaybı olur ve de çok gereksiz.Dediğim yöntemleri uygularsan daha çabuk isteğine kavuşabilirsin.

İyi çalışmalar.

 
Alıntı ile Cevapla

Alt 09 Nisan 2015, 01:59   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Player Koduna Radyo Ekleme




Sanırım Başardım Tşkler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yardımın İçin...

Nasıl yaptığımıda anlatim belki birileri faydalanır.

Öncelikle Serdar arkadaşımızın dediği gibi hazır bir flash radyo player aldım. onu exe haline getirip Scriptimin dosya klasörüne attım daha sonra Scriptimin toolbarına bir kontrol ekleyerek flash radyo playeri açıp kapatmasını sağladım kullanıcının..

Umarım Anlatabilmişimdir...

 
Alıntı ile Cevapla

Cevapla

Etiketler
ekleme, koduna, mp3, player, radyo


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

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 Player Rohit mIRC Scripting Hazır Kodlar 1 25 Ekim 2011 03:28
NoMercy e Radyo Botu Ekleme q0kh4n01 mIRC Scripting Sorunları 18 27 Aralık 2008 23:26