📄 mdtvs.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
ClientHeight = 3885
ClientLeft = 0
ClientTop = 0
ClientWidth = 4665
ControlBox = 0 'False
Icon = "MdTvs.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 4665
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0FF&
ForeColor = &H80000008&
Height = 3210
Left = 15
TabIndex = 0
Top = -75
Width = 4440
Begin VB.ListBox List2
Height = 1500
ItemData = "MdTvs.frx":000C
Left = 2040
List = "MdTvs.frx":000E
TabIndex = 3
Top = 720
Visible = 0 'False
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "保存"
Height = 375
Left = 960
TabIndex = 2
Top = 720
Visible = 0 'False
Width = 615
End
Begin VB.ListBox List3
Height = 960
Left = 240
Sorted = -1 'True
TabIndex = 1
Top = 1200
Visible = 0 'False
Width = 1455
End
Begin VB.ListBox List1
Appearance = 0 'Flat
BackColor = &H00C0C0FF&
Height = 2190
ItemData = "MdTvs.frx":0010
Left = 120
List = "MdTvs.frx":0012
TabIndex = 4
Top = 600
Width = 4200
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 210
Left = 1560
TabIndex = 13
Top = 240
Width = 1320
End
Begin VB.Label Command4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "在线网络视频"
ForeColor = &H80000008&
Height = 210
Left = 120
MouseIcon = "MdTvs.frx":0014
MousePointer = 99 'Custom
TabIndex = 12
Top = 240
Width = 1170
End
Begin VB.Label Command5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "在线网络音频"
ForeColor = &H80000008&
Height = 210
Left = 3150
MouseIcon = "MdTvs.frx":0166
MousePointer = 99 'Custom
TabIndex = 11
Top = 240
Width = 1170
End
Begin VB.Label Command6
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "添加地址"
ForeColor = &H00FF0000&
Height = 180
Left = 120
MouseIcon = "MdTvs.frx":02B8
MousePointer = 99 'Custom
TabIndex = 10
Top = 2880
Width = 720
End
Begin VB.Label Command8
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "修改名称"
ForeColor = &H00FF0000&
Height = 180
Left = 960
MouseIcon = "MdTvs.frx":040A
MousePointer = 99 'Custom
TabIndex = 9
Top = 2880
Width = 720
End
Begin VB.Label Command7
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "删除地址"
ForeColor = &H00FF0000&
Height = 180
Left = 1800
MouseIcon = "MdTvs.frx":055C
MousePointer = 99 'Custom
TabIndex = 8
Top = 2880
Width = 720
End
Begin VB.Label Command1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "在线播放"
ForeColor = &H00FF0000&
Height = 180
Left = 2640
MouseIcon = "MdTvs.frx":06AE
MousePointer = 99 'Custom
TabIndex = 7
Top = 2880
Width = 720
End
Begin VB.Label Command9
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "默认"
ForeColor = &H00FF0000&
Height = 180
Left = 3495
MouseIcon = "MdTvs.frx":0800
MousePointer = 99 'Custom
TabIndex = 6
Top = 2880
Width = 360
End
Begin VB.Label Command2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "关闭"
ForeColor = &H00FF0000&
Height = 180
Left = 3960
MouseIcon = "MdTvs.frx":0952
MousePointer = 99 'Custom
TabIndex = 5
Top = 2880
Width = 360
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const pDn = 1000
Dim pd(1 To pDn) As String
Dim S, S1, S2 As String
Dim p As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim bLen As Integer
Dim T As String
Private Sub Command1_Click()
If List1.ListIndex < 0 Then
MsgBox Chr(13) + "请选择频道！ ", vbExclamation
Exit Sub
End If
Pos = List1.ListIndex
tName = List1.List(List1.ListIndex)
tURL = Mid(List2.List(List1.ListIndex), 3)
mType = Val(Left(List2.List(List1.ListIndex), 1))
Me.Hide
Form1.LblLeft.Enabled = False
Form1.LblRight.Enabled = False
Form1.Refresh
SaveSetting App.Title, App.EXEName, "Name", tName
SaveSetting App.Title, App.EXEName, "Url", tURL
SaveSetting App.Title, App.EXEName, "Idx", CStr(List1.ListIndex)
SaveSetting App.Title, App.EXEName, "mType", CStr(mType)
SaveSetting App.Title, App.EXEName, "PlayFlag", "0"
PlayFlag = 0: mLen = 0
On Error Resume Next
Form1.wmp.Controls.stop
Form1.rm.DoStop
Form1.PV(0).Visible = False
Form1.PV(1).Visible = False
If Form4.Visible = True Then Unload Form4
If Form5.Visible = True Then Unload Form5
mPos = 0: mLen = 0
Form1.LblCs.Caption = "【" + tName + "】"
Form1.Ps.Cls
Form1.Refresh
On Error Resume Next
If mType = 1 Then
Form1.wmp.URL = tURL
Form1.PV(0).Visible = True
ElseIf mType = 2 Then
Form1.rm.Source = tURL
Form1.rm.DoPlay
Form1.PV(1).Visible = True
ElseIf mType = 3 Then 'Flash
Form1.Top = -Form1.Height + 60
Form1.LblCs.Caption = "【" + tName + "】 Flash "
Form4.Caption = tName
Form4.Show
Form4.swf.LoadMovie 0, tURL
Form4.swf.play
ElseIf mType = 4 Then 'dvd
Form1.Top = -Form1.Height + 60
Form1.LblCs.Caption = "【" + tName + "】 Flash "
Form5.Caption = tName
Form5.Show
Form5.Amv.FileName = tURL
Form5.Amv.Run
End If
Form1.Timer1.Enabled = True
Unload Me
End Sub
Private Sub Command2_Click()
Form1.Timer1.Enabled = True
Unload Me
End Sub
Private Sub Command3_Click()
If List1.ListCount = 0 Then Exit Sub
On Error GoTo sErr
If Dir(fName) <> "" Then
SetAttr fName, vbNormal
Kill fName
End If
Open fName For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i) + " " + TxtDoXor(Mid$(List2.List(i), 1, bLen), xNum1) + TxtDoXor(Mid$(List2.List(i), bLen + 1), xNum2)
Next i
Close #1
If fName = fName1 Then
Call Command4_Click
Else
Call Command5_Click
End If
Exit Sub
sErr:
If fName = fName1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -