巧用VB編程使XMPLAYER自動播放VCD

XingMPEGPlayer是軟解壓播放VCD的優秀軟件，但調入XMplayer、進入播放狀態、隱藏面板等一系列操作，需要多次點擊鼠標，較為麻煩。下面用VISUALBASIC程序首先檢查光驅是否准備好或光驅中是否為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文件，然後將其快捷方式拖至桌面，雙擊該圖標，即可裝入Xing
　　MPEGPlayer並自動開始滿屏播放VCD，同時置PLAYER面板於StandardBar狀態，並將之隱藏
　　程序中＾表示Ctrl，％表示Alt，之所以程序中要連續插入暫停“＾S”和播放“＾P”兩個動作，是因為20版本的VCD在按Alt＋FV後即開始播放，10版本在按Alt＋FV後還要求按Ctrl＋P，而Ctrl＋P在播放狀態下又等價於Ctrl＋S（即暫停），所以如果只有一個“＾P”則使VCD10開始播放而VCD20暫停，為了兼顧兩種版本的VCD，首先模擬Ctrl＋S動作實現暫停，然後再模擬Ctrl＋P開始播放，從而使兩種版本的VCD在執行本程序後都能實現自動播放。
　　
　　上述程序在PWIN95、VISUALBASIC40和XingMPEGPLAYER32環境中調試通過。
　　->