Dans le logiciel que j'utilise (non windows control friendly = tout a la reconnaissance de couleurs),
j'utilise
MouseWheel("down",$i) pour balayer rapidement une arborescence a l'écran (evidement, les programmeurs n'ont pas pensé à faire en sorte que pagedown fonctionne,= je ne peux pas utiliser
send({PGDN})de toute facon, j'ai optimisé mon scan, avec le param facultatif de
MouseWheel("down",$i)Code : Tout sélectionner
$size=WinGetPos("[Active]")
$bordures=125+90 ;125 pixels pour les menus et toolbars en haut, 90 en bas pour les lignes d''etat, ..
$param_mouseWheel=Int(($size[3]-$bordures)/27/3) ;27 pixels par ligne de mon arborescence, et chaque mouseWheel fait descendre de 3 lignes
scan($param_mouseWheel)
Func scan(ByRef $param_mouseWheel)
Local $i=0
Local $result = PixelSearch(358, 130, 358, 130+$param_mouseWheel*27, 0x7F7F85) ; gris foncé
While $result=0 and $i<10
MouseWheel("down", $param_mouseWheel)
$i=$i+1
$result = PixelSearch(358, 130, 358, 130+$param_mouseWheel*27, 0x7F7F85)
WEnd
If $i<>10 then
MsgBox(0, "Bilan recherche", _
"Premier pixel gris en X,Y : " & $result[0] & "," & $result[1] & @CRLF & _
@CRLF & _
$i & " scans (10max),"& @CRLF & _
"par tranches de " & $param_mouseWheel & " coups de molettes (11 en plein écran HD)")
Return $result
Else
MsgBox(0, "Bilan recherche", "Scan arrivé en bas," & @CRLF & _
"ou arreté après avoir balayé " & $param_mouseWheel*3*10 & " lignes dans l'arbre" & @CRLF & _
@CRLF & _
"Pas de pixel gris trouvé > Exit")
Exit
EndIf
EndFunc
