Tocar música de fundo
declaração:
DeclareFunctionMCISendString&Lib"MMSYSTEM"(ByValLPSTRCOMMAND$,ByValLPSTRRETURNSTRAsAny,ByValWRETURNLEN%,ByValHCALLBACK%)
Comece a jogar:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
parar:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&("STOPNN",0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
Entre eles, EXAMPLE.MID é o arquivo a ser reproduzido e NN é a marca de nome personalizada.
Faça o XMPlayer reproduzir VCD automaticamente
XingMPEGPlayer é um excelente software para descompactação suave e reprodução de VCD, mas uma série de operações como carregar o XM-player, entrar no estado de reprodução e ocultar o painel requerem vários cliques do mouse, o que é mais problemático. Em seguida, use o programa VB para primeiro verificar se a unidade óptica está pronta ou se há um disco VCD na unidade óptica e, em seguida, use VB para simular as ações do teclado do XingMPEG e realizar a reprodução automática do disco VCD através de apenas algumas linhas de programas.
1. Entre no ambiente VB, defina a propriedade Visible do formulário Form1 como False, em seguida, crie uma caixa de listagem de unidade Drivel no formulário e defina sua propriedade Visible como False para que o formulário e a caixa de listagem não sejam carregados quando o programa está carregado. Todas as outras propriedades assumem valores padrão.
2. Clique duas vezes no formulário e escreva o código do processo
PRivateSubForm—Carregar()
OnErrorGoTofindinder' verifica se a unidade óptica está pronta ou se há um disco VCD na unidade óptica
linha de partida:
drvnmb=Drive1ListCount
cdname＄=Drive1List（drvnmb－1）
arquivos＄=Dir＄（cdname＄&″/mpegav/*.dat″）
Iffiles$=”″ThenGoTofindinder
act=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)
'Supondo que o Xmplayer esteja localizado neste diretório, abra-o e coloque-o em foco
SendKeys "% (fv)", True' simula a ação do teclado Ctrl+fv e começa a reproduzir VCD
PauseTime=2′ Alguns discos VCD apresentarão alguns erros antes da reprodução devido à produção irregular. Para resolver esses erros, uma pausa é realizada por alguns segundos. Esta pausa é realizada em segundo plano e não afeta o normal. reprodução contínua de VCDs.
iniciar=Temporizador
DoWhileTimer<start+PauseTime
Laço
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ simula outras ações do teclado, reprodução em tela cheia, painéis ocultos, etc.
Fim
localizador:
msg$=”A unidade óptica não está pronta ou há um disco não VCD na unidade óptica. Prepare a unidade óptica.”
msg＄=msg＄&"Ou troque um CD e pressione Enter para tentar novamente ou pressione Cancelar para sair"
er=MsgBox(msg＄,53,"Mensagem de erro")
Ifer=4ThenResumestartlineElseEn′ O usuário escolhe tentar novamente ou sair
Fim Sub
3. Compile o programa acima em um arquivo EXE e arraste seu atalho para a área de trabalho. Clique duas vezes no ícone para carregar o XingMPEG Player e iniciar automaticamente a reprodução do VCD em tela cheia. estado e ocultá-lo. No programa, ^ significa Ctrl e% significa Alt. A razão pela qual as duas ações de pausar "^S" e reproduzir "^P" devem ser inseridas continuamente no programa é porque a versão 2.0 do VCD começa a ser reproduzida após pressionar Alt+FV, e a versão 1.0 também requer pressionar Ctrl+P após pressionando Alt+FV e Ctrl+P é equivalente a Ctrl+S (ou seja, pausar. ); portanto, se houver apenas um "^P", o VCD10 começará a tocar e o VCD20 fará uma pausa. Para levar em consideração as duas versões do VCD, primeiro simule a ação Ctrl+S para pausar e depois. simular Ctrl+P para iniciar a reprodução, formando assim as duas versões. Todos os VCDs podem ser reproduzidos automaticamente após a execução deste programa.
O programa acima foi depurado em ambientes Pwin95, VB5 e XingMPEGPlayer3.2. ->