Make Virus in VBScript

type following code in Notepad.
=================
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

=================

save it as "Enter.vbs"

cheer$..... your virus is ready for run...

[to stop working of this virus goto Task manager-> Processes-> Endprocess called "wscript.exe"]