138701
Feb 08, 2019, updated at Feb 09, 2019 (UTC)
4477
3
0
Musik-Loop in VBS
Hallo zusammen,
Ich habe folgendes Programm geschrieben:
Durch das Programm wird eine Musikdatei einmal im Hintergrund abgespielt.
1) Wie kann ich machen, dass die Musikdatei solange wiederholt wird bis ein anderer Befehl ausgeführt wurde?
2) Wie kann ich einstellen, dass sie z.B. 3mal hintereinander wiederholt wird?
3) Wie kann ich sie während sie noch am laufen ist beenden?
Ich habe folgendes Programm geschrieben:
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "Text.wav"
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000
Durch das Programm wird eine Musikdatei einmal im Hintergrund abgespielt.
1) Wie kann ich machen, dass die Musikdatei solange wiederholt wird bis ein anderer Befehl ausgeführt wurde?
2) Wie kann ich einstellen, dass sie z.B. 3mal hintereinander wiederholt wird?
3) Wie kann ich sie während sie noch am laufen ist beenden?
Please also mark the comments that contributed to the solution of the article
Content-Key: 415686
Url: https://administrator.de/contentid/415686
Printed on: May 15, 2024 at 03:05 o'clock
3 Comments
Latest comment
1.)
2.)
3.) ==> Deine Hausaufgabe
Mit dieser Lektüre ein Kinderspiel
https://docs.microsoft.com/en-us/windows/desktop/wmp/player-object
https://docs.microsoft.com/en-us/windows/desktop/wmp/controls-stop
Gruß l.
Set Sound = CreateObject("WMPlayer.OCX")
Set objShell = CreateObject("Wscript.Shell")
Sound.settings.volume = 90
Sound.settings.autoStart = True
Sound.URL = "Text.wav"
Set cmd = objShell.Exec("calc.exe")
Do While cmd.Status = 0
WScript.Sleep 100
If Sound.playState <> 3 Then Sound.Controls.play
Loop
Set Sound = CreateObject("WMPlayer.OCX")
Sound.settings.volume = 90
'Sound.settings.autoStart = True
Sound.URL = "Text.wav"
For i = 1 To 3
Sound.Controls.play
While sound.playState <> 1
WScript.Sleep 100
Wend
Next
Mit dieser Lektüre ein Kinderspiel
https://docs.microsoft.com/en-us/windows/desktop/wmp/player-object
https://docs.microsoft.com/en-us/windows/desktop/wmp/controls-stop
Gruß l.