138701
Feb 08, 2019, updated at Feb 09, 2019 (UTC)
4462
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)*1000Durch 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?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 415686
Url: https://administrator.de/contentid/415686
Printed on: April 18, 2024 at 03:04 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
LoopSet 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
NextMit 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.
Hallo 138721,
Dein erstes Programm bringt mich leider nicht weiter, da es nur solange funktioniert wie der Rechner läuft...
Wie kann ich es benutzen ohne einen Taschenrechner im Hintergrund zu haben?
Bis jetzt habe ich mich erst nur mit Batch befasst. Könntest du es so umformen, dass ich es mit einem Batch Befehl beenden kann?
Taskkill funktioniert nicht...
Ileies
Dein erstes Programm bringt mich leider nicht weiter, da es nur solange funktioniert wie der Rechner läuft...
Wie kann ich es benutzen ohne einen Taschenrechner im Hintergrund zu haben?
Bis jetzt habe ich mich erst nur mit Batch befasst. Könntest du es so umformen, dass ich es mit einem Batch Befehl beenden kann?
Taskkill funktioniert nicht...
Ileies
