Mandando teclas con VBScript

Uy es Viernes y es noche de programar toda la noche XD aver que logramos hacer ...

por el momento os dejo con lo uqe me puse a hacer mientras descansaba un poquito son unos programitas que simplemente mandanteclas a otros programas como el notepad ... haciendo cosas exoticas Bueno aqui les dejo el codigo del primero que practicamente lo que hace es manda teclas a la calculadora con el fin de que automatize acciones ... pero tambien sirve para espantar a alguien ... bueno aqui el codigo ...


set proc=createobject("wscript.shell")
set miap=proc.exec("calc")

wscript.sleep 800
proc.appactivate miap.processid
proc.sendkeys "43"

wscript.sleep 800
proc.appactivate miap.processid
proc.sendkeys "{+}"

wscript.sleep 800
proc.appactivate "calculadora"
proc.sendkeys "40"


wscript.sleep 800
proc.appactivate miap.processid
proc.sendkeys "~"
wscript.sleep 800
proc.sendkeys "{+}"
wscript.sleep 800
proc.sendkeys "56"
wscript.sleep 800
proc.sendkeys "{+}"
wscript.sleep 800
proc.sendkeys "50"
wscript.sleep 800
proc.sendkeys "~"
wscript.sleep 800


msgbox "listo"
miap.terminate

para poder usarlo copian el codigo y lo guardan en un archivo de texto con extencion .vbs y espero se disfrute ...