[R] Avoir les Events d'une GUI dans une fonction

[Colin117]

Bonjour,

Je ne sais pas comment formuler un titre à ce sujet, veuillez m'en excuser.

J'ai déjà poster, mais je viens de m'apercevoir que c'était au mauvaise endroit. Personne ne m'a répondu sur l'autre donc je pense que cela n'est pas possible, ou du moins très complexe. Mais j'ai quand même préféré le poster au bon endroit.

Donc voila: J'ai créer un logiciel qui navigue sur une seul page web avec IE.au3. On entre juste la page web et ce que l'on veux attendre (comme texte). Du genre vous attendez une new. Et bien ce logiciel refresh juste la page et dès que celle-ci contient le texte attendu, bah ça vous le dit.

Bref donc mon problème c'est que l'on entre ce que l'on cherche, On clique sur search. Et la la GUI n'est plus réactive du tout. On peut plus faire stop ni minimiser ou quitter la GUI. J'ai un système de "OVER" car mes boutons sont des LABEL avec des images.

Voici comment se présente le code:

► Afficher le texteCode

Code : Tout sélectionner

#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

OnAutoItExitRegister("_Exit")
Opt("GUIOnEventMode", 1)

Global $Site = IniRead(@scriptdir & "\settings.ini", "Site", "lien", "")
Global $Label_1 = "Search Prêt !"
Global $Fille_GUIDll = @ScriptDir & "\Bmp.dll"

Global $Refresher, $PIC_Bouton_Search, $PIC_Bouton_Stop, $String, $Statut, $InputText, $stop


_GUI()

Func _GUI()
; -################# GUI #################- ;
$Refresher = GUICreate("Refresh me", 320, 150, -1, -1, $WS_POPUP + $WS_MINIMIZEBOX)
GUICtrlCreatePic("", 0, 0, 320, 120)
_Bitmap(-1, $Bmp_GUI)
GUICtrlSetState(-1, $GUI_DISABLE)

GUICtrlCreateLabel("Refresh Me by Colin117", 8, 10, 270, 40)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x00ae00)
GUICtrlSetFont(-1, 13, -1, 2, "Verdana")

$PIC_Bouton_Exit_GUI[0] = GUICtrlCreatePic("", 302, 4, 16, 16)
_Bitmap($PIC_Bouton_Exit_GUI[0], $Bmp_Exit)
$PIC_Bouton_Minimize_GUI[0] = GUICtrlCreatePic("", 284, 4, 16, 16)
_Bitmap($PIC_Bouton_Minimize_GUI[0], $Bmp_Minimize)

$PIC_Bouton_Search = GUICtrlCreatePic("", 225, 99, 90, 20)
_Bitmap($PIC_Bouton_Search, $Bmp_Freez)
$LABEL_Bouton_Freez[0] = GUICtrlCreateLabel("Search", 225, 98, 90, 20, $SS_CENTER)
GUICtrlSetBkColor($LABEL_Bouton_Search[0], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor($LABEL_Bouton_Search[0], 0x00ae00)
GUICtrlSetFont($LABEL_Bouton_Search[0], 13, -1, 2, "Verdana")

$PIC_Bouton_Stop = GUICtrlCreatePic("", 5, 99, 90, 20)
_Bitmap($PIC_Bouton_Stop, $Bmp_Stop)
$LABEL_Bouton_Stop[0] = GUICtrlCreateLabel("Stop", 5, 98, 90, 20, $SS_CENTER)
GUICtrlSetBkColor($LABEL_Bouton_Stop[0], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor($LABEL_Bouton_Stop[0], 0x00ae00)
GUICtrlSetFont($LABEL_Bouton_Stop[0], 13, -1, 2, "Verdana")

$InputText = GUICtrlCreateInput("", 5, 50, 310, 20, $ES_AUTOVSCROLL)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00ff00)
GUICtrlSetBkColor(-1, 0x001000)

$Statut = GUICtrlCreateLabel($Label_1, 5, 128, 128, 20)
GUICtrlSetColor(-1, 0x00ae00)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

AdlibRegister("_GUI_", 100)
GUICtrlSetOnEvent($PIC_Bouton_Exit_GUI[0], "_Exit")
GUICtrlSetOnEvent($PIC_Bouton_Minimize_GUI[0], "_Minimize")
GUICtrlSetOnEvent($LABEL_Bouton_Search[0], "b_Search")
GUICtrlSetOnEvent($LABEL_Bouton_Stop[0], "b_Stop")
; -################# GUI #################- ;
EndFunc

While 1
    sleep(1)
WEnd

Func b_Search()
    $stop = 0
    $String = GUICtrlRead($InputText)
    _Search($Stringl)
EndFunc

Func b_Stop()
    $stop = 1
EndFunc

Func _Search($input)
    If $Input <> "" Then
        $oIE = _IECreate($Site, 0, 1, 1, 0)
        While 1
            If $stop = 0 Then
                If on a trouver la string dans la page
                    _IEQuit($oIE)
                    GUICtrlSetData($Statut, "Rafraîchissement stopper.")
                    ExitLoop

                Else
                    ;Scan de la page web
                    _IELoadWait($oIE)
                    AdlibRegister("_GUI_", 100) ; Pour les OVERS, marche.
                    GUICtrlSetOnEvent($PIC_Bouton_Exit_GUI[0], "_Exit") ; Pour les boutons, marche pas :/
                    GUICtrlSetOnEvent($PIC_Bouton_Minimize_GUI[0], "_Minimize"); Pour les boutons, marche pas :/
                    GUICtrlSetOnEvent($LABEL_Bouton_Freez[0], "b_Freez"); Pour les boutons, marche pas :/
                    GUICtrlSetOnEvent($LABEL_Bouton_UnFreez[0], "b_UnFreez"); Pour les boutons, marche pas :/
                    GUICtrlSetData($Statut, "Attente de la news"); Change un Label sur la GUI (marche)
                EndIf
            Else
                _IEQuit($oIE)
                GUICtrlSetData($Statut, "Rafraîchissement stopper.")
                ExitLoop
            EndIf
        WEnd
    Else
        MsgBox(64, "Erreur", "Veuillez entrer une adresse Hotmail S'il vous plait !")
    EndIf
EndFunc

Func _Minimize()
    GUISetState(@SW_MINIMIZE)
EndFunc   ;==>_Minimize

Func _Exit()
    Exit
EndFunc   ;==>_Exit
 

Ce n'est que quelques parties du code car celui-ci est trop long. Je l'ai modifier (notamment les noms de variables) car j'avais mis n'importe quoi du coup niveau lisible c'est déjà pas ça mais alors c'était pire.

Donc le problème c'est que le Over des label marche quand je met "AdlibRegister("_GUI_", 100)" dans la fonction _Search. Mais ça marche pas si je fait pareil avec "GUICtrlSetOnEvent".

Si vous avez une solution...

Merci D'avance Colin117

[GELDROC]

@Colin bonsoir je suis bien prêt a t'aider mais la C'est impossible car le code n'est pas complet il manque des fonction et déclaration de variable et j'en passe enfin bref le code m’affiche plein d'erreur et jais pas envie de recoder tous pour au final corriger une erreur serrement très bête donc a la rigueur corrige déjà le reste puis ensuite je t'aiderai .

PS: commence par installer cette version de autoIt puis quil ny est plus une seul erreur d'afficher tu va voir ya du bouleau ...

[Colin117]

Va sur skype ou msn

[Colin117]

Sujet résolue. Malheureusement cela à impliquer de modifier toute la façon du code.

Pour la solution, on (avec Geldroc) a enlevé la boucle While et fait une fonction qui s’exécute toutes les secondes avec
AdlibRegister("Function", 1000).

Cordialement
Colin117