배경 음악 재생
성명:
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 - 로드()
OnErrorGoTofindinder'는 광학 드라이브가 준비되었는지 또는 광학 드라이브에 VCD 디스크가 있는지 확인합니다.
출발선:
drvnmb=Drive1ListCount
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<start+PauseTime
고리
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ 다른 키보드 동작, 전체 화면 재생, 숨겨진 패널 등을 시뮬레이션합니다.
끝
찾기:
msg$="광학 드라이브가 준비되지 않았거나 광학 드라이브에 VCD가 아닌 디스크가 있습니다."
msg$=msg$&"또는 CD를 변경한 다음 Enter를 눌러 다시 시도하거나 취소를 눌러 종료하십시오."
er=MsgBox(msg$,53,"오류 메시지")
Ifer=4ThenResumestartlineElseEn′ 사용자가 재시도 또는 종료를 선택합니다.
EndSub
3. 위 프로그램을 EXE 파일로 컴파일한 다음 해당 바로가기를 바탕 화면으로 드래그하여 XingMPEG Player를 로드하고 자동으로 VCD 재생을 시작합니다. 동시에 PLAYER 패널을 StandardBar 상태로 설정합니다. 숨기세요. 프로그램에서 ^는 Ctrl을 의미하고, %는 Alt를 의미합니다. "^S"를 일시정지하고 "^P"를 재생하는 두 가지 동작을 프로그램에 계속 삽입해야 하는 이유는 VCD 버전 2.0은 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 환경에서 디버깅되었습니다. ->