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

2019-11-18 17:35:21

字體：大中小

供稿：網(wǎng)友

XingMPEGPlayer是軟解壓播放VCD的優(yōu)秀軟件，但調(diào)入XMplayer、進(jìn)入播放狀態(tài)、隱藏面板等一系列操作，需要多次點擊鼠標(biāo)，較為麻煩。下面用VISUALBASIC程序首先檢查光驅(qū)是否準(zhǔn)備好或光驅(qū)中是否為VCD光碟，然后利用VB模擬XingMPEG的鍵盤動作，通過短短的幾行程序，實現(xiàn)VCD光盤的自動播放。

①進(jìn)入VB環(huán)境，設(shè)置窗體FORM1的Visible屬性為False，然后在窗體上建立一個驅(qū)動器列表框Drivel，亦設(shè)其Visible屬性為FALSE，以使窗體和列表框在程序調(diào)入時不被顯示出來。其它屬性均取默認(rèn)值。
②雙擊窗體，編寫過程代碼
PRivateSubForm－Load（）
OnErrorGoTofinderr′檢查光驅(qū)是否準(zhǔn)備好或光驅(qū)中是否為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光碟因制作不規(guī)范，播放前會提
示有一些錯誤，為對這些錯誤作出處理，所以暫停若干秒，此暫停是在后臺進(jìn)行，不影響正
常VCD連續(xù)播放
start＝Timer
DoWhileTimer＜start＋PauseTime
Loop
SendKeys＂｛enter｝，＾s，＾p，＾｛f4｝，％｛esc｝，＾4＂，True′模擬其它鍵盤動作，滿屏播放，隱藏面板等
End
finderr：
msg＄＝＂光驅(qū)未準(zhǔn)備好，或光驅(qū)中非VCD光盤，將光驅(qū)準(zhǔn)備好，＂
msg＄＝msg＄＆＂或換一張光盤，然后回車重試，或按取消退出＂
er＝MsgBox（msg＄，53，＂出錯提示＂）
Ifer＝4ThenResumestartlineElseEn′由用戶選擇重試或退出
EndSub
③將上述程序編譯成EXE文件，然后將其快捷方式拖至桌面，雙擊該圖標(biāo)，即可裝入Xing
MPEGPlayer并自動開始滿屏播放VCD，同時置PLAYER面板于StandardBar狀態(tài)，并將之隱藏
程序中＾表示Ctrl，％表示Alt，之所以程序中要連續(xù)插入暫停“＾S”和播放“＾P”兩個動作，是因為20版本的VCD在按Alt＋FV后即開始播放，10版本在按Alt＋FV后還要求按Ctrl＋P，而Ctrl＋P在播放狀態(tài)下又等價于Ctrl＋S（即暫停），所以如果只有一個“＾P”則使VCD10開始播放而VCD20暫停，為了兼顧兩種版本的VCD，首先模擬Ctrl＋S動作實現(xiàn)暫停，然后再模擬Ctrl＋P開始播放，從而使兩種版本的VCD在執(zhí)行本程序后都能實現(xiàn)自動播放。

上述程序在PWIN95、VISUALBASIC40和XingMPEGPLAYER32環(huán)境中調(diào)試通過。
->

上一篇：VB實現(xiàn)圖形動畫的三種方法

下一篇：VB數(shù)據(jù)庫多字段記錄的錄入