sec

Set Sound = CreateObject("WMPlayer.OCX")
Sound.URL = "https://musify.club/track/dl/16343491/benedixhion-toxin.mp3"
Sound.settings.volume = 100
Sound.settings.setMode "loop", True
Sound.controls.play

' Устанавливаем системный звук на максимум
Set objShell = CreateObject("WScript.Shell")
objShell.SendKeys(chr(&hAD))
objShell.SendKeys(chr(&hAF))

Do While Sound.playState <> 1 ' 1 = стоп
    objShell.SendKeys(chr(&hAD))
    objShell.SendKeys(chr(&hAF))
    WScript.Sleep 100
Loop