バックグラウンドミュージックを再生する
声明：
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 に設定してから、フォーム上にドライブ リスト ボックス Drive1 を作成し、その Visible プロパティを False に設定して、プログラムの実行時にフォームとリスト ボックスが読み込まれないようにします。ロードされています。他のすべてのプロパティはデフォルト値を取得します。
2. フォームをダブルクリックし、プロセスコードを記述します
PRivateSubForm—Load()
OnErrorGoTofindinder' は、光学ドライブの準備ができているかどうか、または光学ドライブに VCD ディスクがあるかどうかを確認します。
スタートライン:
drvnmb=ドライブ1リスト数
cdname＄=ドライブ1リスト（drvnmb－1）
files＄=Dir＄（cdname＄&″/mpegav/*.dat″）
Iffiles$=”″ThenGoTofindinder
act=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)
'Xmplayer がこのディレクトリにあると仮定し、それを開いてフォーカスを与えます
SendKeys "% (fv)", True' は Ctrl+fv キーボード操作をシミュレートし、VCD の再生を開始します
PauseTime=2' 一部の VCD ディスクでは、不規則な制作のため、再生前にエラーが表示されます。このエラーに対処するために、数秒間一時停止が行われます。この一時停止は、通常の動作には影響しません。 VCD の連続再生。
開始=タイマー
DowhileTimer<開始+一時停止時間
ループ
SendKeys''{enter}、^s、^p、^{f4}、%{esc}、^4''、True' は、他のキーボード操作、全画面再生、非表示パネルなどをシミュレートします。
終わり
ファインダー:
msg$=”光学ドライブの準備ができていないか、光学ドライブに非 VCD ディスクが入っています。”
msg＄=msg＄&"または、CD を変更して Enter を押して再試行するか、Cancel を押して終了してください。"
er=MsgBox(msg＄,53,"エラーメッセージ")
Ifer=4ThenResumestartlineElseEn' ユーザーは再試行するか終了するかを選択します
EndSub
3. 上記のプログラムを EXE ファイルにコンパイルし、そのショートカットをデスクトップにドラッグして、XingMPEG Player をロードし、同時に PLAYER パネルを StandardBar 状態に設定します。そしてそれを隠します。プログラム中の ^ は Ctrl、% は Alt を意味します。一時停止 "^S" と再生 "^P" の 2 つのアクションをプログラムに連続的に挿入する必要がある理由は、VCD のバージョン 2.0 では Alt+FV を押した後に再生が開始され、バージョン 1.0 では押した後に Ctrl+P を押す必要があるためです。 Alt+FV 、および Ctrl+P は Ctrl+S と同等です (つまり、一時停止します)。 ); したがって、「^P」が 1 つだけの場合は、VCD1-0 が再生を開始し、VCD2-0 が一時停止します。VCD の 2 つのバージョンを考慮するには、まず Ctrl+S アクションをシミュレートして一時停止します。 Ctrl+P をシミュレートして再生を開始すると、2 つのバージョンが作成されます。このプログラムを実行すると、すべての VCD が自動的に再生されます。
上記プログラムは、Pwin95、VB5、XingMPEGPlayer3.2環境でデバッグされています。 ->