Hack Your Friend's Keyboard And Make Him Type You Are A Fool Simultaneously

 Open Notepad Type :
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.