标题方便Xing点播的VB小程序

　　Xing是一个VCD软解压程序，在使用中你可能会发现用它看VCD电影还比较方便，但看卡拉OK影碟时要点播其中的一首歌就会有些不方便。下面就介绍一个用VB开发的点播程序，可以弥补Xing的这一缺陷，能在任何时刻选定你所要播放的歌曲。
　　先要在form中建立file1、command1、command2。设定command1.caption=“刷新”，command2.caption=“退出”，而后加入以下程序：
　　form1-load()　
　　on error resume next　
　　file1.filename="d:\mpegav\avseq*.dat"　
　　if err then　
　　msgbox "在光盘中没有装入VCD影碟！"，64　
　　file1.enabled=false　
　　exit sub　
　　endif
　　file1-click()　
　　file$=file1.filename　
　　on error goto inerr　
　　open "d:\mpegav\"+file$ for input as 　　
　　b$="c:\xing\xmplayer\xmplayer.exe"+file$　
　　if err then　
　　inerr：　
　　msgbox "你可能中途换盘，按刷新键"，16　
　　file1.enabled=false　
　　exit sub　
　　else　
　　xing=shell(b$，4)　
　　endif
　　command1-click()　
　　file1.filename="c:\*.dp"　
　　on error resume next　
　　file1.filename="d:\mpegav\avseq*.dat"　
　　if err then　
　　msgbox "没有装入VCD或等CD-ROM上的灯变为绿色后再按刷新"，64　
　　file1.enabled=false　
　　exit sub　
　　end if　
　　file1.enabled=true
　　command2-click()　
　　end
　　运行该程序，用鼠标点击所要播放的VCD曲目就可直接调用Xing播放。在播放中按Alt+Tab键切换可重新点歌。以上程序光驱盘符假定为D盘。