A prank virus that opens a notepad and types automatically

Make the notepad type text automatically. Here are the steps:
  • Type the following code in notepad:
  • WScript.Sleep 2000
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "notepad"
    WScript.Sleep 100
    WshShell.AppActivate "Notepad"
    WScript.Sleep 500
    WshShell.SendKeys "H"
    WScript.Sleep 500
    WshShell.SendKeys "e" 
    WScript.Sleep 500
    WshShell.SendKeys "l"  
    WScript.Sleep 500
    WshShell.SendKeys "l" 
    WScript.Sleep 500
    WshShell.SendKeys "o " 
    WScript.Sleep 500
    WshShell.SendKeys "A" 
    WScript.Sleep 500
    WshShell.SendKeys "r" 
    WScript.Sleep 500
    WshShell.SendKeys "e " 
    WScript.Sleep 500
    WshShell.SendKeys "Y" 
    WScript.Sleep 500
    WshShell.SendKeys "o"  
    WScript.Sleep 500
    WshShell.SendKeys "u " 
    WScript.Sleep 500
    WshShell.SendKeys "f" 
    WScript.Sleep 500
    WshShell.SendKeys "r" 
    WScript.Sleep 500
    WshShell.SendKeys "e" 
    WScript.Sleep 500
    WshShell.SendKeys "a" 
    WScript.Sleep 500
    WshShell.SendKeys "k"  
    WScript.Sleep 500
    WshShell.SendKeys "e" 
    WScript.Sleep 500
    WshShell.SendKeys "d " 
    WScript.Sleep 500
    WshShell.SendKeys "o" 
    WScript.Sleep 500
    WshShell.SendKeys "u" 
    WScript.Sleep 500
    WshShell.SendKeys "t"  
    WScript.Sleep 500
    WshShell.SendKeys "?"
    
  • Save the file with "autotype.vbs" (i.e. file with any name with extension .vbs)
  • Open this file to run the trick.