Como Hackear teclado do seu amigo

Hackear teclado do seu amigo e fazer ele digitar Eu sou maluco simultaneamente tipo:
Definir WshShell = WScript.CreateObject (WScript.Shell)
fazer
WScript.Sleep 100
wshshell.sendkeys Eu sou maluco.
loop
Salve-o como Anything.VBS e enviá-lo.