Hola le enseño un proyecto en el que estoy trabajando... miren:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author:JoMuCa
Script Function:
Bot adf.ly 0.1
Tarea de mañana:terminar de configurar
#ce ----------------------------------------------------------------------------
#include <ImageSearch.au3>
#include <GDIPlus.au3>
;-------------------------Introduce la url----------------------------------
$fileA = @ScriptDir & "\imagenes\link.bmp"
_GDIPlus_Startup()
$hImageA =_GDIPlus_ImageLoadFromFile($fileA)
$hBitmapA = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageA)
$x = 0
$y = 0
$result = _ImageSearch($hBitmapA, 1, $x, $y, 20, 0)
If $result > 0 Then
MouseMove($x, $y)
MouseClick("left") ;Clicka con el boton izquierdo 1 vez
Send ("{DELETE}") ;Borra lo que hay en la barra de url
Send("http://adf.ly/X2M3S") ;Aqui Pones Tu Link de Adf.ly
Send("{ENTER}") ;Te envia a la pagina de arriva
EndIf
;-----------------------Se detiene X tiempo-----------------------
Sleep(30000) ;Tiempo en milisegundos 50000=50 segundos 15000=15 segundos carga de adf.ly
;----------------------------Clicka en el boton de la publicidad--------------------------
$fileA = @ScriptDir & "\imagenes\BotonPubli.bmp"
_GDIPlus_Startup()
$hImageA =_GDIPlus_ImageLoadFromFile($fileA)
$hBitmapA = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageA)
$x = 0
$y = 0
$result = _ImageSearch($hBitmapA, 1, $x, $y, 20, 0) ;
If $result > 0 Then
MouseMove($x, $y)
MouseClick("left")
EndIf
;-------------------------Se para X tiempo-------------------------------
Sleep(15000) ;Tiempo en milisegundos 50000=50 segundos 15000=15 segundos carga de adf.ly
;------------------Clicka icono de la barra de tareas--------------------------------------
$fileA = @ScriptDir & "\imagenes\BotonAbajo.bmp"
_GDIPlus_Startup()
$hImageA =_GDIPlus_ImageLoadFromFile($fileA)
$hBitmapA = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageA)
$x = 0
$y = 0
$result = _ImageSearch($hBitmapA, 1, $x, $y, 20, 0)
If $result > 0 Then
MouseMove($x, $y)
MouseClick("right") ;Clika con boton derecho
EndIf
;------------------------------------------------------------------------NUEVA IDENTIDAD----------------------
$fileA = @ScriptDir & "\imagenes\NuevaIdentidad.bmp"
_GDIPlus_Startup()
$hImageA =_GDIPlus_ImageLoadFromFile($fileA)
$hBitmapA = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageA)
$x = 0
$y = 0
$result = _ImageSearch($hBitmapA, 1, $x, $y, 20, 0)
If $result > 0 Then
MouseMove($x, $y)
MouseClick("left") ;Clika con boton izquierdo
EndIf
_GDIPlus_ImageDispose($hImageA)
_GDIPlus_Shutdown()
Es un bot para adf.ly que estoy intentando hacer... lo que quiero saber son 2 cosas..
Como pongo bucle en mi script y tambien lo que quiero saber es... vamos a ver.... resulta que este script se espera y busca una imagen.. pero si no la encuentra sige como si nada a buscar la siguiente imagen y lo que quiero es que cuando no la encuentre que la sige buscando hasta que la encuentre y prosiga con la orden la parte donde me tengo que centrar ahora mismo es esta:
;-----------------------Se detiene X tiempo-----------------------
Sleep(30000) ;Tiempo en milisegundos 50000=50 segundos 15000=15 segundos carga de adf.ly
;----------------------------Clicka en el boton de la publicidad--------------------------
$fileA = @ScriptDir & "\imagenes\BotonPubli.bmp"
_GDIPlus_Startup()
$hImageA =_GDIPlus_ImageLoadFromFile($fileA)
$hBitmapA = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageA)
$x = 0
$y = 0
$result = _ImageSearch($hBitmapA, 1, $x, $y, 20, 0) ;
If $result > 0 Then
MouseMove($x, $y)
MouseClick("left")
EndIf
Pero mas tarde si me queda claro lo are con todos ya que si lo hago como e dicho anteriormente no necesitare el Sleep y sera mas preciso y mas rrapido..
Gracias a toda esta gran comunidad
Espero orientacion
Mostrar Mensajes
