ImageSearch.au3 ( Ne fonctionne pas sous 64 Bits ? )

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
redlive
Niveau 1
Niveau 1
Messages : 8
Enregistré le : mer. 25 oct. 2017 20:32
Status : Hors ligne

ImageSearch.au3 ( Ne fonctionne pas sous 64 Bits ? )

#1

Message par redlive »

Bonjour à tous et toutes,


Je viens vers vous pour une petite question.
Je souhaite créer une installation automatique d'un logiciel, toutefois j'aimerai utilisé la fonction ImageSearch.au3.

Après avoir télécharger le fichier ZIP, copier le fichier dll et udf à la racine de mon script, le code dans mon script ressemble à ceci :

Code : Tout sélectionner

#include <ImageSearch.au3>
; Installation et configuration de Memu

; Lance le fichier exécutable
ShellExecute("Memu-Setup-5.5.7.1-ha36491101.exe")
 Sleep(15000)
; Pause en attendant le lancement de l'installation de Memu

$x1=0
$y1=0

$result = _ImageSearch("installer.bmp",1,$x1,$y1,0)
if $result=1 Then
    MouseMove($x1,$y1,3)
EndIf

Je lance le script, le logiciel d'installation ce lance et à la recherche d'image aucune réaction.

Pas de jugement attive les gars, j'ai rechercher et tester dans plein de sens mais je tourne en rond.
J'ai tester avec d'autre udf, même résultat.
J'ai tester voir si avec l'outil d'informations des fenêtre il me donnerai un code pour effectuer un clique immédiatement sur le bouton ( Aucun code )

Je tourne avec le pack autoit fr, et windows 8.1 fr 64Bits.

Des pistes ?

Merci pour votre aide et bonne journée , au plaisir de vous lire.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: ImageSearch.au3 ( Ne fonctionne pas sous 64 Bits ? )

#2

Message par Tlem »

Bonsoir.
Dans l'éventualité ou cela serait lié à "une incompatibilité" avec un système x64, avez-vous pensez à compiler votre script en 32 bits ?
Peut-être aussi que cela est lié aux droits. Ajoutez #Require Admin en début de script au cas ou.

Après, je n'ai pas trop le temps de tester, je vous ai jeté les idées comme ça. ^^
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
redlive
Niveau 1
Niveau 1
Messages : 8
Enregistré le : mer. 25 oct. 2017 20:32
Status : Hors ligne

Re: ImageSearch.au3 ( Ne fonctionne pas sous 64 Bits ? )

#3

Message par redlive »

Bonjour tlem et merci pour ta réponse,


J'ai changer complètement mon code pour y introduire une GUI de téléchargement en voici le code :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#Region ### START Koda GUI section ### Form=E:\Interface.kxf
Global $Form1 = GUICreate("Télécharger Memu", 500, 500, 750, 250)
GUISetIcon("C:\Users\BOT'S COK\Downloads\flders_134_icons_on_dl_file_by_save3c\Floder.dll", -110)
Global $Button1 = GUICtrlCreateButton("Télécharger et installer MemuBot", 50, 450, 400, 40)
Global $Progress = GUICtrlCreateProgress(25, 400, 450, 25)
Global $LabelPourcent = GUICtrlCreateLabel("", 225, 430, 316, 17)
Global $LabelName = GUICtrlCreateLabel("", 80, 8, 316, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $destination = @ScriptDir & "Memubot\installation\"
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         ; Définit le chemin ou sera télécharger le fichier exécutable
         Local $sFilePath = @ScriptDir & "\Memubot\installation\"

         ; Création du répertoire \Memubot\Installation\
         DirCreate($sFilePath)
         Local $url = "http://dl.memuplay.com/download/Memu-Setup-5.5.7.1-ha36491101.exe"
         Local $fichier = $destination & "Memu-Setup-5.5.7.1-ha36491101.exe"
         _download($Progress, $LabelName, $LabelPourcent, $url, $fichier)
   EndSwitch
WEnd
Func _download($hProgress, $hLabelName, $LabelPourcent, $url, $nameFile)
   Local $hDownload = InetGet($url, $nameFile, 1, 1)
   Local $size = InetGetSize($url)
   Local $nowRead = 0
   Local $pourcent = 0
   GUICtrlSetData($LabelName, $nameFile)
   Do
      Sleep(50)
      $nowRead = InetGetInfo($hDownload, 0)
      $pourcent = Int(($nowRead / $size) * 100)
      GUICtrlSetData($hProgress, $pourcent)
      GUICtrlSetData($LabelPourcent, $pourcent & "%")
   Until InetGetInfo($hDownload, 2)
   InetClose($hDownload) ;
   Sleep(1000)
   ; Ferme la fenêtre de téléchargement
   $WinTitle = "Télécharger Memu"
   WinWait($WinTitle)
   WinClose($WinTitle)
   ; Ecécute l'exécutable Memu
   ShellExecute(@ScriptDir & "\Memubot\Installation\Memu-Setup-5.5.7.1-ha36491101.exe")
   Sleep(1000)
EndFunc   ;==>_download

; Pause de 10 sec en attendant que l'éxécutable se lance
Sleep(10000)

; recherche d'image Installer et déplacement dessus. ( ET LA JE BLOQUE, maus vais UDF? DLL? WINDOWS 64BITS?
Global $y1 = 0
Global $x1 = 0
Func Start()
   While 1
      $result = _ImageSearch("installer.png",1,$x1,$y1,0)
      if $result=1 Then
         MouseMove($x1,$y1,3)
         MsgBox(0,"Found","Found a empty recycle bin here...")
      EndIf
   WEnd
EndFunc
Start()
Les deux fichiers que j'utilise pour la détection d'image est dans les pièce jointes.

Franchement je bloque, complètement.

Format *.Png
*.bmp

Modificitation de la dll, de l'udf, ajout de #Require Admin au début du script.

Et bien je sèche, j'ai pas envie de changer de logiciel d'automatisation ce que Actiona pourrait faire transuilmmment, je veux de l'Autoit :-)


Merci pour ton, votre aide
Fichiers joints
ImageSearch.rar
(39.96 Kio) Téléchargé 187 fois
Répondre