VisualBasic Audio- und Videosteuerung

Spielen Sie Hintergrundmusik ab

Stellungnahme:

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

Beginnen Sie mit dem Spielen:

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

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

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

stoppen:

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

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

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

Unter diesen ist EXAMPLE.MID die abzuspielende Datei und NN die benutzerdefinierte Namensmarkierung.

Lassen Sie XMPlayer VCD automatisch abspielen

XingMPEGPlayer ist eine hervorragende Software für die sanfte Dekomprimierung und das Abspielen von VCDs. Eine Reihe von Vorgängen wie das Laden des XM-Players, das Aufrufen des Wiedergabestatus und das Ausblenden des Bedienfelds erfordern jedoch mehrere Mausklicks, was mühsamer ist. Als nächstes überprüfen Sie mit dem VB-Programm zunächst, ob das optische Laufwerk bereit ist oder ob sich eine VCD-Disc im optischen Laufwerk befindet. Anschließend simulieren Sie mit VB die Tastaturaktionen von XingMPEG und realisieren die automatische Wiedergabe der VCD-Disc über nur wenige Zeilen von Programmen.

1. Rufen Sie die VB-Umgebung auf, setzen Sie die Visible-Eigenschaft des Formulars Form1 auf False, erstellen Sie dann ein Laufwerkslistenfeld Drivel auf dem Formular und setzen Sie seine Visible-Eigenschaft auf False, damit das Formular und das Listenfeld beim Ausführen des Programms nicht geladen werden ist geladen. Alle anderen Eigenschaften übernehmen Standardwerte.

2. Doppelklicken Sie auf das Formular und schreiben Sie den Prozesscode

PRivateSubForm – Load()

„OnErrorGoTofindinder“ prüft, ob das optische Laufwerk bereit ist oder ob sich eine VCD-Disc im optischen Laufwerk befindet

Startlinie:

drvnmb=Drive1ListCount

cdname＄=Drive1List（drvnmb－1）

files＄=Dir＄（cdname＄&″/mpegav/*.dat″）

Iffiles$=“″ThenGoTofindinder

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

„Angenommen, Xmplayer befindet sich in diesem Verzeichnis, öffnen Sie ihn und geben Sie ihm den Fokus.“

SendKeys „% (fv)“, True‘ simuliert die Tastaturaktion Strg+fv und startet die VCD-Wiedergabe

PauseTime=2′ Bei einigen VCD-Discs werden vor der Wiedergabe aufgrund unregelmäßiger Produktion einige Fehler angezeigt. Um diese Fehler zu beheben, wird eine Pause für einige Sekunden durchgeführt und hat keinen Einfluss auf den Normalbetrieb kontinuierliche Wiedergabe von VCDs.

start=Timer

DoWhileTimer<start+PauseTime

Schleife

SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ ​​​​simuliert andere Tastaturaktionen, Vollbildwiedergabe, ausgeblendete Bedienfelder usw.

Ende

Finder:

msg$=“Das optische Laufwerk ist nicht bereit, oder es befindet sich eine Nicht-VCD-Disc im optischen Laufwerk. Bereiten Sie das optische Laufwerk vor.“

msg＄=msg＄&"Oder wechseln Sie eine CD und drücken Sie dann die Eingabetaste, um es erneut zu versuchen, oder drücken Sie Abbrechen, um den Vorgang zu beenden"

er=MsgBox(msg＄,53,"Fehlermeldung")

Ifer=4ThenResumestartlineElseEn′ Der Benutzer entscheidet, ob er es erneut versuchen oder beenden möchte

EndSub

3. Kompilieren Sie das obige Programm in eine EXE-Datei und ziehen Sie dann seine Verknüpfung auf den Desktop. Doppelklicken Sie auf das Symbol, um den XingMPEG Player zu laden und die VCD automatisch im Vollbildmodus abzuspielen. Stellen Sie gleichzeitig das PLAYER-Bedienfeld auf den StandardBar-Status ein und verstecke es. Im Programm bedeutet ^ Strg und % Alt. Der Grund dafür, dass die beiden Aktionen „^S“ anhalten und „^P“ abspielen, fortlaufend in das Programm eingefügt werden müssen, liegt darin, dass Version 2.0 der VCD nach dem Drücken von Alt+FV mit der Wiedergabe beginnt und Version 1.0 das Drücken von Strg+P nach dem Drücken erfordert Alt+FV und Strg+P entsprechen Strg+S (also Pause). ); wenn also nur ein „^P“ vorhanden ist, beginnt die Wiedergabe von VCD10 und die Wiedergabe von VCD20 wird angehalten. Um die beiden Versionen von VCD zu berücksichtigen, simulieren Sie zuerst die Aktion „Strg+S“ zum Anhalten und dann Simulieren Sie Strg+P, um die Wiedergabe zu starten, wodurch die beiden Versionen erstellt werden. Alle VCDs können nach der Ausführung dieses Programms automatisch abgespielt werden.

Das obige Programm wurde in Pwin95-, VB5- und XingMPEGPlayer3.2-Umgebungen debuggt. ->