本软件将所有地址全部写在一个文本文件中并以[]分隔,以便软件读取
以下是对应代码及截图
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
以下是对应代码及截图
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