Contrôle audio et vidéo VisualBasic

Jouer de la musique de fond

déclaration:

DeclareFunctionMCISendString&Lib"MMSYSTEM"(ByValLPSTRCOMMAND$,ByValLPSTRRETURNSTRAsAny,ByValWRETURNLEN%,ByValHCALLBACK%)

Commencez à jouer :

R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)

R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)

R%=MCISendString&("FERMETURE",0&,0,0)

arrêt:

R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)

R%=MCISendString&("STOPNN",0&,0,0)

R%=MCISendString&("FERMETURE",0&,0,0)

Parmi eux, EXAMPLE.MID est le fichier à lire et NN est la marque de nom personnalisée.

Faire en sorte que XMPlayer lise automatiquement les VCD

XingMPEGPlayer est un excellent logiciel pour la décompression douce et la lecture de VCD, mais une série d'opérations telles que le chargement du lecteur XM, l'entrée dans l'état de lecture et le masquage du panneau nécessitent plusieurs clics de souris, ce qui est plus gênant. Ensuite, utilisez le programme VB pour vérifier d'abord si le lecteur optique est prêt ou s'il y a un disque VCD dans le lecteur optique. Ensuite, utilisez VB pour simuler les actions du clavier de XingMPEG et réaliser la lecture automatique du disque VCD en quelques lignes seulement. de programmes.

1. Entrez dans l'environnement VB, définissez la propriété Visible du formulaire Form1 sur False, puis créez une zone de liste de lecteur Drivel sur le formulaire et définissez sa propriété Visible sur False afin que le formulaire et la zone de liste ne soient pas chargés lorsque le programme est chargé. Montrez-le. Toutes les autres propriétés prennent des valeurs par défaut.

2. Double-cliquez sur le formulaire et écrivez le code du processus

PRivateSubForm—Charger()

OnErrorGoTofindinder' vérifie si le lecteur optique est prêt ou s'il y a un disque VCD dans le lecteur optique

ligne de départ :

drvnmb=Drive1ListCount

cdname＄=Drive1List（drvnmb－1）

fichiers＄=Dir＄（nomcd＄&″/mpegav/*.dat″）

Iffiles$=”″ThenGoTofindinder

act=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)

'Supposons que Xmplayer se trouve dans ce répertoire, ouvrez-le et donnez-lui le focus

SendKeys "% (fv)", True' simule l'action du clavier Ctrl+fv et commence à lire le VCD

PauseTime=2′ Certains disques VCD recevront des erreurs avant la lecture en raison d'une production irrégulière. Afin de traiter ces erreurs, une pause est effectuée pendant quelques secondes. Cette pause est effectuée en arrière-plan et n'affecte pas la normale. lecture continue de VCD.

start = Minuterie

DoWhileTimer<début+PauseTime

Boucle

SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ ​​​​​​simule d'autres actions du clavier, la lecture en plein écran, les panneaux cachés, etc.

Fin

chercheur :

msg$="Le lecteur optique n'est pas prêt ou il y a un disque non VCD dans le lecteur optique. Préparez le lecteur optique."

msg＄=msg＄&"Ou changez de CD, puis appuyez sur Entrée pour réessayer, ou appuyez sur Annuler pour quitter"

er=MsgBox(msg＄,53,"Message d'erreur")

Ifer=4ThenResumestartlineElseEn′ L'utilisateur choisit de réessayer ou de quitter

FinSub

3. Compilez le programme ci-dessus dans un fichier EXE, puis faites glisser son raccourci sur le bureau. Double-cliquez sur l'icône pour charger XingMPEG Player et démarrez automatiquement la lecture du VCD en plein écran. En même temps, réglez le panneau PLAYER sur l'état StandardBar. et cachez-le. Dans le programme, ^ signifie Ctrl et % signifie Alt. La raison pour laquelle les deux actions de pause "^S" et de lecture de "^P" doivent être insérées en continu dans le programme est que la version 2.0 du VCD commence à jouer après avoir appuyé sur Alt+FV, et la version 1.0 nécessite d'appuyer sur Ctrl+P après avoir appuyé sur Alt+FV , et Ctrl+P est équivalent à Ctrl+S (c'est-à-dire pause. ); donc s'il n'y a qu'un seul "^P", VCD10 commencera la lecture et VCD20 fera une pause. Afin de prendre en compte les deux versions de VCD, simulez d'abord l'action Ctrl+S pour mettre en pause, puis ensuite. simulez Ctrl+P pour commencer la lecture, créant ainsi les deux versions. Tous les VCD peuvent être lus automatiquement après l'exécution de ce programme.

Le programme ci-dessus a été débogué dans les environnements Pwin95, VB5 et XingMPEGPlayer3.2. ->