How to make a fake virus using notepad

Notepad code=X = MsgBox("Virus Activated",2+16,"Virus Alert")


X = MsgBox("Your PC is attacked with Trojan. Sending Data...",2+64,"Trojan Horse")


X = MsgBox("Your Computer is Hacked!!!",1+64,"Trojan Horse")

set speechobject = createobject("sapi.spvoice")
speechobject.speak "Your PC is Hacked by the Trojan"
speechobject.speak "Your PC is Hacked by the Trojan"
speechobject.speak "Your PC is Hacked by the Trojan"
speechobject.speak "Your PC is Hacked by the Trojan"
speechobject.speak "Your PC is Hacked by the Trojan"

WScript.Sleep 20


set WshShell = Wscript.createObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10

WshShell.AppActivate "notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo"
WScript.Sleep 500
WshShell.SendKeys ", Ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u? "
WScript.Sleep 500
WshShell.SendKeys "Th"
WScript.Sleep 500
WshShell.SendKeys "is "
WScript.Sleep 500
WshShell.SendKeys "P"
WScript.Sleep 500
WshShell.SendKeys "C"
WScript.Sleep 500
WshShell.SendKeys ","
WScript.Sleep 500
WshShell.SendKeys " is"
WScript.Sleep 500
WshShell.SendKeys " ,"
WScript.Sleep 500
WshShell.SendKeys ","
WScript.Sleep 500
WshShell.SendKeys " ha"
WScript.Sleep 500
WshShell.SendKeys "ck"
WScript.Sleep 500
WshShell.SendKeys "ed!!"

WScript.Sleep 30000

X = MsgBox("It is a prank ",0,"HaHa")