Asistente de teclas de emergencia: cómo buscar gráficos cuando el mouse realiza una acción de degradado cuadrado
Dim x,y,v,i,j,k,intX,intY
x= coordenada centro x: y= coordenada centro y
//Establece la distancia entre dos puntos
v=distancia entre dos puntos
i=1
Para un círculo
j=0: k=v
p>Para 2
Para i
x=x+j:y=y+k
Mover a x,y
Retraso 100
FindPic 0,0,1023,767, "123.bmp",0.9,intX,intY
Si intX>0 e intY>0 entonces
Mover a intX+5, intY+5
Clic izquierdo 1
ir a aaa
Fin si
//Clic izquierdo 1
Siguiente
j=v:k=0
Siguiente
i=i+1:v=v*(-1 )
Siguiente
rem aaa
Fin Sub