巧用vb编程使xmplayer自动播放vcd

　　xingmpegplayer是软解压播放vcd的优秀软件， 但调入xmplayer、进入播放

　　状态、隐藏面板等一系列操作， 需求屡次点击鼠标， 较为费事。 下面用visual

　　basic程序首先检查光驱能否预备好或光驱中能否为vcd光碟， 然后应用vb模拟

　　xingmpeg的键盘举措， 经过短短的几行程序， 完成vcd光盘的自动播放。

　　①进入vb环境， 设置窗体form1的visible属性为false， 然后在窗体上建立一

　　个驱动器列表框drivel， 亦设其visible属性为false， 以使窗体和列表框在程序调

　　入时不被显示出来。 其它属性均取默认值。

　　②双击窗体， 编写进程代码

　　privatesubform－load（）

　　onerrorgotofinderr′检查光驱能否预备好或光驱中能否为vcd光碟

　　startline：

　　drvnmb＝drive1listcount

　　cdname$＝drive1list（drvnmb－1）

　　files$＝dir$（cdname$＆＂＼mpegav＼. dat＂）

　　iffiles$＝＂＂thengotofinderr

　　act＝shell（＂c：＼programfiles＼xmplayer＼xmplayer. exe＂， 1）

　　′假定xmplayer位于该目录， 打开并使之获得焦点

　　sendkeys＂％（fv）＂， true′模拟ctrl＋fv键盘举措， 开始播放vcd

　　pausetime＝2′一些vcd光碟因制作不标准， 播放前会提示有一些错误， 为对这些

　　错误作出处理， 所以暂停若干秒， 此暂停是在后台停止， 不影响正常vcd延续播放

　　start＝timer

　　dowhiletimer＜start＋pausetime

　　loop

　　sendkeys＂｛enter｝， ＾s， ＾p， ＾｛f4｝， ％｛esc｝， ＾4＂， true′模拟其

　　它键盘举措， 满屏播放， 隐藏面板等

　　end

　　finderr：

　　msg$＝＂光驱未预备好， 或光驱中非vcd光盘，岁月无痕淘宝官方旗舰店 将光驱预备好， ＂

　　msg$＝msg$＆＂或换一张光盘， 然后回车重试， 或按取消退出＂

　　er＝msgbox（msg$， 53， ＂出错提示＂）

　　ifer＝4thenresumestartlineelseen′由用户选择重试或退出

　　endsub

　　③将上述程序编译成exe文件， 然后将其快捷方式拖至桌面， 双击该图标， 即

　　可装入xingmpegplayer并自动开始满屏播放vcd， 同时置player面板于standard

　　bar状态， 并将之隐藏。 程序中＾表示ctrl， ％表示alt， 之所以程序中要延续拔出

　　暂停“＾s”和播放“＾p”两个举措， 是因为20版本的vcd在按alt＋fv后即开始

　　VB编程播放， 10版本在按alt＋fv后还要求按ctrl＋p， 而ctrl＋p在播放状态下又等价

　　于ctrl＋s（即暂停）， 所以假如只要一个“＾p”则使vcd10开始播放而vcd20

　　暂停， 为了兼顾两种版本的vcd， 首先模拟ctrl＋s举措完成暂停， 然后再模拟

　　ctrl＋p开始播放， 从而使两种版本的vcd在执行本程序后都能完成自动播放