AdlibRegister("Tufuncion",10*1000)
 
 
;aquí tu código para Buscar 
 
 
 
Func Tufuncion()
;aqui el codigo para clikear.
EndFunc
 
 
 

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