Funny tricks of Your Keyboard Type (Any) Message Continuously

 (Don't Worry- Restart your computer to stop this programme
 Send this file to your friends as an email attachment to see the fun.)

CODE OF THIS TRICKS

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected."
loop