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