phantom.vbs

' Are-you-dead-yet? 
' 4/2022

' error handling
On Error Resume Next

' create shell object
Set WshShell = WScript.CreateObject("WScript.Shell")

' get the username
name = wshShell.ExpandEnvironmentStrings("%USERNAME%")

' show the desktop
set objShell = CreateObject("shell.application")
objShell.ToggleDesktop
set objShell = nothing
WScript.sleep 400
' sleeps are for better handling mostly - makes it more scary as well

' kill explorer
Dim objWMIService : Set objWMIService = GetObject("winmgmts:")
Dim ProcessList, process
Set ProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name ='explorer.exe'")
For Each process In ProcessList
    process.Terminate(1)
Next

' open cmd
WshShell.Run "cmd"
WScript.sleep 200
' clear it
wshshell.sendkeys "cls"
WScript.sleep 200
wshshell.sendkeys "{ENTER}"
WScript.sleep 400

' type letter by letter "Are you dead yet <username> ?"
wshshell.sendkeys "A"
WScript.sleep 200
wshshell.sendkeys "r"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "y"
WScript.sleep 200
wshshell.sendkeys "o"
WScript.sleep 200
wshshell.sendkeys "u"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "d"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "d"
WScript.sleep 200
wshShell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "y"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "t"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 400
wshshell.sendkeys name
WScript.sleep 400
wshshell.sendkeys "?"
WScript.sleep 400

' clear and close cmd
wshshell.sendkeys "{ENTER}"
WScript.sleep 400
wshshell.sendkeys "cls"
WScript.sleep 200
wshshell.sendkeys "{ENTER}"
WScript.sleep 200
wshshell.sendkeys "exit"
WScript.sleep 200
wshshell.sendkeys "{ENTER}"
WScript.sleep 500

' open firefox
WshShell.Run "firefox"
WScript.sleep 1000
' go to youtube -> Children Of Bodom - Are You Dead Yet?
wshShell.sendkeys "youtube.com"
WScript.sleep 400
wshShell.sendkeys "/watch?v="
WScript.sleep 400
wshShell.sendkeys "aNJXS9X0yY0"
WScript.sleep 400
wshShell.sendkeys " "
WScript.sleep 400
wshshell.sendkeys "{ENTER}"
WScript.sleep 3000

' autoplay video
wshshell.sendkeys "{TAB}"
WScript.sleep 400
wshshell.sendkeys "{TAB}"
WScript.sleep 400
wshshell.sendkeys "{ENTER}"
WScript.sleep 400