Saludos y una pequeña ayuda.
Publicado: 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.
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.