Mi primer script Vbs!! La serie de Fibonacci!!

[WiZZard]

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 [Seleccionar] Expandir




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