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