Merhaba Arkadaşlar,
TV İzleme Programı Yapacam. -İnternet'te Var Zaten Ne Gereği Var Diyorsanız, Hepsinde Reklamlar Var. Artık Reklamlardan Bıktım- Bir Yerde Okumuştum Tam Neresi Hatırlamıyorum. IP Üzerinden Yayın Yapıyorlar Yazıyordu. Benim Sorum;
İnternet Üzerinden Yayın Yapan Kanallrın IP Adreslerini Nasıl Bulabilirim Bir Bilgisi Olan Var mı?
If List1.Text = "Show Tv" Then
WindowsMediaPlayer1.URL = ("http://www.showtvnet.com/asx/SAlone.asp?product=showtv&pType=1")
End If
If List1.Text = "Show Türk" Then
WindowsMediaPlayer1.URL = ("http://www.showtvnet.com/asx/SAlone.asp?product=showturk&pType=1")
End If
If List1.Text = "Cine 5" Then
WindowsMediaPlayer1.URL = ("mms://yayin.cine5.com.tr/cine5")
End If
If List1.Text = "NTV" Then
WindowsMediaPlayer1.URL = ("mms://144.122.56.15/odtutv")
End If
If List1.Text = "TRT 1" Then
WindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV1")
End If
If List1.Text = "Star Tv" Then
WindowsMediaPlayer1.URL = ("http://www.jumptv.com/controller.php?action=createASX&channelId=2215&ASXSESSID=99e6b54f9bb078051e3920b83f93d1ab")
End If
If List1.Text = "Kanal D" Then
WindowsMediaPlayer1.URL = ("http://www.jumptv.com/controller.php?action=createASX&channelId=3103&ASXSESSID=99e6b54f9bb078051e3920b83f93d1ab")
End If
If List1.Text = "ATV" Then
WindowsMediaPlayer1.URL = ("http://strm-1.uk.medianova.tv/ATV_LOW")
End If
If List1.Text = "Alem Fm" Then
WindowsMediaPlayer1.URL = ("http://www.onlineradyodinle.net/alemfm.txt")
End If
If List1.Text = "Radyo D" Then
WindowsMediaPlayer1.URL = ("mms://84.16.230.44/Radyod")
End If
If List1.Text = "Süper Fm" Then
WindowsMediaPlayer1.URL = ("http://www.superfm.com.tr/superfm/index.m3u")
End If
If List1.Text = "Kral Fm" Then
WindowsMediaPlayer1.URL = ("http://www.onlineradyodinle.net/kralfm.txt")
End If
If List1.Text = "Slow Türk" Then
WindowsMediaPlayer1.URL = ("http://www.onlineradyodinle.net/slowturk.txt")
End If
If List1.Text = "Lig Radyo" Then
WindowsMediaPlayer1.URL = ("http://www.bizidinle.com/player/radyoasx.asp?id=46")
End If
If List1.Text = "Ntv Spor" Then
WindowsMediaPlayer1.URL = ("http://radio3.cdntr.com/ntvspor.asx")
End If
If List1.Text = "Metro Fm" Then
WindowsMediaPlayer1.URL = ("http://www.metrofm.com.tr/metrofm.asx")
End If
hazır kodları verem benim yaptığım tv programı
Ne Diyim Ya Hızır Gibi Yetiştin Valla
ok faydam dokunmuşsa ne mutlu
Teşekkürler
Kodlar İşime Yaradı... Yalnız Bir şey Soracam O Adresleri Nereden Buldunuz Acaba?
Tek Tek sitelerine girip sayfa kaynağından aldım