Imprimir Página - Mi primer script Vbs!! La serie de Fibonacci!!

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

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: WiZZard en 22 Agosto 2010, 05:35 am