how to make GDI prank virus by VBS script | Cyber slot

Описание: MsgBox "WARNING:IT IS SO ANNOYING", vbOKOnly + vbInformation, "WARNING"
Dim speech
Set speech = CreateObject("SAPI.SpVoice")
speech.Speak "O K ha ha ha"
do
Set objShell = CreateObject("WScript.Shell")
objShell.Run "powershell -c [System.Media.SystemSounds]::Exclamation.Play()", 0, True
Set objShell = CreateObject("WScript.Shell")
objShell.Run "powershell -c [System.Media.SystemSounds]::Hand.Play()", 0, True
Set objShell = CreateObject("WScript.Shell")
objShell.SendKeys "%{TAB}" 'Quickly shift between windows.
objShell.SendKeys "^{ESC}" 'Quickly open and close the start menu in some versions of windows.
WScript.Sleep 100 ' Wait for a short time (100 milliseconds)
loop