HOLA!!!
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!!!