Aider avec ce programme

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
davinciomar
Niveau 2
Niveau 2
Messages : 17
Enregistré le : dim. 26 mars 2017 19:52
Status : Hors ligne

Aider avec ce programme

#1

Message par davinciomar »

Bonjour je vous demande de l'aide pour reparer l'application qui est la suivante:
#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()
L'erreur est le suivant:
Subscript used on non-accesible variable

Au revoir!
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: Aider avec ce programme

#2

Message par walkson »

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("") ?
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
davinciomar
Niveau 2
Niveau 2
Messages : 17
Enregistré le : dim. 26 mars 2017 19:52
Status : Hors ligne

Re: Aider avec ce programme

#3

Message par davinciomar »

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.
Avatar du membre
franco
Niveau 7
Niveau 7
Messages : 342
Enregistré le : lun. 03 oct. 2011 22:37
Localisation : Liévin
Status : Hors ligne

Re: Aider avec ce programme

#4

Message par franco »

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.


++
L'entraide, c'est mon dada ;)
davinciomar
Niveau 2
Niveau 2
Messages : 17
Enregistré le : dim. 26 mars 2017 19:52
Status : Hors ligne

Re: Aider avec ce programme

#5

Message par davinciomar »

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.
Répondre