AutoIt Français

Bonjour je vous demande de l'aide pour reparer l'application qui est la suivante:

Code: [Tout sélectionner] [Déplier/Replier]

#include <ImageSearch.au3>
#include <GDIPlus.au3>


While 1
$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") 
    Send ("{DELETE}") 
 Send("") 
 Send("{ENTER}") 
 ExitLoop
 EndIf
 sleep(300)
WEnd


Sleep(30000) 

$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

Sleep(15000) 
$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") 
EndIf
While 1
$fileA = @ScriptDir & "\imagenes\Cebolla.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)
 Sleep(30000)
 MouseClick("left") 
 Send("{DOWN}")
 Send("{ENTER}")
 ExitLoop
 EndIf
 sleep(300)
WEnd
_GDIPlus_ImageDispose($hImageA)
_GDIPlus_Shutdown()

GeSHi © Extension Codebox Plus

L'erreur est le suivant:
Subscript used on non-accesible variable

Au revoir!

Bonjour,
Il va être difficile de vous répondre en l'absence de ImageSearch.au3
A première vue, votre code est étrange: pourquoi _GDIPlus_Startup() dans une boucle ? _GDIPlus_Startup() en début de code et _GDIPlus_Shutdown() en fin de code est suffisant !
Il y a aussi Send("") ?

C'est un petite programme qui je trouve sur internet. Je veux terminer mais toute le temps j'obtiens le erreur suivant. Subscript used on non-accesible variable. Je pense que le problème est pour les variables mais je ne sais pas. Aussi j'essaie avec ce programme:

Code : Tout sélectionner

#include <ImageSearch.au3>
 Func ImageSearchFarm ()
     Local $picture = 'C:\Users\Jammmesss\Desktop\AutoIt\New folder\Icon.png'
     Local $x1 = 0
     Local $y1 = 0
     Do
         $result = _ImageSearch($picture,1,$x1,$y1,0,0)

         ConsoleWrite ($result)
     until $result = 1;
     if $result=1 Then
         MouseMove($x1,$y1,50)
     else
         MsgBox (0,'MSG','End')
EndIf
     EndFunc

Et je obtiens le meme erreur. Merci d'avance.

Lu'.

https://www.autoitscript.com/forum/topi ... h-library/

Ca date de 2008... A mon humble avis, ton vieillot, le codage AutoIt a évolué depuis.

Donc j'ai continué ma recherche : https://www.autoitscript.com/forum/topi ... planation/
Deux versions...

Vais voir si erreur.

++

j'ai telecharger mais avec le nouveau imagesearch j'ai des erreurs missing separator character before keyword.
encore j'ai des erreurs mais toujours avec le nouveau image search. Je pense que l'autre version est meilleure.

AutoIt Français

Aider avec ce programme

Aider avec ce programme

Re: Aider avec ce programme

Re: Aider avec ce programme

Re: Aider avec ce programme

Re: Aider avec ce programme