|
4.2 身份认证 4.2.1 登录 内容来自论文无忧网 www.paper51.com 初始化的用户名和密码可以通过身份认证，只有通过身份认证的用户才能够正常的使用播放器。 http://www.paper51.com 登陆界面如图4所示： copyright paper51.com
内容来自www.paper51.com 图4登陆界面 http://www.paper51.com 打开播放器就会自动弹出一个登陆界面，如图4所示，输入初始用户名和密码进入播放器界面，如图3所示，才能正常使用播放器。在文件中输入原始的用户名和密码，打开播放器时，在登陆界面中输入原始用户名和密码后，输入的将于文件中的原始用户名和密码进行对比，如果是正确的，将启动播放器。如果错误将弹出错误提示框。其实现代码为： copyright paper51.com
1）用户名和密码保存函数 paper51.com Iffile.Exists(Application.StartupPath & "\pass.txt") Then 内容来自www.paper51.com Dim obj As New StreamReader(Application.StartupPath &"\pass.txt", True) paper51.com strtest = obj.ReadLine() http://www.paper51.com
obj.Close() http://www.paper51.com EndIf 内容来自www.paper51.com 2）读取保存信息： 内容来自www.paper51.com readIndex() http://www.paper51.com
form1.Show() paper51.com form1.WindowsMediaPlayer1.Ctlcontrols.stop() paper51.com form1.Enabled = False 内容来自论文无忧网 www.paper51.com 此时播放器是不可用的。 内容来自www.paper51.com 3）输入信息和保存信息的比较： paper51.com Dim str1 As String copyright paper51.com str1= TextBox1.Text + "|" + TextBox2.Text copyright paper51.com Ifstr1 = strtest Then http://www.paper51.com form1.Show() 内容来自论文无忧网 www.paper51.com form1.Enabled = True copyright paper51.com form1.WindowsMediaPlayer1.Ctlcontrols.play() http://www.paper51.com Me.Hide() paper51.com Else 内容来自论文无忧网 www.paper51.com MsgBox("用户名或者密码错误") 内容来自www.paper51.com EndIf paper51.com 4.2.2 认证修改 http://www.paper51.com
当一个用户名和密码用久了，它的保密性也就随之下降了，认证修改提供解决问题的途径，及时的修改用户名和密码可以保证播放器系统的安全性，能使播放器的专有性更强。 内容来自www.paper51.com
认证修改界面如图5所示： copyright paper51.com
paper51.com
图5认证修改界面 paper51.com 单击操作，选择修改认证，将会弹出修改认证界面，如图5所示，输入旧用户名和密码，再输入新用户名和密码，点击修改，如果跟文件中原有的旧用户名和密码对比相同，那么修改成功，下次登陆将采用新的用户名和密码，如果旧用户名和密码与文件中原有用户名和密码不相同，那么修改失败，弹出出错提示框。其实现代码为： http://www.paper51.com 1）读取用户名和密码： 内容来自论文无忧网 www.paper51.com If file.Exists(Application.StartupPath &"\pass.txt") Then http://www.paper51.com Dim obj As New StreamReader(Application.StartupPath &"\pass.txt", True) copyright paper51.com nameandpass = obj.ReadLine() 内容来自论文无忧网 www.paper51.com obj.Close() 内容来自论文无忧网 www.paper51.com EndIf copyright paper51.com 2）写入用户名和密码： paper51.com If file.Exists(Application.StartupPath &"\pass.txt") Then 内容来自论文无忧网 www.paper51.com file.Delete(Application.StartupPath & "\pass.txt") http://www.paper51.com
EndIf 内容来自论文无忧网 www.paper51.com
Dimobj As New StreamWriter(Application.StartupPath & "\pass.txt",True) 内容来自www.paper51.com obj.Write(str) 内容来自www.paper51.com obj.Close() http://www.paper51.com
3）比较旧用户名和密码并用新用户名和密码代替： copyright paper51.com
oldnameandpass = TextBox4.Text+ "|" + TextBox3.Text http://www.paper51.com Ifoldnameandpass = nameandpass Then copyright paper51.com Dim newNP As String 内容来自论文无忧网 www.paper51.com newNP = TextBox1.Text + "|" + TextBox2.Text 内容来自论文无忧网 www.paper51.com writepass(newNP) copyright paper51.com Me.Close() copyright paper51.com Else copyright paper51.com MsgBox("用户名或者密码错误！") 内容来自www.paper51.com EndIf http://www.paper51.com
4.3 文件加载系统 内容来自论文无忧网 www.paper51.com 4.3.1 打开 内容来自www.paper51.com 打开系统是向播放列表加载一个或者多个多媒体文件，通过打开加载文件时，将会覆盖播放列表中已有的文件。并且将自动播放。其实现代码为： 内容来自论文无忧网 www.paper51.com 1）打开文件： paper51.com With Openfile 内容来自www.paper51.com .FileName = "" http://www.paper51.com .Filter= "视频文件(*.rm;*.rmvb;*.dat;*.avi;*.mp3;*.asf;*.mpg)|*.rm;*.rmvb;*.dat;*.avi;*.mp3;*.asf;*.mpg|音频文件(*.mp3;*.wav;*.wma;*.mid)|*.mp3;*.wav;*.wma;mid|所有文件(*.*)|*.*" 内容来自www.paper51.com .Multiselect = True http://www.paper51.com If .ShowDialog() = DialogResult.Cancel Then Exit Sub paper51.com EndWith copyright paper51.com 2）清空播放列表： paper51.com file =Openfile.FileNames.Length paper51.com If file = 0 ThenExit Sub 内容来自论文无忧网 www.paper51.com
播放列表.Items.Clear() http://www.paper51.com
filelist.Clear() http://www.paper51.com 3）加载新文件： 内容来自论文无忧网 www.paper51.com filename = Openfile.FileNames copyright paper51.com ReDim strfile(file) http://www.paper51.com For i = 0 To file - 1 内容来自www.paper51.com For j = 0 To filename(i).Length copyright paper51.com
IfMicrosoft.VisualBasic.Right(filename(i), j + 1).Chars(0) = "\" Then paper51.com strfile(i) =CType(Microsoft.VisualBasic.Right(filename(i), j), String) paper51.com strfile(i) =CType(Microsoft.VisualBasic.Left(strfile(i), strfile(i).Length - 4), String) paper51.com
For i = 0 To file - 1 内容来自论文无忧网 www.paper51.com 播放列表.Items.Add(i + 1 & ". " & strfile(i)) copyright paper51.com filelist.Add(filename(i)) copyright paper51.com 4）自动播放： paper51.com WindowsMediaPlayer1.URL =filename(0) copyright paper51.com
播放列表.SetSelected(0, True) http://www.paper51.com cmbAdd() copyright paper51.com 5）操作流程： 内容来自论文无忧网 www.paper51.com 单击图3上面的‘打开’按钮，弹出文件加载对话框，如图6所示： http://www.paper51.com
paper51.com 图6打开弹出对话框 copyright paper51.com
选择要打开的文件，单击图6的“打开”按钮，加载文件成功。加载成功后对比加载前后的播放列表发现打开的文件代替了播放列表中原有的文件。如图7，8所示： paper51.com
内容来自www.paper51.com
图7“打开”操作前播放列表图 内容来自www.paper51.com
copyright paper51.com 图8“打开”操作后播放列表图 paper51.com 4.3.2 添加 内容来自论文无忧网 www.paper51.com 添加系统的功能是向播放列表添加多媒体文件，一次可以添加一个或者多个文件，不影响播放列表中的原有文件，仅仅是在其后增加文件。其实现代码相比打开仅仅是少了清空播放列表的代码，在这里就不赘言了。 copyright paper51.com 操作流程：单击图3上面的“添加”按钮，弹出打开对话框，如图9所示， copyright paper51.com
内容来自论文无忧网 www.paper51.com 图9添加弹出对话框 内容来自论文无忧网 www.paper51.com 选择要添加的文件，单击图9上的“打开”按钮，添加成功。添加前后的播放列表对比，如图10，11所示： copyright paper51.com 内容来自论文无忧网 www.paper51.com 图10添加操作后播放列表图 内容来自www.paper51.com
http://www.paper51.com 图11添加操作前播放列表图 copyright paper51.com 4.3.3 清空 paper51.com 清空系统的功能是清空播放列表中加载的文件，清空后播放完当前正在播放的文件后就不会播放清空前加载的文件。其实现代码为： copyright paper51.com filelist.Clear() paper51.com
播放列表.Items.Clear() 内容来自www.paper51.com
intcount = 0 paper51.com ComboBox1.Text = "" paper51.com writeIndex("0") http://www.paper51.com IsChange = True 内容来自论文无忧网 www.paper51.com 操作流程：单击图3的“清空”按纽，清空播放列表里面的文件，播放列表在清空前后的对比图如图12，13所示： copyright paper51.com
内容来自论文无忧网 www.paper51.com
图12清空前播放列表图 http://www.paper51.com
http://www.paper51.com 图13清空后播放列表图 内容来自论文无忧网 www.paper51.com 4.4 文件播放系统 内容来自www.paper51.com 4.4.1 暂停/播放 copyright paper51.com 当正在播放文件时，按钮显示为暂停，单击按钮，播放停止，按钮转换为播放，再次单击按钮，文件从上次暂停处继续播放，按钮转换为暂停。其实现代码为： 内容来自论文无忧网 www.paper51.com
Isplay = Not Isplay copyright paper51.com If Isplay = True Then copyright paper51.com Button3.Text = "播放" 内容来自www.paper51.com WindowsMediaPlayer1.Ctlcontrols.pause() copyright paper51.com Else 内容来自论文无忧网 www.paper51.com Button3.Text = "暂停" copyright paper51.com
WindowsMediaPlayer1.Ctlcontrols.play() copyright paper51.com End If 内容来自论文无忧网 www.paper51.com 4.4.2 停止 copyright paper51.com 单击停止按钮，正在播放的文件停止播放，播放进度条跳回到起点，暂停/播放按钮由暂停状态转变成为播放状态。其实现代码为：WindowsMediaPlayer1.Ctlcontrols.stop() 内容来自www.paper51.com Timer1.Enabled = False paper51.com Timer2.Enabled = False paper51.com Slider.Value = Slider.Minimum http://www.paper51.com
Isplay = Not Isplay 内容来自www.paper51.com IfIsplay = True Then http://www.paper51.com Button3.Text = "播放" 内容来自论文无忧网 www.paper51.com
EndIf copyright paper51.com 4.4.3 自定义播放顺序 paper51.com 当用户想通过自己的操作随意改变播放的顺序时，可以采取三种方式：单击上一首按钮；单击下一首按钮；在播放列表中双击任意一个文件的名称，从而实现自定义播放顺序。 copyright paper51.com 1）上一首 http://www.paper51.com 单击上一首按钮，播放器马上停止播放当前文件，重新开始播放上一个文件，当播放器列表中只有一个文件或者是正在播放第一个文件或者单击上一首倒退到第一个文件，上一首按钮将失去作用。其实现代码为： copyright paper51.com
If filelist.Count > 0 And intcount > 0 Then 内容来自论文无忧网 www.paper51.com WindowsMediaPlayer1.URL = filelist.Item(intcount - 1) copyright paper51.com
intcount = intcount - 1 http://www.paper51.com 播放列表.SetSelected(intcount, True) 内容来自论文无忧网 www.paper51.com TextBox1.Text = FileWrite.GetFileName(filelist.Item(intcount)) paper51.com If intcount > 0 Then 内容来自www.paper51.com ComboBox1.Text = "第 " & intcount +1 & " 首" 内容来自www.paper51.com
Else 内容来自论文无忧网 www.paper51.com
ComboBox1.Text = "第 1 首" http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com Timer2.Enabled = True 内容来自论文无忧网 www.paper51.com |