暴牙归来 暴牙归来
关注数: 30 粉丝数: 236 发帖数: 6,311 关注贴吧数: 77
[vb.net][源码]基于硕鼠解析的视频地址循环播放软件 本软件将所有地址全部写在一个文本文件中并以[]分隔,以便软件读取以下是对应代码及截图 Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '隐藏退出程序按钮 Me.Button1.Hide() '隐藏浏览器控件 Me.WebBrowser1.Hide() '计时值设置 timeindex = 2 '计时器启动 Me.Timer1.Start() '设置计时器间隔 Me.Timer1.Interval = 1000 End Sub '创建文本变量 Private strtxt As String '创建计时值变量 Private timeindex As Integer '创建字符位置变量 Private locatindex As Integer Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick '当计时值为零 If timeindex = 0 Then '停止计时 Me.Timer2.Stop() '如果播放过的文件存在的话 If IO.File.Exists("C:\Users\hp\Desktop\文件中转计算机门\超级金坷垃之兽\超级时空场\播放记录\文件名.txt") = True Then '取出文件名 filename = IO.File.ReadAllText("C:\Users\hp\Desktop\文件中转计算机门\超级金坷垃之兽\超级时空场\播放记录\文件名.txt") '取出播放进度 playedtime = IO.File.ReadAllText("C:\Users\hp\Desktop\文件中转计算机门\超级金坷垃之兽\超级时空场\播放记录\播放进度.txt") '提示用户进度 Me.Label1.Text = "已查询到相关播放记录" Me.Label1.Text = "文件已播放" '设置已播放状态为false Isplayed = False '进入监听播放状态环节 Me.Timer7.Start() Me.Timer7.Interval = 1 '显示退出程序按钮 Me.Button1.Show() '显示播放窗体 My.Forms.Form2.Show() '本窗体隐藏 Me.Hide() '如果没有播放过文件 Else '创建文件名为日期编号 Dim time As String = Format(Now, "yyyyMMddhhmmss") filename = Trim(time) '提示用户进度 Me.Label1.Text = "正在创建文件····" '计时值设置 timeindex = 6 '启动计时器,进入地址提取 Me.Timer2.Start() Me.Timer2.Interval = 1000 End If Else '正在计时 timeindex -= 1 End If End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick '当计时值为零 If timeindex = 0 Then '停止计时 Me.Timer1.Stop() '字符位置设置为第一位 locatindex = 1 '设置标志栈 Dim sflag As Stack = New Stack '文本变量清零 strtxt = String.Empty '清空网址 weburl = String.Empty '文件名清空 filename = String.Empty '播放进度清空 playedtime = String.Empty '真实视频地址清空 videoaddress = String.Empty Try '读取地址池,加try语句以防止误读 strtxt = IO.File.ReadAllText("C:\Users\hp\Desktop\文件中转计算机门\超级金坷垃之兽\超级时空场\播放记录\网址.txt") Catch ex As Exception End Try '如果地址池没用完 If strtxt <> String.Empty Then '对每个字符逐字读取 For Each s As String In strtxt '如果读取到地址标志开始位 If s = "[" Then '标志栈压入地址开始标志位 sflag.Push("[") '字符位置前进一位 locatindex += 1 '如果读取到不是地址标志开始位 Else '如果读取到地址标志结束位 If s = "]" Then '标志栈弹出地址开始标志位 sflag.Pop() '字符位置前进一位 locatindex += 1 '结束循环,取出网址送入解析环节 Exit For '如果读取到不是地址标志开始位,也不是地址标志结束位 Else '叠加网址里的每个字符 weburl &= s '字符位置前进一位 locatindex += 1 End If End If Next '计时值设置 timeindex = 2 '提示用户进度 Me.Label1.Text = "正在查询播放记录····" '启动计时器,进入解析环节 Me.Timer3.Start() Me.Timer3.Interval = 1000 Else '如果地址池已用完,则提示 MsgBox("地址池已用尽") End If Else '正在计时 timeindex -= 1 End If End Sub
1 下一页