BOZOAHA Posted May 31, 2009 Share Posted May 31, 2009 Tam programcılık bilgim olduğu sölenemez az bir araştırma ile anca bunu yapabildim. Hatam olabilir affola. Ancak media player şeklinde yapmak istiyorum abilerim yardımcı olursa sevnirim:D Buyrun Resmi: Autoit ile yapılmıştır. http://www.ziddu.com/download/4983564/TnctrRadyov1.rar.html[/CODE] Link to comment Share on other sites More sharing options...
wmismail Posted May 31, 2009 Share Posted May 31, 2009 Ne bu ? Net üzerinden yayınlanan radyoları mı dinliyoruz ? Link to comment Share on other sites More sharing options...
fastserkan50 Posted May 31, 2009 Share Posted May 31, 2009 Ellerine sağlık akrdeş güzel olmuş sadec bazı radyolar çalmıyor oda muhum değil bende calanları dınlerım Link to comment Share on other sites More sharing options...
BOZOAHA Posted May 31, 2009 Author Share Posted May 31, 2009 evet net üzerinden yayınlanan radyoları dinlebiliyorsunuz. Çalışmayan radyoları düzeltirim. Yorumunuz için teşekkürler. Link to comment Share on other sites More sharing options...
KETUM22 Posted June 1, 2009 Share Posted June 1, 2009 neden türkçe radyolar yok anlamadım Link to comment Share on other sites More sharing options...
wmismail Posted June 1, 2009 Share Posted June 1, 2009 Öneri olarak sunabiliriz. Arkadaşım o verileri xml ile çek. Xml'e de eklemek için form koy. İsteyen arkadaş istediği radio'yu eklesin. MediaPlayer görünümü de zor değil.. Uğraşsan yaparsın. Link to comment Share on other sites More sharing options...
BOZOAHA Posted June 1, 2009 Author Share Posted June 1, 2009 tek bir site üzerinden bütün radyolara bağlanıyor. Şuan Türkçe radyoları topluyorum güncelleyeceğim Link to comment Share on other sites More sharing options...
dellymc Posted June 1, 2009 Share Posted June 1, 2009 kaynak kodunu paylasabılırmısın kendı ıstedıgım radyoları eklemek ıstıyorum elıne saglık Link to comment Share on other sites More sharing options...
BOZOAHA Posted June 1, 2009 Author Share Posted June 1, 2009 kaynak kodunu paylasabılırmısın kendı ıstedıgım radyoları eklemek ıstıyorum elıne saglık #include <IE.au3> Global $Status, $oIE, $Playing = False Global Const $GUI_ENABLE = 64 Global Const $GUI_DISABLE = 128 Global $___Data = "Radio Decibel|Laaste Radio 1 Journaal|Wild FM|Radio 538|QMusic|TMF Radio|" & _ "Sky Radio|Radio Veronica|100% NL|Caz!|Slam! FM|Radio 1|538 Juize|Candle Light|" & _ "Classic FM|Radio 10 Gold|Radio NL|Laser Radio|Fresh FM|Sky Radio|KX Radio|" & _ "90's Top 590|Arrow Jazz FM|Kinder Radio|80's Top 880|Class X|Kink The Alternative|" & _ "Radio 2|3 FM|Radio 4|Radio 5|Radio 6|BNR Nieuws Radio|Concert Zender|FunX|BNN FM|" & _ "Gigant FM|Arrow Classic Rock|Top 1000|OZ Radio|Traffic Radio|Kink Aardschok|" & _ "538 Dance Department|538 Nonstop 40|Disco Classics|538 Hitzone|90's Hits|" & _ "Top 4000|Radio@Work|80's Hits|538 Party" $GUI = GUICreate("TNCTR RADYO ", 230, 90) $List = GUICtrlCreateCombo("53L8 Klein", 10, 10, 210, 20) $Connect = GUICtrlCreateButton("Bağlan", 10, 40, 100) $Disconnect = GUICtrlCreateButton("Çık", 120, 40, 100) $Status = GUICtrlCreateLabel("Konum: Hazır...", 75, 70, 100) GUISetState() GUICtrlSetState($Disconnect, $GUI_DISABLE) GUICtrlSetData($List, $___Data, "53L8 Klein") While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Connect $Link = _GetLink(GUICtrlRead($List)) GUICtrlSetState($Disconnect, $GUI_ENABLE) GUICtrlSetState($Connect, $GUI_DISABLE) GUICtrlSetState($List, $GUI_DISABLE) _Connect($Link) $Playing = True Case $nMsg = $Disconnect GUICtrlSetState($Disconnect, $GUI_DISABLE) GUICtrlSetState($Connect, $GUI_ENABLE) GUICtrlSetState($List, $GUI_ENABLE) _Disconnect() $Playing = False EndSelect WEnd Func _GetLink($Param) If $Param = "53L8 Klein" Then $_Link = "http://nederland.fm/i/l/53L8klein.gif" If $Param = "Radio Decibel" Then $_Link = "http://nederland.fm/i/l/decibel.gif" If $Param = "Laaste Radio 1 Journaal" Then $_Link = "http://nederland.fm/i/l/laatsteradio1journaal.gif" If $Param = "Wild FM" Then $_Link = "http://nederland.fm/i/l/wildfm.gif" If $Param = "Radio 538" Then $_Link = "http://nederland.fm/i/l/radio538.gif" If $Param = "QMusic" Then $_Link = "http://nederland.fm/i/l/q-music.gif" If $Param = "TMF Radio" Then $_Link = "http://nederland.fm/i/l/tmfradio.gif" If $Param = "Sky Radio" Then $_Link = "http://nederland.fm/i/l/skyradio.gif" If $Param = "Radio Veronica" Then $_Link = "http://nederland.fm/i/l/veronicafm.gif" If $Param = "100% NL" Then $_Link = "http://nederland.fm/i/l/100pnl.gif" If $Param = "Caz!" Then $_Link = "http://nederland.fm/i/l/caz.gif" If $Param = "Slam! FM" Then $_Link = "http://nederland.fm/i/l/slamfm.gif" If $Param = "Radio 1" Then $_Link = "http://nederland.fm/i/l/radio1.gif" If $Param = "538 Juize" Then $_Link = "http://nederland.fm/i/l/juizefm.gif" If $Param = "Candle Light" Then $_Link = "http://nederland.fm/i/l/candlelight.gif" If $Param = "Classic FM" Then $_Link = "http://nederland.fm/i/l/classicfm.gif" If $Param = "Radio 10 Gold" Then $_Link = "http://nederland.fm/i/l/radio10gold.gif" If $Param = "Radio NL" Then $_Link = "http://nederland.fm/i/l/radionl.gif" If $Param = "Laser Radio" Then $_Link = "http://nederland.fm/i/l/laserradio.gif" If $Param = "Fresh FM" Then $_Link = "http://nederland.fm/i/l/freshfm.gif" If $Param = "Sky Radio" Then $_Link = "http://nederland.fm/i/l/skylove.gif" If $Param = "KX Radio" Then $_Link = "http://nederland.fm/i/l/kxradio.gif" If $Param = "90's Top 590" Then $_Link = "http://nederland.fm/i/l/top590.gif" If $Param = "Arrow Jazz FM" Then $_Link = "http://nederland.fm/i/l/arrowjazz.gif" If $Param = "Kinder Radio" Then $_Link = "http://nederland.fm/i/l/kinderradio.gif" If $Param = "80's Top 880" Then $_Link = "http://nederland.fm/i/l/veronica80hits.gif" If $Param = "Class X" Then $_Link = "http://nederland.fm/i/l/classx.gif" If $Param = "Kink The Alternative" Then $_Link = "http://nederland.fm/i/l/kinkfm.gif" If $Param = "Radio 2" Then $_Link = "http://nederland.fm/i/l/radio2.gif" If $Param = "3 FM" Then $_Link = "http://nederland.fm/i/l/3fm.gif" If $Param = "Radio 4" Then $_Link = "http://nederland.fm/i/l/radio4.gif" If $Param = "Radio 5" Then $_Link = "http://nederland.fm/i/l/radio5.gif" If $Param = "Radio 6" Then $_Link = "http://nederland.fm/i/l/radio6.gif" If $Param = "BNR Nieuws Radio" Then $_Link = "http://nederland.fm/i/l/bnr.gif" If $Param = "Concert Zender" Then $_Link = "http://nederland.fm/i/l/concertzender.gif" If $Param = "FunX" Then $_Link = "http://nederland.fm/i/l/funx.gif" If $Param = "BNN FM" Then $_Link = "http://nederland.fm/i/l/bnnfm.gif" If $Param = "Gigant FM" Then $_Link = "http://nederland.fm/i/l/gigantfm.gif" If $Param = "Arrow Classic Rock" Then $_Link = "http://nederland.fm/i/l/arrow.gif" If $Param = "Top 1000" Then $_Link = "http://nederland.fm/i/l/top1000.gif" If $Param = "OZ Radio" Then $_Link = "http://nederland.fm/i/l/ozradio.gif" If $Param = "Traffic Radio" Then $_Link = "http://nederland.fm/i/trafficradiobanner.gif" If $Param = "Kink Aardschok" Then $_Link = "http://nederland.fm/i/l/kinkaardschok.gif" If $Param = "538 Dance Department" Then $_Link = "http://nederland.fm/i/l/538dancedept.gif" If $Param = "538 Nonstop 40" Then $_Link = "http://nederland.fm/i/l/538nonstop40.gif" If $Param = "Disco Classics" Then $_Link = "http://nederland.fm/i/l/disco.gif" If $Param = "538 Hitzone" Then $_Link = "http://nederland.fm/i/l/538hitzone.gif" If $Param = "90's Hits" Then $_Link = "http://nederland.fm/i/l/90hits.gif" If $Param = "Top 4000" Then $_Link = "http://nederland.fm/i/l/top4000.gif" If $Param = "Radio@Work" Then $_Link = "http://nederland.fm/i/l/radioatwork.gif" If $Param = "80's Hits" Then $_Link = "http://nederland.fm/i/l/80shits.gif" If $Param = "538 Party" Then $_Link = "http://nederland.fm/i/l/538party.gif" Return $_Link EndFunc Func _Connect($Param) _Notify("Bağlanıyor...") $oIE = _IECreate("http://nederland.fm/", "", 0) _Notify("Getting Info...") $oImgs = _IEImgGetCollection($oIE) For $oImg In $oImgs _Notify("Aranıyor...") If $oImg.src = $Param Then _IEAction($oImg, "click") Next _Notify("Playing...") EndFunc Func _Disconnect() _Notify("Disconnecting...") _IEQuit($oIE) _Notify("Ready...") EndFunc Func _Notify($Text) GUICtrlSetData($Status, "Konum: " & $Text) EndFunc Func OnAutoItExit() If $Playing = True Then _IEQuit($oIE) EndFunc Link to comment Share on other sites More sharing options...
dellymc Posted June 2, 2009 Share Posted June 2, 2009 Please register to see this content. burda da kaynak kodu var ısteyen ıncelesın Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.