Saludos y una pequeña ayuda.

[elroi]

Estimados, gusto de saludarlos por este intermedio.
Es un placer formar parte de este foro y a la vez poder aprender nuevas cosas referentes a programar con AutoIt. Debo decir que soy Técnico en Electrónica, actualmente estoy terminando mi último año de Ingeniería en Telecomunicaciones y Redes, esto de la informática y programación me ha costado un poco, sin embargo estoy con las ganas de sacarlo el mayor provecho.

A propósito quiero realizar una pequeña consulta sobre un respaldo de información que realizo en mi trabajo.
Normalmente realiza el trabajo que es respaldar 24 rutinas de trabajo; sin embargo ahora deseo respaldar solo 6.
les copio el código fuente :

$answer = MsgBox(4, "Respaldo", "Desea realizar respaldo?")

If $answer = 7 Then
Exit
EndIf

$count = 0

Do

WinWaitActive("Contabilidad y Presupuestos")
Send("!r")
send("r")

WinWaitActive("Respaldo/Recuperación de empresas")
send("{ENTER}")
Sleep(1000)
send(@TAB & @TAB)
Sleep(1000)
Send("{down 4}")
Sleep(1000)
send(@TAB)

if $count <> 0 Then

For $i = 1 To $count
Send("{down 1}")
Next

if $count == 7 Then
Send("{down 1}")
$count = $count + 7
EndIf

EndIf

Sleep(5000)
send("!u")
Sleep(1000)
send("!u")
Sleep(20000)
send("!u")
Sleep(1000)
send("!e")
WinWaitActive("Respaldo a Recuperación Base de Datos")
send("{ENTER}")


$count = $count + 1

Until $count > 24


Atento alguna respuesta.

salu2.

[Dany]

Bienvenido :)


SOlo tienes que cambiar el numero 24 por 6. al final.


asi:

Código: Seleccionar todo

$answer = MsgBox(4, "Respaldo", "Desea realizar respaldo?")

If $answer = 7 Then
Exit
EndIf

$count = 0

Do

WinWaitActive("Contabilidad y Presupuestos")
Send("!r")
send("r")

WinWaitActive("Respaldo/Recuperación de empresas")
send("{ENTER}")
Sleep(1000)
send(@TAB & @TAB)
Sleep(1000)
Send("{down 4}")
Sleep(1000)
send(@TAB)

if $count <> 0	Then

For $i = 1 To $count
Send("{down 1}")
Next

if $count == 7 Then
Send("{down 1}")
$count = $count + 7 
EndIf

EndIf

Sleep(5000)
send("!u")
Sleep(1000)
send("!u")
Sleep(20000)
send("!u")
Sleep(1000)
send("!e")
WinWaitActive("Respaldo a Recuperación Base de Datos")
send("{ENTER}")


$count = $count + 1 

Until $count > 6

Saludos

[elroi]

Gracias Dany por la buena intención de ayudar.
sin embargo debo aclarar que este código fuente ya estaba de ese modo, que anteriormente otra persona lo hizo.

para ser más claro, mi pregunta específica es :
quiero solamente programar por ejemplo : la rutina 2, 6,11,14,19,22

Espero dejarme entender.

salu2.

[Dany]

Y para cual rutina funciona ese código?

[elroi]

En estos momentos esta funcionando para todas las rutinas es decir realiza el respaldo en forma secuencial, desde el Número 1 hasta el 24.
Cabe recalcar que cada número esta asignado formalmente un nombre.

salu2.

[Dany]

mmmm entonces creo que algo asi funcionaria:

Código: Seleccionar todo

$answer = MsgBox(4, "Respaldo", "Desea realizar respaldo?")

If $answer = 7 Then
Exit
EndIf

$count = 0

Do

WinWaitActive("Contabilidad y Presupuestos")
Send("!r")
send("r")

WinWaitActive("Respaldo/Recuperación de empresas")
send("{ENTER}")
Sleep(1000)
send(@TAB & @TAB)
Sleep(1000)
Send("{down 4}")
Sleep(1000)
send(@TAB)

if $count =1  or $count =2 or $count =6 or $count =11 or $count = 14 or $count =19 or $count =22 Then
For $i = 1 To $count
Send("{down 1}")
Next

if $count == 7 Then
Send("{down 1}")
$count = $count + 7 
EndIf

EndIf

Sleep(5000)
send("!u")
Sleep(1000)
send("!u")
Sleep(20000)
send("!u")
Sleep(1000)
send("!e")
WinWaitActive("Respaldo a Recuperación Base de Datos")
send("{ENTER}")


$count = $count + 1 

Until $count > 24

Saludos

[elroi]

Estimado gracias por el apoyo.

estaré realizando algunas pruebas, cualquier cosa te comento.

salu2.