Autor
Aqui esta un pequeño script escrito a partir del tuto de Novlucker. Lo que hace es abrir un bloc de notas y escribir ally los primeros 100 numeros de la serie de Fibonacci.
No es gran cosa, pero puede servir de ejemplo para los que empiezan.
Código:
Set objshell = createobject("wscript.shell")
Set bloc = objshell.exec("notepad") 'ejecutamos el bloc de notas
Wscript.sleep 2000
Objshell.appactivate bloc.processid
Wscript.sleep 200
x=1
y=1
Objshell.sendkeys x
Objshell.sendkeys "{ENTER}"
Wscript.sleep 1000
Objshell.sendkeys y
Objshell.sendkeys "{ENTER}"
Wscript.sleep 1000
For i=1 to 100 step 1
z=y+x
Objshell.appactivate bloc.processid
Objshell.sendkeys z
Objshell.sendkeys "{ENTER}"
Wscript.sleep 1000
x=y
y=z
next
En línea
