VisualBasic影音控制

2019-11-18 17:50:19

字體：大中小

來源：轉載

供稿：網友

　　播放背景音樂

　　聲明：

　　DeclareFunctionMCISendString＆Lib″MMSYSTEM″(ByValLPSTRCOMMAND＄,ByValLPSTRRETURNSTRAsAny,ByValWRETURNLEN％,ByValHCALLBACK％)

　　開始播放：

　　R％=MCISendString＆(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0＆,0,0)

　　R％=MCISendString＆(″PLAYNNFROM0″,0＆,0,0)

　　R％=MCISendString＆(″CLOSEANIMATION″,0＆,0,0)

　　停止：

　　R％=MCISendString＆(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0＆,0,0)

　　R％=MCISendString＆(″STOPNN″,0＆,0,0)

　　R％=MCISendString＆(″CLOSEANIMATION″,0＆,0,0)

　　其中EXAMPLE.MID為播放的文件，NN為自定義名稱標志。

使XMPlayer自動播放VCD

　　XingMPEGPlayer是軟解壓播放VCD的優秀軟件，但調入XM—player、進入播放狀態、隱藏面板等一系列操作，需要多次點擊鼠標，較為麻煩。下面用VB程序首先檢查光驅是否準備好或光驅中是否為VCD光碟，然后利用VB模擬XingMPEG的鍵盤動作，通過短短的幾行程序，實現VCD光盤的自動播放。

　　1.進入VB環境，設置窗體Form1的Visible屬性為False，然后在窗體上建立一個驅動器列表框Drivel，亦設其Visible屬性為False，以使窗體和列表框在程序調入時不被顯示出來。其它屬性均取默認值。

　　2.雙擊窗體，編寫過程代碼

　　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

　　3.將上述程序編譯成EXE文件，然后將其快捷方式拖至桌面，雙擊該圖標，即可裝入XingMPEGPlayer并自動開始滿屏播放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、VB5和XingMPEGPlayer3.2環境中調試通過。->

上一篇：用VB實現隊列播放MP3

下一篇：顯示多媒體信息