[...]PixelGetColor & Speed

[DidUngar]

Bonjour,
J'ai tenter d'optimiser une fonction de comparaison d'image
L'image a trouver est la poubelle windows ( donc placer en haut de l'écrant )
Sur l'ancienne version je met une moyenne ( sur 10 test ) de 23190 ( seconde ? ) pour la trouver
Sur la nouvelle version je met 24 480 pour la trouver.

Pourtant la fonction PixelGetColor est réputer comme étant lente, et je stoque ses résultats dans un tableaux 2 dimentions pour accélérée le résultat.
Auriez-vous une explication ?

version Beta :

► Afficher le texte

Code : Tout sélectionner

Func img_findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
    return img_P3findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
EndFunc
Func img_P3findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
    Dim $return[2]
    $return[0]=-1;
    $return[1]=-1;

    $h1 = FileOpen($f1,0)
    If ( $h1==-1 ) Then Return $return;

    ; Format :
    $l1 = FileReadLine($h1)
    If ( $l1 <> 'P3' ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ; Largeur :
    $l1 = FileReadLine($h1)
    $x_max = $l1;
    If ( $l1 > $x_end-$x_ini+1 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ; Hauteur :
    $l1 = FileReadLine($h1)
    $y_max = $l1;
    If ( $l1 > $y_end-$y_ini+1 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ;Valeur Maxi des couleurs
    $l1 = FileReadLine($h1)
    If ( $l1 <> 255 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    FileClose($h1)

    Dim $screen[@DesktopWidth+1][@DesktopHeight+1];

    ; Analyse des couleurs :
    For $y_now = $y_ini To ($y_end-$y_max+1) Step 1
        $l_temp = '';
        $l1 = FileReadLine($h1)
        For $x_now = $x_ini To ($x_end-$x_max+1) Step 1
            ToolTip($f1&' -> '&$x_now&'/'&$x_end&' '&$y_now&'/'&$y_end, 0, 0);

            ; Comparaison :
            $h_sub = FileOpen($f1,0)
            If ( $h_sub==-1 ) Then
                $return[1]='Error Open...';
                Return $return;
            EndIf

            $l_sub = FileReadLine($h_sub); Format
            $l_sub = FileReadLine($h_sub); Largeur
            $l_sub = FileReadLine($h_sub); Hauteur
            $l_sub = FileReadLine($h_sub); Valeur Maxi des couleurs
            $test = 1;
            $xSub_ini=$x_now
            $xSub_end=$x_now+$x_max-1
            $ySub_ini=$y_now
            $ySub_end=$y_now+$y_max-1
            ; Analyse des couleurs :
            For $ySub_now = $ySub_ini To $ySub_end Step 1
                $l_sub = FileReadLine($h_sub)
                $p = stringsplit($l_sub,'   ');
                For $xSub_now = $xSub_end To $xSub_ini Step -1
                    If ( Not $screen[$xSub_now][$ySub_now] ) Then
                        $screen[$xSub_now][$ySub_now] = PixelGetColor($xSub_now,$ySub_now);
                    EndIf
                    $color_screen = $screen[$xSub_now][$ySub_now];PixelGetColor($xSub_now,$ySub_now);
                    $rvb = stringsplit($p[$xSub_now-$xSub_ini+1],' ');
                    $color_text = img_rvb2color($rvb[1],$rvb[2],$rvb[3])
                    If ( $color_text <> $color_screen ) Then
                        FileClose($h_sub)
                        $test = 0
                        ExitLoop;
                    EndIf
                Next
                If ( $test == 0 ) Then
                    ExitLoop;
                EndIf
            Next
        
            FileClose($h_sub)
            If ( $test == 1 ) Then
                ; On as trouver l'image :
                $return[0]=$x_now;
                $return[1]=$y_now;
                return $return;
            EndIf
        Next
    Next

    return $return;
EndFunc

Version stable :

► Afficher le texte

Code : Tout sélectionner

Func img_findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
    return img_P3findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
EndFunc
Func img_P3findFileScreen($f1,$x_ini,$y_ini,$x_end,$y_end)
    Dim $return[2]
    $return[0]=-1;
    $return[1]=-1;

    $h1 = FileOpen($f1,0)
    If ( $h1==-1 ) Then Return $return;

    ; Format :
    $l1 = FileReadLine($h1)
    If ( $l1 <> 'P3' ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ; Largeur :
    $l1 = FileReadLine($h1)
    $x_max = $l1;
    If ( $l1 > $x_end-$x_ini+1 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ; Hauteur :
    $l1 = FileReadLine($h1)
    $y_max = $l1;
    If ( $l1 > $y_end-$y_ini+1 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    ;Valeur Maxi des couleurs
    $l1 = FileReadLine($h1)
    If ( $l1 <> 255 ) Then
        FileClose($h1)
        Return $return;
    EndIf
    FileClose($h1)

    ; Analyse des couleurs :
    For $y_now = $y_ini To ($y_end-$y_max+1) Step 1
        $l_temp = '';
        $l1 = FileReadLine($h1)
        For $x_now = $x_ini To ($x_end-$x_max+1) Step 1
            ToolTip($f1&' -> '&$x_now&'/'&$x_end&' '&$y_now&'/'&$y_end, 0, 0);

            ; Comparaison :
            $h_sub = FileOpen($f1,0)
            If ( $h_sub==-1 ) Then
                $return[1]='Error Open...';
                Return $return;
            EndIf

            $l_sub = FileReadLine($h_sub); Format
            $l_sub = FileReadLine($h_sub); Largeur
            $l_sub = FileReadLine($h_sub); Hauteur
            $l_sub = FileReadLine($h_sub); Valeur Maxi des couleurs
            $test = 1;
            $xSub_ini=$x_now
            $xSub_end=$x_now+$x_max-1
            $ySub_ini=$y_now
            $ySub_end=$y_now+$y_max-1
            ; Analyse des couleurs :
            For $ySub_now = $ySub_ini To $ySub_end Step 1
                $l_sub = FileReadLine($h_sub)
                $p = stringsplit($l_sub,'   ');
                For $xSub_now = $xSub_ini To $xSub_end Step 1
                    $color_screen = PixelGetColor($xSub_now,$ySub_now);
                    $rvb = stringsplit($p[$xSub_now-$xSub_ini+1],' ');
                    $color_text = img_rvb2color($rvb[1],$rvb[2],$rvb[3])
                    If ( $color_text <> $color_screen ) Then
                        FileClose($h_sub)
                        $test = 0
                        ExitLoop;
                    EndIf
                Next
                If ( $test == 0 ) Then
                    ExitLoop;
                EndIf
            Next
        
            FileClose($h_sub)
            If ( $test == 1 ) Then
                ; On as trouver l'image :
                $return[0]=$x_now;
                $return[1]=$y_now;
                return $return;
            EndIf
        Next
    Next

    return $return;
EndFunc

Et bien sur l'outils de test :

► Afficher le texte

Code : Tout sélectionner

#include "fonct_img.au3"


;For $i=0 To (256*256*256-1) Step 1
;   $rvb = img_color2rvb($i);
;   $color = img_rvb2color($rvb[0],$rvb[1],$rvb[2])
;   If ( $color <> $i) Then
;       MsgBox(0,'Erreur',$i&' '&$color);
;   EndIf
;Next

;img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
$time = TimerInit()
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)

    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
    $posi = img_findFileScreen('img.ppm',0,0,@DesktopWidth,@DesktopHeight)
$time = TimerDiff($time)
$time = $time /10
MsgBox(0,'Placement : '&$time,$posi[0]&' '&$posi[1]);
 

Le but final du script :
Détécter la barre verte de chargement de firefox pour prendre une capture d'érant une fois le DL d'une page web terminée
Envoyer le resultat via FTP sur un linux qui serai cronner pour convertir l'image en bmp via perl et ensuite la redimentionner en php pour en faire un ascreen.
Oui la solution est longue est imprafaite mais sinon je doit payer 1€ Les 1000 ascreen.
Alors que si je peut l'optimiser je pourrai faire les ascreen des mes sites automatiquement et plus réguliérement.
( soit 400 ascreen en moyenne par mois )

Je suis prenneur de vos idées.
Merci d'avance.

[Iste]

une idée serait de pas passer par des fonction graphique...
L'udf FF.au3 doit bien pouvoir faire ce que tu cherche

Les fonction graphiques sont a utiliser en dernier recoure, meme si tout le monde semble se jeter sur ca en 1er

Du moins pour le "Détécter la barre verte de chargement de firefox"
car je vois pas de quoi il sagit ^^' et je comprend pas non plus la démarche d'apres :/ encore moins cette histoire d'argent :\
Enfin, ca c'est pas mon probleme ^^

[DidUngar]

La barre verte est la barre de chargement de firefox.
donc si je la trouve je peut savoir ou en est le chargement.

Pour la partie transformation et balade de l'image c'est sur que hors de mon réseaux ca doit paraître bizard.
Pour les sous en faites :
http://www.shotbot.fr/ propose des ascreens gratuit mais en petite quantitée.
Ensuite il les vends se qui est normal.
Ayant un gros site donc beaucoup de ascreens a faire ( http://www.monautosurf.com ) je désire devenir indépendant sur la génération d'ascreen.

NB : ascreen : Image de type png de taille réduite , cette image est une capture d'écrant d'un site.
On l'utilise surtout pour le référencement.


J'ai trouver la librairie que tu me conseil. ( http://www.autoitscript.fr/forum/viewto ... +udf#p9139 )
Mais aimant apprendre par moi même a faire les choses j'utilise déjà la mienne.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 Version: 0.0.1.7
 Author:         DidUngar

 Script Function:
    Fonction de gestion de FireFox

#ce ----------------------------------------------------------------------------





Func firefox_run()
    Run("C:\Program Files\Mozilla Firefox\firefox.exe","",@SW_MAXIMIZE);
    $firefox_start=TimerInit();
    ; Le programme se lance...
    Do  ; Le programme se lance encore ...
        Sleep(5)
        If (   $firefox_start+(15*1000) >= TimerInit()   ) Then
            Run("C:\Program Files\Mozilla Firefox\firefox.exe","",@SW_MAXIMIZE);
            $firefox_start=TimerInit();
        EndIf
        If ( WinActivate(WinGetTitle("Firefox")) ) Then ; 
            If ( StringInStr( WinGetTitle(""), "Firefox" )<>0 ) Then
                WinSetOnTop(WinGetTitle(""), "", @SW_MAXIMIZE)
            EndIf
        EndIf
        If ( StringInStr( WinGetTitle(""), "Firefox - Restauration" )<>0 ) Then
            Sleep(250)
            Send("{TAB}");
            Sleep(250)
            Send("{ENTER}");
            Sleep(250)
        EndIf
    Until ( StringInStr( WinGetTitle(""), "Mozilla Firefox" )<>0 )
    firefox_loading()
EndFunc

Func firefox_loading()
    Sleep(15); Attendre que la barre de chargement s'ouvre
    While ( PixelGetColor(930,729)<>PixelGetColor(730,729) ); Couleur du style de actuel
        Sleep(5); Attendre un peut pour que le chargement se finnisse.
    WEnd
    Sleep (5); Attendre un peut pour que FireFox finisse.
EndFunc

Func firefox_url($url)
    #include-once "fonct_souris.au3"
    click( @DesktopWidth/2 , 70 ); Selection de la zone URL Du navigateur
    Sleep(15); Effacer l'ancienne url
    send("^a"); Ctrl-a
    $i =0
    While ( $i < 75 )
        Send ( "{BACKSPACE}" )
        $i = $i+1;
    Wend
    $i =0
    While ( $i < 75 )
        Send ( "{DELETE}" )
        $i = $i+1;
    Wend
    sleep (250);
    send("^a"); Ctrl-a
    sleep (15);Envoyer la nouvelle url
    Send($url);
    Send("{ENTER}"); Charger
    firefox_loading()

    ; Gestion des cas d'erreur
        ; On as taper dans google au lieu de dans l'url...
        If ( StringInStr(AutoItWinGetTitle()," - Recherche Google - Mozilla Firefox")<>0 ) Then
            sleep (50);
            Return firefox_url($url)
        EndIf
        ; Protocole non supporter
        If ( WinWaitActive("Alerte","",1)<>0 ) Then
            sleep (15);
            send("{ENTER}")
            sleep (50);
            Return firefox_url($url)
        EndIf
        ; Bad Request.
        If ( WinWaitActive("400 Bad Request - Mozilla Firefox","",1)<>0 ) Then
            sleep (15);
            Return firefox_url($url)
        EndIf
        ; Page non trouver.
        If ( WinWaitActive("Erreur de chargement de la page - Mozilla Firefox","",1)<>0 ) Then
            Send("{F5}")
            firefox_loading()
            If ( WinWaitActive("Erreur de chargement de la page - Mozilla Firefox","",1)<>0 ) Then
                Return False;
            EndIf
        EndIf
        ; Url non trouver.
        If ( WinWaitActive("Club Internet - Recherche - Mozilla Firefox","",1)<>0 ) Then
            firefox_url($url)
        EndIf
EndFunc

Func firefox_AntiPopUp()
    ; Qui ont était bloquez :
    click(1010,125);
    ;Spyware Secure
    If ( StringInStr( WinGetTitle(""), "Spyware" )<>0 ) Then
        firefox_close_tab()
    EndIf

    ;Titan Poker
    If ( StringInStr( WinGetTitle(""), "Titan Poker" )<>0 ) Then
        firefox_close_tab()
    EndIf

    ;hangrohe
    If ( StringInStr( WinGetTitle(""), "PlaytheGAME Grand Concours" )<>0 ) Then
        firefox_close_tab()
    EndIf

    ;Dial Messenger
    If ( StringInStr( WinGetTitle(""), "Dial" )<>0 ) Then
        firefox_close_tab()
    EndIf

    ;Yes! Messenger
    If ( StringInStr( WinGetTitle(""), "Yes!Messenger" )<>0 ) Then
        firefox_close_tab()
    EndIf
    ;Navi-Search
    If ( StringInStr( WinGetTitle(""), "Navi-Search" )<>0 ) Then
        firefox_close_tab()
    EndIf
    ;Bouygues
    If ( StringInStr( WinGetTitle(""), "Bouygues" )<>0 ) Then
        firefox_close_tab()
    EndIf
    ;Banque
    If ( StringInStr( WinGetTitle(""), "USAFIS" )<>0 ) Then
        firefox_close_tab()
    EndIf
EndFunc

Func firefox_is()
    Return (    StringInStr( WinGetTitle(""), "Mozilla Firefox" )<>0   )
EndFunc

Func firefox_wait()
    While (firefox_is()<>True)
        Sleep(5)
    WEnd
EndFunc

Func firefox_clean()
    Send("^+{DEL}")
    Sleep(15)
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Send("{TAB}")
    Sleep(15)
    Send("{ENTER}")
    Sleep(15)
EndFunc

Func firefox_certificat()
    If (   StringInStr( WinGetTitle(""), "Site Web certifi� par une autorit� inconnue" )<>0   ) Then
        Sleep(15)
        Send("{ENTER}")
        Sleep(15)
        Return True;
    EndIf
        Return False;
EndFunc

Func firefox_new_tab()
    If (   firefox_is()<>True   ) Then
        Return False;
    EndIf
    Send("^t");
    Return True;
EndFunc

Func firefox_close_tab()
    If (   firefox_is()<>True   ) Then
        Return False;
    EndIf
    Send("^w");
    Return True;
EndFunc

Func firefox_close() ; Ferme la fenetre active si c'est firefox.
    If (   firefox_is()<>True   ) Then
        Return False;
    EndIf

    WinSetState ( WinGetTitle(""), "", @SW_MAXIMIZE )

    Send("!{F4}")

    ; Gestion des erreurs
    ; Secu multi onglet
    If (    StringInStr( WinGetTitle(""),"Confirmer la fermeture" )<>0   ) Then
        Sleep(25)
        Send("{ENTER}")
        Sleep(15)
    EndIf
    
    Return (firefox_is()<>True);
EndFunc

Func firefox_get_page()
    click(25,125)
    Sleep(25)
    send("^a"); Ctrl-a
    Sleep(25)
    send("^c"); Ctrl-c
    Sleep(25)
    return ClipGet()
EndFunc

On peut remarquer que : firefox_loading() ne tient pas compte de la position de la barre de chargement.
D'ou mon travail sur la detection d'image.

[Iste]

ha dac je comprend, tu veux faire un truc que les autres font payer, je comprend ^^

Bon alors, comme t'as l'air de vraiment faire comme ca, du moins pour essayer, l'idéal serait de prendre les coordonnées de la fenêtre de chargement avant de lancer la recherche !
comme ca ca l'imite, ou qu'elle soit

Mais maintenant j'en suis encore plus persuadé, c'est pas la bonne solution :p

Edit : dis en fait, et si tu inetget() la page ? pas bon ?

[DidUngar]

Je suis tous as fait d'accord sur le faite que rétrécir la zone de recherche va nettement accelérée.
c'est d'ailleur pour cela que j'ai placer les arguments : ,$x_ini,$y_ini,$x_end,$y_end

Mais lors des test je préfére prendre de grande zone pour mieu faire les stats.
Et c'est la que j'ai remarquer ce phénoméne bizard getPix qui même en C est réputer extremement lent est plus rapide qu'une mise en ram des informations.

C'est pour comprendre se phénoméne que je suis venu poster.

[Iste]

ha, bon ben dans ce cas je peux pas t'aider désolé ^^
mais si un jour tu cherche a faire un script pour le faire fonctionner, et non pour l'observer tel un rat dans un labyrinthe, je serais la

[Tlem]

@DidUngar

Merci de mettre vos balise de code dans des balises spoiler lorsque votre code dépasse un dizaine de ligne.

[DidUngar]

ha, bon ben dans ce cas je peux pas t'aider désolé ^^
mais si un jour tu cherche a faire un script pour le faire fonctionner, et non pour l'observer tel un rat dans un labyrinthe, je serais la

Merci je retient l'offre.

@DidUngar

Merci de mettre vos balise de code dans des balises spoiler lorsque votre code dépasse un dizaine de ligne.

D'accord, je rajouterai la balise.

[orax]

Bonsoir, alors en fait, ce que j'ai fait ce n'est pas une détection de l'image, mais juste d'un pixel. Je ne sais pas si ça pourra convenir.
Pour tester le script vous devez : lancer le script ; activer la fenêtre de Firefox et appuyer plusieurs fois sur F5 pour garder afficher la barre verte (ou blanche). Le script boucle tant que la couleur à l'emplacement de la barre verte ne sera pas grise.
Il est possible que 280 dans l'expression "$xBarreVerte=$a[2]-280" doit être modifié pour que ça marche !
Chez moi ça marche en fenêtre agrandit et normale. Voilà voila...
Je ne l'ai pas fait mais si vraiment vous voulez savoir à quel endroit se trouve la barre verte, il est possible de déterminer automatiquement la valeur 280 (dans "$xBarreVerte=$a[2]-280") avec une détection d'un pixel particulier dans la grande barre grise (la barre de statut).

Code : Tout sélectionner

Opt("PixelCoordMode",0)

$hwnd=ControlGetHandle("[CLASS:MozillaUIWindowClass]","","MozillaWindowClass1")
$a=ControlGetPos("[CLASS:MozillaUIWindowClass]","","MozillaWindowClass1")
$xBarreVerte=$a[2]-280 ; IMPORTANT : à modifier selon votre Firefox
$yBarreVerte=$a[3]-10
Sleep(2000)
;~ ClipPut(PixelGetColor($xBarreVerte,$yBarreVerte,$hwnd)) ; 0x00DFE0E5 = 14672101 = couleur grise
While PixelGetColor($xBarreVerte,$yBarreVerte,$hwnd) <> 14672101 ; 
    Sleep(100)
WEnd

[DidUngar]

Ce qui m'interesse serai de ne plus avoir "à modifier selon votre Firefox".
Mon détecteur d'image fonctionne bien.

Mais je ne comprend pas le changement de vitesse qui s'oppére lorsque j'utilise un cache.
( J'admet que lorsque je met juste la ligne du bas du navigateur je met moin de 1 seconde a trouver la barre de chargement ,
mon probléme est donc purement un probléme de compréhention )

[orax]

Ce qui m'interesse serai de ne plus avoir "à modifier selon votre Firefox".

Il n'y a qu'une ligne à rajouter :

► Afficher le texte

Code : Tout sélectionner

Opt("PixelCoordMode",0)

WinActivate("[CLASS:MozillaUIWindowClass]","")
WinWaitActive("[CLASS:MozillaUIWindowClass]","")
$hwnd=ControlGetHandle("[CLASS:MozillaUIWindowClass]","","MozillaWindowClass1")
$a=ControlGetPos("[CLASS:MozillaUIWindowClass]","","MozillaWindowClass1")
MsgBox(0,"","Commencer la détection...")
$b=PixelSearch(0,$a[3]-10,$a[2],$a[3],0xFFFFFF,0,1,$hwnd) ; emplacement de la première barre verticale
MsgBox(0,"","emplacement de la barre verticale trouvé à " & $b[0] & @CRLF & "il faut maintenant appuyer sur F5 !")
$xBarreVerte=$b[0]-80
$yBarreVerte=$a[3]-10
Sleep(1000)
While PixelGetColor($xBarreVerte,$yBarreVerte,$hwnd) <> 14672101
    Sleep(100)
WEnd

[DidUngar]

Merci mais,
Tu demande a 2 reprise a l'utilisateur d'intervenir.
Et tu ne prend pas en compte les différent templatte.

De plus trouver la barre verte j'y arrive je demande juste a comprendre pourquoi mon script est plus lent avec un cache que sans.

Je ne vous demande pas de résoudre mon probléme final mais juste de m'aider a comprendre le ralentissement du script.