Caption = "Contact me by adding Webmosnter123@hotmail.com to your msn"
ForeColor = &H00FFFFFF&
Height = 255
Left = 6600
TabIndex = 6
Top = 8640
Width = 4695
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 6480
X2 = 6480
Y1 = 8520
Y2 = 8880
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 3960
X2 = 3960
Y1 = 8520
Y2 = 8880
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Online TV Player Open Source"
ForeColor = &H00FFFFFF&
Height = 255
Left = 4080
TabIndex = 5
Top = 8640
Width = 2175
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "⌐ 2007 Websofts.org"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2160
TabIndex = 4
Top = 8640
Width = 1695
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 2040
X2 = 2040
Y1 = 8520
Y2 = 8880
End
Begin VB.Label number
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1"
ForeColor = &H00FFFFFF&
Height = 195
Left = 1680
TabIndex = 3
Top = 8640
Width = 90
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Screenshot Number:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 2
Top = 8640
Width = 1455
End
Begin WMPLibCtl.WindowsMediaPlayer tv
Height = 8535
Left = 0
TabIndex = 0
Top = 0
Width = 11415
URL = ""
rate = 1
balance = 0
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = -1 'True
baseURL = ""
volume = 50
mute = 0 'False
uiMode = "full"
stretchToFit = 0 'False
windowlessVideo = 0 'False
enabled = -1 'True
enableContextMenu= -1 'True
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 20135
_cy = 15055
End
Begin VB.Menu station
Caption = "Stations"
Begin VB.Menu uk
Caption = "UK TV"
Begin VB.Menu bbc24
Caption = "BBC News 24"
End
Begin VB.Menu bbcparl
Caption = "BBC Parliament"
End
Begin VB.Menu bbc
Caption = "BBC World"
End
Begin VB.Menu mosound
Caption = "Ministry Of Sound"
End
Begin VB.Menu itvplay
Caption = "ITV Play"
End
Begin VB.Menu skynews
Caption = "Sky News"
End
Begin VB.Menu skyone
Caption = "Sky One"
End
End
Begin VB.Menu us
Caption = "US TV"
Begin VB.Menu cnbc
Caption = "CNBC"
End
Begin VB.Menu fox5
Caption = "Fox 5"
End
Begin VB.Menu fox8
Caption = "Fox 8"
End
End
Begin VB.Menu space
Caption = "-"
End
Begin VB.Menu other
Caption = "Other Channel"
End
Begin VB.Menu newstation
Caption = "Find New Stations"
End
End
Begin VB.Menu tools
Caption = "Tools"
Begin VB.Menu screen
Caption = "Take Screenshot"
Shortcut = {F12}
End
End
End
Attribute VB_Name = "frmtv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Online TV Player Open Source
' ⌐ 2007 Websofts.org
' Contact me by adding Webmonster123@hotmail.com to your msn
' Or email J.webmonster@gmail.com
Option Explicit
' For screenshot
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal dwRop As Long) As Long
' Shell execute is for default browser
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
