📄 mdtvs.frm

📁 vb环境制作的网络电视播放其
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
  Call Command4_Click
Else
  Call Command5_Click
End If
List1.ListIndex = Pos
MsgBox Chr(13) + "磁盘写保护！", vbExclamation

End Sub

Private Sub Command4_Click()
Command1.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
List1.Clear
List2.Clear
List3.Clear
fName = fName1

If Dir(fName) <> "" Then
  Open fName For Input As #1
  While Not EOF(1) '读入
    Line Input #1, S
    List3.AddItem Trim(S)
  Wend
  Close #1
  If List3.ListCount > 0 Then '解密
    For k = 0 To List3.ListCount - 1
      p = InStr(1, List3.List(k), " ", vbTextCompare)
      If p > 0 Then
        T = TxtDoXor(Mid$(List3.List(k), p + 1, bLen), xNum1) + TxtDoXor(Mid$(List3.List(k), p + 1 + bLen), xNum2)
        If InStr(1, T, "://", vbTextCompare) > 0 Then
          List1.AddItem Trim(Mid(List3.List(k), 1, p - 1)) '名称
          List2.AddItem T '地址
        End If
      End If
    Next k
  End If
End If
If List1.ListCount = 0 Then
  List3.Clear
  For i = 1 To pDn \ 2
    If pd(i) <> "" Then
      List3.AddItem pd(i)
    End If
  Next i
  For k = 0 To List3.ListCount - 1
    p = InStr(1, List3.List(k), " ", vbTextCompare)
    If p > 0 Then
      T = Trim(Mid(List3.List(k), p + 1))
      If InStr(1, T, "://", vbTextCompare) > 0 Then
        List1.AddItem Trim(Mid(List3.List(k), 1, p - 1))
        List2.AddItem T
      End If
    End If
  Next k
End If
If Pos > List1.ListCount - 1 Then Pos = 0
List1.ListIndex = Pos
Label1.Caption = CStr(Pos + 1) + "/" + CStr(List1.ListCount)


End Sub

Private Sub Command5_Click()
Command1.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
List1.Clear
List2.Clear
List3.Clear
fName = fName2

If Dir(fName) <> "" Then
  Open fName For Input As #1
  While Not EOF(1)
    Line Input #1, S
    List3.AddItem Trim(S)
  Wend
  Close #1
  If List3.ListCount > 0 Then
    For k = 0 To List3.ListCount - 1
      p = InStr(1, List3.List(k), " ", vbTextCompare)
      If p > 0 Then
        T = TxtDoXor(Mid$(List3.List(k), p + 1, bLen), xNum1) + TxtDoXor(Mid$(List3.List(k), p + 1 + bLen), xNum2)
        If InStr(1, T, "://", vbTextCompare) > 0 Then
          List1.AddItem Trim(Mid(List3.List(k), 1, p - 1))
          List2.AddItem T
        End If
      End If
    Next k
  End If
End If
If List1.ListCount = 0 Then
  List3.Clear
  For i = pDn \ 2 + 1 To pDn
    If pd(i) <> "" Then
      List3.AddItem pd(i)
    End If
  Next i
  For k = 0 To List3.ListCount - 1
    p = InStr(1, List3.List(k), " ", vbTextCompare)
    If p > 0 Then
      T = Trim(Mid(List3.List(k), p + 1))
      If InStr(1, T, "://", vbTextCompare) > 0 Then
        List1.AddItem Trim(Mid(List3.List(k), 1, p - 1))
        List2.AddItem T
      End If
    End If
  Next k
End If
If Pos > List1.ListCount - 1 Then Pos = 0
List1.ListIndex = Pos
Label1.Caption = CStr(Pos + 1) + "/" + CStr(List1.ListCount)


End Sub

Private Sub Command6_Click()
Dim Na As String
Dim Ad As String
Na = InputBox$(Chr(13) + Chr(13) + "请输入项目名称：", "添加地址")
Na = Trim(Na)
If Na = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
T = ""
For i = 1 To Len(Na)
  If Mid(Na, i, 1) <> " " Then T = T + Mid(Na, i, 1)
Next i
Na = T
If Na = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
If sLen(Na) > 40 Then
  MsgBox Chr(13) + "项目名称长度只限制40个字符（20个汉字）！   ", vbExclamation
  Exit Sub
End If
Ad = InputBox$(Chr(13) + Chr(13) + "请输入在线地址：", "添加地址")
Ad = Trim(Ad)
If Ad = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
If InStr(1, Ad, "://", vbTextCompare) = 0 Then
  MsgBox Chr(13) + "在线地址不合法！   ", vbExclamation
  Exit Sub
End If
ext = InputBox$(Chr(13) + "请输入媒体类型（WMP、REAL）：", "添加地址")
ext = Trim(ext)
If ext = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
Select Case UCase(ext)
  Case "WMP": mt = 1
  Case "REAL": mt = 2
  Case Else
    MsgBox Chr(13) + "媒体类型错误！ ", vbExclamation
    Exit Sub
End Select
List1.AddItem Na
List2.AddItem CStr(mt) + "," + Ad
Call Command3_Click

End Sub

Private Sub Command7_Click()
If MsgBox(Chr(13) + "删除《" + List1.Text + "》，您确认吗？   ", vbQuestion + vbYesNo) = vbYes Then
  List2.RemoveItem List1.ListIndex
  List1.RemoveItem List1.ListIndex
  Label1.Caption = "0/" + CStr(List1.ListCount)
  Call Command3_Click
End If

End Sub

Private Sub Command8_Click()
Dim Na As String
Na = InputBox$(Chr(13) + Chr(13) + "请输入新的项目名称：", "修改地址", List1.Text)
Na = Trim(Na)
If Na = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
T = ""
For i = 1 To Len(Na)
  If Mid(Na, i, 1) <> " " Then T = T + Mid(Na, i, 1)
Next i
Na = T
If Na = "" Then
  MsgBox Chr(13) + "操作被取消！   ", vbExclamation
  Exit Sub
End If
If sLen(Na) > 40 Then
  MsgBox Chr(13) + "项目名称长度只限制40个字符（20个汉字）！   ", vbExclamation
  Exit Sub
End If
List1.AddItem Na
List2.AddItem List2.List(List1.ListIndex)
List2.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex
Call Command3_Click
End Sub

Private Sub Command9_Click()
If MsgBox(Chr(13) + "是否恢复默认项目？  ", vbQuestion + vbYesNo) = vbYes Then
  If Dir(fName1) <> "" Then
    SetAttr fName1, vbNormal
    Kill fName1
  End If
  If Dir(fName2) <> "" Then
    SetAttr fName2, vbNormal
    Kill fName2
  End If
  If fName = fName1 Then
    Call Command4_Click
  Else
    Call Command5_Click
  End If
End If
End Sub

Private Sub Form_Activate()
  Me.Visible = True
End Sub

Private Sub Form_Load()
bLen = 10
xNum1 = 13
xNum2 = 27
Me.Width = Frame1.Width + 30
Me.Height = Frame1.Height - 60
Frame1.BackColor = Me.BackColor
List1.BackColor = Me.BackColor

pd(1) = "湖南卫视频道 1,http://61.139.37.135:1560/huna"
pd(2) = "凤凰中文台 1,http://61.139.37.135:1560/fhws"
pd(5) = "Channel[V] 1,http://61.139.37.135:1560/v"
pd(6) = "时尚电视台 1,http://61.139.37.135:1560/blsz"
pd(9) = "TVB8电影台 1,http://61.139.37.135:1560/tvb8"

pd(22) = "CCTV1-综合频道 1,rtsp://61.139.60.236/tv2-22"
pd(23) = "CCTV6-电影频道 1,rtsp://61.139.60.236/tv3-11"
pd(25) = "CCTV5-体育频道 1,rtsp://61.139.60.236/tv4-22"
pd(26) = "CCTV－新闻频道 1,rtsp://live1.cnnb.com.cn/channelv"
pd(27) = "南京影视频道 1,rtsp://nettv1.supernj.com/njmovie"
pd(29) = "翡翠电影台 1,rtsp://61.175.162.21/star"
pd(31) = "CCTV2-经济频道 1,mms://61.155.11.21/cctv2"
pd(32) = "高清晰在线影院 2,rtsp://61.161.100.140:8080/broadcast/cs.rm"
pd(34) = "天津影视频道 1,rtsp://221.238.193.6/tj3"
pd(35) = "南京十八频道 2,rtsp://live.njbg.com.cn:554/broadcast/18.rm"
pd(36) = "江苏影视频道 1,mmst://vod.jsgd.com.cn/jsys.jsgd"
pd(38) = "常州影视频道 1,rtsp://vod1.cztv.tv/cztv3"

pd(pDn \ 2 + 2) = "南京音乐广电台 1,mms://61.155.11.22/njyyt"
pd(pDn \ 2 + 3) = "西安音乐广电台 1,mms://61.185.214.171/fm931"
pd(pDn \ 2 + 4) = "上海魅力广电台 1,http://www.stv.sh.cn/103.asx"
pd(pDn \ 2 + 5) = "上海音乐广电台 1,http://www.stv.sh.cn/classicmusic.asx"
pd(pDn \ 2 + 6) = "十堰音乐广电台 1,mms://listen.sycatv.net:8080/"
pd(pDn \ 2 + 7) = "广西文艺广电台 1,mms://219.159.68.112:8080/audio2"
pd(pDn \ 2 + 8) = "四川岷江音乐台 1,mms://218.6.174.207/FM955"
pd(pDn \ 2 + 9) = "北京音乐广电台 1,mms://202.108.248.145/FM974"
pd(pDn \ 2 + 10) = "台北之声音乐台 1,mms://202.187.31.160/FM917"
pd(pDn \ 2 + 13) = "猫扑网络广电台 1,mms://live.mop.com/mopradio"

If fName = fName1 Then
  Call Command4_Click
Else
  Call Command5_Click
End If

List1.ListIndex = Pos

End Sub

Private Sub List1_Click()
  If List1.Text <> "" Then
    Label1.Caption = CStr(List1.ListIndex + 1) + "/" + CStr(List1.ListCount)
    Command1.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
  Else
    Command1.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = False
    Label1.Caption = "0/" + CStr(List1.ListCount)
  End If
End Sub

Private Sub List1_DblClick()
If List1.Text <> "" Then
  Call Command1_Click
End If
End Sub
上一页 12
💿 文件大小 3254 K
👤 上传用户 liyusheng1983
📂 所属分类其他
🏷️ 相关标签

#环境 #播放 #网络电视
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -