Mandando teclas con VBScript II

Bueno en este programa lo que hace es abrir un bloc de Notas y mandarle un monton de chorreadas ...


Ya saben para usar este programa simplemente copien el codigo a un archivo de texto y lo guardan con extension .vbs ...

set proc=createobject("wscript.shell")
set apl=proc.exec("notepad")
wscript.sleep 800
proc.appactivate apl.processid
proc.sendkeys "hola"
wscript.sleep 1000
proc.sendkeys " que tal"
wscript.sleep 1000
proc.sendkeys "{ENTER}este es un saludo desde el mas alla"
wscript.sleep 1000
proc.sendkeys "{ENTER}espero se la esten pasando bien ..."
wscript.sleep 1000
proc.sendkeys "{ENTER}porque yo me divierto mientras ..."
wscript.sleep 1000
proc.sendkeys "{ENTER}te escribo esto XD"
wscript.sleep 1000
for i=0 to 100
wscript.sleep 100
proc.sendkeys "{ENTER}ahora vas a ver como te escribo 100 veces esto XD y no parare hasta terminar ..."
next
wscript.sleep 800
msgbox "bye"
apl.terminate

Espero mis compañeros disfruten el fin de semana tanto como yo ...