|
Página 1 de 1
|
Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Autor |
Mensaje |
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Buenos días!.
Imaginar una aplicación que se esta ejecutando y esta a la espera de ordenes.
Esta ordenes pueden ser por ratón, teclado y ademas un script que recibe de alguna manera la aplicación.
Pudiera ser, desde una de serie de ordenes que sean para la propia aplicación, desde pulsar un botón,
hacer algo en la interfaz de esta. Pero sin pulsar una tecla o ratón en caso de que reciba el script.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#1 Domingo, 23 Marzo 2014, 10:36 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Ejemplo:
Tengo un formulario con 4 botones.
Tengo que grabar la secuencia de ejecución de los botones.
Y luego se tienen que ejecutar tal como he creado la secuencia tantas veces como yo quiera.
Ese seria el script que leera la aplicación.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Domingo, 23 Marzo 2014, 10:45; editado 1 vez
|
#2 Domingo, 23 Marzo 2014, 10:44 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Domingo, 23 Marzo 2014, 12:18; editado 1 vez
|
#3 Domingo, 23 Marzo 2014, 11:53 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Algo que tengo que mirar es:
Last.Name
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#4 Domingo, 23 Marzo 2014, 13:00 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Shell:
Citar: Robot ?
Realmente, lo que estas haciendo un bot para tu aplicación... puede ser interesente para hacer "tutoriales" de los propios programas, para enseñar lo que hace el programa, por ejemplo.
Quizás para hacer verdaderos "scripts" para los programas, lo suyo seria crear un interprete de comandos especificos de programa, y así trabajar directamente con las funciones del programa (y no trabajar con controles visuales (los botones, menus).
El programa de jodacame, realmente implementa su propio "interprete de comandos", fijate en el código de la subrutina Timer2:
Public Sub Timer2_Timer()
' Recorrido del script
Application.busy = 1
If ListViewListaOrdenes.Available Then 'Para controlar que no estamos en el final de la lista
Filtro = False ' Para controlar si vamos a saltar una linea
Label11.Caption = "Ejecutando: " & ListViewListaOrdenes.Item.Key & " (" & ListViewListaOrdenes.Item.text & ")" ' Mensaje de estado
Select Case Left$(ListViewListaOrdenes.item.Text, 4) ' Verificamos el comando que se realizara
Case "Mous"
funciones.ejecutar_comando("xdotool mousemove " & Replace$(Right$(ListViewListaOrdenes.item.Text, Len(ListViewListaOrdenes.item.Text) - 6), ",", " "))
Case "Coma"
funciones.ejecutar_comando(Right$(ListViewListaOrdenes.item.Text, Len(ListViewListaOrdenes.item.Text) - 9))
Case "clic"
' Verificamos si es click derecho o izquierdo
If Mid$(ListViewListaOrdenes.item.Text, 7, 1) = 1 Then
funciones.ejecutar_comando("xdotool click 1")
Else
funciones.ejecutar_comando("xdotool click 3")
End If
Case "Text"
funciones.ejecutar_comando("xdotool type '" & Right$(ListViewListaOrdenes.item.Text, Len(ListViewListaOrdenes.item.Text) - 6) & "'")
Case "Espe"
Sleep Val(Right$(ListViewListaOrdenes.item.Text, Len(ListViewListaOrdenes.item.Text) - 14))
Case "Salt"
ListViewListaOrdenes.MoveTo(Val(Right$(ListViewListaOrdenes.item.Text, Len(ListViewListaOrdenes.item.Text) - 16)))
Filtro = True
End Select
If Filtro = False Then
ListViewListaOrdenes.MoveNext
End If
Else
Label11.Caption = "Finalizado"
If repitevalor > 1 Then
repitevalor -= 1
ListViewListaOrdenes.MoveFirst()
Timer2.Enabled = True
Else
Timer2.Enabled = False
Endif
End If
Application.busy = 0
End
Es simple pero efectivo.
Para mejorarlo ( hacerlo más fácil de ampliar, y de rehusar ), habría que usar el patron Strategy para eleminar el Selec Case y el patrón Comand (para implementar las ordenes o comandos).
Saludos
|
#5 Domingo, 23 Marzo 2014, 13:31 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Aplicación Con Interfaz Y Soporte De Scripts . Robot ?
Veo que es distinto.
Con algo mas de tiempo pruebo x-bot y hoy en un momento de tranquilidad veo el vídeo.
En principio mi idea era que la aplicación hiciera algo con unos pasos grabados.
Para tutoriales no esta nada mal, sobre todo la comprobación de si los
pasos son los correctos.
El interprete es mas como tu dices.
Gracias.
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#6 Domingo, 23 Marzo 2014, 14:20 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|