Saludos y una pequeña ayuda.

Presentaciones - Mensajes de Bienvenida - Mensagem de Boas-vindas

Saludos y una pequeña ayuda.

Notapor elroi » 18 Feb 2014, 15:29

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.
elroi
 
Mensajes: 6
Registrado: 06 Feb 2014, 14:02

Re: Saludos y una pequeña ayuda.

Notapor Dany » 18 Feb 2014, 15:34

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
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 638
Registrado: 28 Mar 2012, 22:49

Re: Saludos y una pequeña ayuda.

Notapor elroi » 18 Feb 2014, 15:42

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.
elroi
 
Mensajes: 6
Registrado: 06 Feb 2014, 14:02

Re: Saludos y una pequeña ayuda.

Notapor Dany » 18 Feb 2014, 15:45

Y para cual rutina funciona ese código?
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 638
Registrado: 28 Mar 2012, 22:49

Re: Saludos y una pequeña ayuda.

Notapor elroi » 19 Feb 2014, 14:28

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.
elroi
 
Mensajes: 6
Registrado: 06 Feb 2014, 14:02

Re: Saludos y una pequeña ayuda.

Notapor Dany » 19 Feb 2014, 15:07

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
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 638
Registrado: 28 Mar 2012, 22:49

Re: Saludos y una pequeña ayuda.

Notapor elroi » 19 Feb 2014, 16:04

Estimado gracias por el apoyo.

estaré realizando algunas pruebas, cualquier cosa te comento.

salu2.
elroi
 
Mensajes: 6
Registrado: 06 Feb 2014, 14:02


Volver a Welcome ¡ Presentación - Bienvenida - Boas-vindas! -Apresentações

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado