XingMPEGPlayer是软解压播放VCD的优秀软件,但调入XMplayer、进入播放状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VISUALBASIC程序首先检查光驱是否准备好或光驱中是否为VCD光碟,然后利用VB模拟XingMPEG的键盘动作,通过短短的几行程序,实现VCD光盘的自动播放。
①进入VB环境,设置窗体FORM1的Visible属性为False,然后在窗体上建立一个驱动器列表框Drivel,亦设其Visible属性为FALSE,以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。
②双击窗体,编写过程代码
PrivateSubForm-Load()
OnErrorGoTofinderr′检查光驱是否准备好或光驱中是否为VCD光碟
startline:
drvnmb=Drive1ListCount
cdname$=Drive1List(drvnmb-1)
files$=Dir$(cdname$&"\mpegav\*dat")
Iffiles$=""ThenGoTofinderr
act=Shell("C:\Program...[ 查看全文 ]