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
Deniyecem. Dönüş Yaparım Hemen
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
