[AutoIt] Solución a un bucle?

Iniciado por MeCraniDOS, 20 Agosto 2013, 21:12 PM

0 Miembros y 2 Visitantes están viendo este tema.

Danyfirex

Sera que no la capto.  :rolleyes:


quieres buscar en la pantalla y ir clickeando cada 10 segundo?

MeCraniDOS

Cita de: Danyfirex en 21 Agosto 2013, 15:15 PM
quieres buscar en la pantalla y ir clickeando cada 10 segundo?

si, el click cada 10 segundos, y en esos 10 segundos estar escaneando la pantalla
"La física es el sistema operativo del Universo"
     -- Steven R Garman

Danyfirex

usa AdlibRegister.



Código (php) [Seleccionar]



AdlibRegister("Tufuncion",10*1000)


;aquí tu código para Buscar



Func Tufuncion()
;aqui el codigo para clikear.
EndFunc





saludos

MeCraniDOS

#13
Cita de: Danyfirex en 22 Agosto 2013, 13:46 PM
usa AdlibRegister.

Gracias, voy a probar :silbar:
"La física es el sistema operativo del Universo"
     -- Steven R Garman

79137913

HOLA!!!

Código (vb) [Seleccionar]
Func MoverIcono()

While VarBucle = True

    X_Escritorio = 0
    Y_Escritorio = 0
   
   
    Area_Escr = ImageSearch("Area.bmp", 0, X_Escritorio, Y_Escritorio, 0)
   
    If Area_Escr = 1 Then
    Call MouseMove(X_Escritorio, Y_Escritorio, 5)
    Call MouseClick("left")
   
    If BuscarIcono1 = True Or BuscarIcono2 = True Then
   
        Do
            X = 0
            Y = 0
            Z = 0
            A = 0
                Icono1 = 0
                If BuscarIcono1 = True Then
                    Icono1 = ImageSearch("img/Icono1.bmp", 0, X, Y, 0)
                End If
                If Icono1 = 1 Then
                    Call MouseMove(X, Y, 5)
                    Call MouseClick("left")
                End If
                icono2 = 0
                If BuscarIcono2 = True Then
                    icono2 = ImageSearch("img/Icono2.bmp", 0, Z, A, 0)
                End If
                If icono2 = 1 Then
                    Call MouseMove(X, Y, 5)
                    Call MouseClick("left")
                End If
                Call Sleep(2000)
        Loop Until Icono1 = 0 And icono2 = 0
       
        Else
       
        Sleep (10000)
       
        End If
       
        Else
       
        ' (Comentario) "Error": No se ha encontrado el area del mapa
   
    End If

Wend

EndFunc


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*