Reproducir música de fondo
declaración:
DeclareFunctionMCISendString&Lib"MMSYSTEM"(ByValLPSTRCOMMAND$,ByValLPSTRRETURNSTRAsAny,ByValWRETURNLEN%,ByValHCALLBACK%)
Empieza a jugar:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
detener:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&("STOPNN",0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
Entre ellos, EXAMPLE.MID es el archivo que se va a reproducir y NN es la marca de nombre personalizado.
Hacer que XMPlayer reproduzca VCD automáticamente
XingMPEGPlayer es un excelente software para descompresión suave y reproducción de VCD, pero una serie de operaciones como cargar el reproductor XM, ingresar al estado de reproducción y ocultar el panel requieren varios clics del mouse, lo cual es más problemático. A continuación, use el programa VB para verificar primero si la unidad óptica está lista o si hay un disco VCD en la unidad óptica, y luego use VB para simular las acciones del teclado de XingMPEG y realizar la reproducción automática del disco VCD con solo unas pocas líneas. de programas.
1. Ingrese al entorno VB, establezca la propiedad Visible del formulario Form1 en False, luego cree un cuadro de lista de unidades Drivel en el formulario y establezca su propiedad Visible en False para que el formulario y el cuadro de lista no se carguen cuando el programa está cargado. Todas las demás propiedades toman valores predeterminados.
2. Haga doble clic en el formulario y escriba el código de proceso.
PRIvateSubForm—Cargar()
OnErrorGoTofindinder' comprueba si la unidad óptica está lista o si hay un disco VCD en la unidad óptica
línea de salida:
drvnmb=Unidad1ListCount
cdname＄=Unidad1Lista（drvnmb－1）
archivos＄=Dir＄（cdname＄&″/mpegav/*.dat″）
Iffiles$=”″EntoncesGoTofindinder
actuar=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)
'Suponiendo que Xmplayer se encuentra en este directorio, ábrelo y dale foco
SendKeys "% (fv)", True' simula la acción del teclado Ctrl+fv y comienza a reproducir VCD
PauseTime=2′ Algunos discos VCD mostrarán algunos errores antes de reproducirlos debido a una producción irregular. Para solucionar estos errores, se realiza una pausa durante unos segundos. Esta pausa se realiza en segundo plano y no afecta la normalidad. Reproducción continua de discos VCD.
inicio=Temporizador
DoWhileTimer<inicio+Tiempo de pausa
Bucle
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ simula otras acciones del teclado, reproducción en pantalla completa, paneles ocultos, etc.
Fin
buscador:
msg$=”La unidad óptica no está lista o hay un disco que no es VCD en la unidad óptica. Prepare la unidad óptica”.
msg＄=msg＄&"O cambie un CD, luego presione Entrar para intentar nuevamente, o presione Cancelar para salir"
er=MsgBox(msg＄,53,"Mensaje de error")
Ifer=4ThenResumestartlineElseEn′ El usuario elige volver a intentarlo o salir
FinSub
3. Compile el programa anterior en un archivo EXE, luego arrastre su acceso directo al escritorio. Haga doble clic en el icono para cargar XingMPEG Player y comenzar a reproducir VCD automáticamente en pantalla completa. Al mismo tiempo, configure el panel PLAYER en StandardBar. indicarlo y ocultarlo. En el programa, ^ significa Ctrl y% significa Alt. La razón por la que las dos acciones de pausar "^S" y reproducir "^P" deben insertarse continuamente en el programa es porque la versión 2.0 del VCD comienza a reproducirse después de presionar Alt+FV, y la versión 1.0 también requiere presionar Ctrl+P después presionando Alt+FV y Ctrl+P es equivalente a Ctrl+S (es decir, pausar). ); entonces, si solo hay una "^P", VCD10 comenzará a reproducirse y VCD20 se pausará. Para tener en cuenta las dos versiones de VCD, primero simule la acción Ctrl+S para pausar y luego. Simule Ctrl+P para comenzar a reproducir, haciendo así que las dos versiones. Todos los VCD se pueden reproducir automáticamente después de ejecutar este programa.
El programa anterior ha sido depurado en entornos Pwin95, VB5 y XingMPEGPlayer3.2. ->