Internet TV using Media Player

• Download internettv.zip - 2.5 KB

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 <a href="http://www.levo-technologies.com/">www.levo-technologies.com</a>
<a href="mailto:'balmeet80@gmail.com">'balmeet80@gmail.com</a>
'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 = "<a href="http://wwitv.com/a1/6778.asx">http://wwitv.com/a1/6778.asx</a>"
Case "WMTY"
MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b2368.asx">http://wwitv.com/a1/b2368.asx</a>"
Case "Bullhead city TV"
MediaPlayer1.URL = "<a href="http://wwitv.com/a1/7696.asx">http://wwitv.com/a1/7696.asx</a>"
Case "RAJ"
MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b3210.asx">http://wwitv.com/a1/b3210.asx</a>"
Case "XYZ TV"
MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b3646.asx">http://wwitv.com/a1/b3646.asx</a>"
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.