使用 Media Player 的 Internet TV

• 下载 internettv.zip - 2.5 KB

引言

示例由 www.levo-technologies.com 创建
'balmeet80@gmail.com
'这是一个基本的网络电视软件，互联网上所有主流软件都使用相同的技术。
'URL 更改取决于网络电视所有者的描述。
'添加 Windows Media Player 组件

使用代码

关于如何使用文章或代码的简要说明。类名、方法和属性，任何技巧或窍门。

代码块应设置为“Formatted”样式，如下所示

//

// 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.