Internet TV using Media Player






1.96/5 (9 votes)
Nov 4, 2007

39993

1277
This is a basic internet TV software and all the main softwares available on internet use same technique
Introduction
'Sample Created By www.levo-technologies.com
'balmeet80@gmail.com
'This is a basic internet TV software and all the main softwares available on internet use same techniqe
'URL changes on descrition of internet tv owner.
'Add component of Windows Media Player
Using the code
A brief description of how to use the article or code. The class names, the methods and properties, any tricks or tips.
Blocks of code should be set as style "Formatted" like this:
// // Any source code blocks look like this // '++++++++++++++++++++++++++++++++++++++++++++ 'Sample Created By "http://www.levo-technologies.com/">www.levo-technologies.com "mailto:'balmeet80@gmail.com">'balmeet80@gmail.com 'This is a basic internet TV software and all the main softwares available on internet use same techniqe 'URL changes on descrition of internet tv owner. 'Add component of Windows Media Player '++++++++++++++++++++++++++++++++++++++++++++ Private Sub List1_Click() urlplay End Sub Private Sub urlplay() rr = List1.List(List1.ListIndex) lbl.Caption = "Opening " + rr Select Case rr Case "ANDORRA TV" MediaPlayer1.URL = "http://wwitv.com/a1/6778.asx" Case "WMTY" MediaPlayer1.URL = "http://wwitv.com/a1/b2368.asx" Case "Bullhead city TV" MediaPlayer1.URL = "http://wwitv.com/a1/7696.asx" Case "RAJ" MediaPlayer1.URL = "http://wwitv.com/a1/b3210.asx" Case "XYZ TV" MediaPlayer1.URL = "http://wwitv.com/a1/b3646.asx" Case Else MsgBox "Not A Valid Link", vbCritical End Select 'MediaPlayer1.URL = List1.List(List1.ListIndex) End Sub Private Sub MediaPlayer1_OpenStateChange(ByVal NewState As Long) If NewState = 13 Then lbl.Caption = "Connected to " + List1.List(List1.ListIndex) End If End Sub Remember to set the Language of your code snippet using the Language dropdown. Use the "var" button to to wrap Variable or class names in <code> tags like this. <h2>Points of Interest</h2> Did you learn anything interesting/fun/annoying while writing the code? Did you do anything particularly clever or wild or zany? <h2>History</h2> Keep a running update of any changes or improvements you've made here.