巧用VB编程使Xingplayer自动播放VCD

徐林清
1997-01-01

　　ＸｉｎｇＭＰＥＧ　Ｐｌａｙｅｒ是软解压播放ＶＣＤ的优秀软件，但调入ＸＭｐｌａｙｅｒ、进入播放状态、隐藏面板等一系列操作，需要多次点击鼠标，较为麻烦。下面用ＶＩＳＵＡＬ　ＢＡＳＩＣ程序首先检查光驱是否准备好或光驱中是否为ＶＣＤ光碟，然后利用ＶＢ模拟ＸｉｎｇＭＰＥＧ的键盘动作，通过短短的几行程序，实现ＶＣＤ光盘的自动播放。
　　①进入ＶＢ环境，设置窗体ＦＯＲＭ１的Ｖｉｓｉｂｌｅ属性为Ｆａｌｓｅ，然后在窗体上建立一个驱动器列表框Ｄｒｉｖｅｌ，亦设其Ｖｉｓｉｂｌｅ属性为ＦＡＬＳＥ，以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。
　　②双击窗体，编写过程代码
　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ（）
　　Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｆｉｎｄｅｒｒ
　　′检查光驱是否准备好或光驱中是否为ＶＣＤ光碟
　　ｓｔａｒｔｌｉｎｅ：
　　ｄｒｖｎｍｂ＝Ｄｒｉｖｅ１．ＬｉｓｔＣｏｕｎｔ
　　ｃｄｎａｍｅ＄＝Ｄｒｉｖｅｌ．Ｌｉｓｔ（ｄｒｖｎｍｂ－１）
　　ｆｉｌｅｓ＄＝Ｄｉｒ＄（ｃｄｎａｍｅ＄　＆　”＼ｍｐｅｇａｖ＼＊．ｄａｔ”）
　　Ｉｆ　ｆｉｌｅｓ＄＝””Ｔｈｅｎ　ＧｏＴｏ　ｆｉｎｄｅｒｒ
　　ａｃｔ＝Ｓｈｅｌｌ（”Ｃ：＼Ｐｒｏｇｒａｍ　Ｆｉｌｅｓ＼Ｘｍｐｌａｙｅｒ＼ＸＭＰＬＡＹＥＲ．ＥＸＥ”，１）
　　′假定Ｘｍｐｌａｙｅｒ位于该目录，打开并使之获得焦点
　　ＳｅｎｄＫｅｙｓ　”％（ｆｖ）”，Ｔｒｕｅ
　　′模拟Ｃｔｒｌ＋ｆｖ键盘动作，开始播放ＶＣＤ
　　ＰａｕｓｅＴｉｍｅ＝２
　　′一些ＶＣＤ光碟因制作不规范，播放前会提示有一些错误，为对这些错误作出处理，所以暂停若干秒。此暂停是在后台进行，不影响正常ＶＣＤ连续播放
　　ｓｔａｒｔ＝Ｔｉｍｅｒ
　　Ｄｏ　Ｗｈｉｌｅ　Ｔｉｍｅｒ＜ｓｔａｒｔ＋ＰａｕｓｅＴｉｍｅ
　　Ｌｏｏｐ
　　ＳｅｎｄＫｅｙｓ”｛ｅｎｔｅｒ｝，＾ｓ，＾ｐ，＾｛ｆ４｝，％｛ｅｓｃ｝，＾４”，Ｔｒｕｅ
　　′模拟其它键盘动作，满屏播放，隐藏面板等
　　Ｅｎｄ
　　ｆｉｎｄｅｒｒ：
　　ｍｓｇ＄＝”光驱未准备好，或光驱中非ＶＣＤ光盘，将光驱准备好，”
　　ｍｓｇ＄＝ｍｓｇ＄　＆　”或换一张光盘，然后回车重试，或按取消退出”
　　ｅｒ＝ＭｓｇＢｏｘ（ｍｓｇ＄，５３，”出错提示”）
　　Ｉｆ　ｅｒ＝４　Ｔｈｅｎ　Ｒｅｓｕｍｅ　ｓｔａｒｔｌｉｎｅ　Ｅｌｓｅ　Ｅｎｄ
　　′由用户选择重试或退出
　　Ｅｎｄ　Ｓｕｂ
　　③将上述程序编译成ＥＸＥ文件，然后将其快捷方式拖至桌面，双击该图标，即可装入ＸｉｎｇＭＰＥＧ　Ｐｌａｙｅｒ并自动开始满屏播放ＶＣＤ，同时置ＰＬＡＹＥＲ面板于Ｓｔａｎｄａｒｄ　Ｂａｒ状态，并将之隐藏。
　　程序中＾表示Ｃｔｒｌ，％表示Ａｌｔ，之所以程序中要连续插入暂停“＾Ｓ”和播放“＾Ｐ”两个动作，是因为２．０版本的ＶＣＤ在按Ａｌｔ＋ＦＶ后即开始播放，１．０版本在按Ａｌｔ＋ＦＶ后还要求按Ｃｔｒｌ＋Ｐ，而Ｃｔｒｌ＋Ｐ在播放状态下又等价于Ｃｔｒｌ＋Ｓ（即暂停），所以如果只有一个“＾Ｐ”则使ＶＣＤ１．０开始播放而ＶＣＤ２．０暂停，为了兼顾两种版本的ＶＣＤ，首先模拟Ｃｔｒｌ＋Ｓ动作实现暂停，然后再模拟Ｃｔｒｌ＋Ｐ开始播放，从而使两种版本的ＶＣＤ在执行本程序后都能实现自动播放。
　　上述程序在ＰＷＩＮ９５、ＶＩＳＵＡＬ　ＢＡＳＩＣ　４．０和ＸｉｎｇＭＰＥＧ　ＰＬＡＹＥＲ　３．２环境中调试通过。

 