Включить фоновую музыку
заявление:
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-плеера, вход в состояние воспроизведения и скрытие панели, требуют многократного щелчка мышью, что более хлопотно. Затем используйте программу VB, чтобы сначала проверить, готов ли оптический привод или есть ли в оптическом приводе диск VCD. Затем используйте VB для имитации действий клавиатуры XingMPEG и реализуйте автоматическое воспроизведение диска VCD всего за несколько строк. программ.
1. Войдите в среду VB, установите для свойства Visible формы Form1 значение False, затем создайте в форме поле списка дисков Drivel и установите для его свойства Visible значение False, чтобы форма и окно списка не загружались при запуске программы. загружен. Все остальные свойства принимают значения по умолчанию.
2. Дважды щелкните форму и напишите код процесса.
PRivateSubForm — Загрузить()
OnErrorGoTofindinder проверяет, готов ли оптический привод или есть ли в оптическом приводе диск VCD.
стартовая линия:
drvnmb=Drive1ListCount
имя_cd＄=Диск1Список（drvnmb－1）
files＄=Dir＄（cdname＄&″/mpegav/*.dat″）
Iffiles$=”″ThenGoTofinder
act=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)
'Предположим, что Xmplayer находится в этом каталоге, откройте его и переведите на него фокус.
SendKeys «% (fv)», True имитирует действие клавиатуры Ctrl+fv и начинает воспроизведение VCD.
PauseTime=2′ Перед воспроизведением некоторых дисков VCD отображаются ошибки из-за нерегулярного воспроизведения. Чтобы устранить эти ошибки, выполняется пауза на несколько секунд. Эта пауза выполняется в фоновом режиме и не влияет на нормальное воспроизведение. непрерывное воспроизведение VCD.
start=Таймер
DoWhileTimer<start+PauseTime
Петля
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ имитирует другие действия клавиатуры, полноэкранное воспроизведение, скрытые панели и т. д.
Конец
искатель:
msg$=»Оптический привод не готов, или в оптическом приводе находится диск не VCD. Подготовьте оптический привод».
msg＄=msg＄&"Или смените компакт-диск, затем нажмите Enter, чтобы повторить попытку, или нажмите "Отмена", чтобы выйти"
er=MsgBox(msg＄,53,"Сообщение об ошибке")
Ifer=4ThenResumestartlineElseEn′ Пользователь выбирает повторную попытку или выход.
EndSub
3. Скомпилируйте указанную выше программу в EXE-файл, затем перетащите ее ярлык на рабочий стол. Дважды щелкните значок, чтобы загрузить XingMPEG Player и автоматически начать воспроизведение VCD в полноэкранном режиме. В то же время установите панель PLAYER в состояние StandardBar. и спрячь это. В программе ^ означает Ctrl, а % означает Alt. Причина, по которой два действия — приостановка «^S» и воспроизведение «^P» — должны быть вставлены непрерывно в программу, заключается в том, что версия 2.0 VCD начинает воспроизведение после нажатия Alt+FV, а версия 1.0 требует нажатия Ctrl+P после нажатия. Alt+FV, а Ctrl+P эквивалентен Ctrl+S (т. е. пауза). ); поэтому, если есть только один «^P», VCD10 начнет воспроизведение, а VCD20 встанет на паузу. Чтобы учесть две версии VCD, сначала смоделируйте действие Ctrl+S для паузы, а затем. имитируйте Ctrl+P, чтобы начать воспроизведение, создавая таким образом две версии. Все VCD-диски могут воспроизводиться автоматически после выполнения этой программы.
Вышеуказанная программа была отлажена в средах Pwin95, VB5 и XingMPEGPlayer3.2. ->