Private Sub Form－Load（） On Error GoTo finderr
′检查光驱是否准备好或光驱中是否为VCD光碟 startline： drvnmb＝Drive1ListCount
cdname＄＝Drive1List（drvnmb－1） files＄＝Dir＄（cdname＄ ＆
＂＼mpegav＼＊dat＂） If files＄＝＂＂Then GoTo finderr
act＝Shell（＂C：＼Program Files＼Xmp layer＼XMPLAYEREXE＂，1）
′假定Xmplayer位于该目录，打开并使之获得焦点 SendKeys ＂％（fv）＂，True
′模拟Ctrl＋fv键盘动作，开始播放VCD PauseTime＝2
′一些VCD光碟因制作不规范，播放前会提 示有一些错误，为对这些错误作出处理，所以暂停若干秒，此暂停是在后台进行，不影响正 常
VCD连续播放 start＝Timer Do While Timer＜start＋PauseTime Loop
SendKeys＂｛enter｝，＾s，＾p，＾｛f4｝，％｛esc｝，＾4＂，True ′模拟其它键盘动作，满屏播放，隐藏面板等
End finderr： msg＄＝＂光驱未准备好，或光驱中非VCD光盘，将光驱准备好，＂ msg＄＝msg＄ ＆
＂或换一张光盘，然后回车重试，或按取消退出＂ er＝MsgBox（msg＄，53，＂出错提示＂） If er＝4 Then
Resume startline Else En ′由用户选择重试或退出 End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
