Je suis actuellement confronté à un problème lorsque j'utilise la fonction "PixelGetColor", en effet, quand la couleur noire apparaît dans les coordonnées spécifiées dans les paramètres de la fonction, je n'arrive pas à ce que la "couleur" détectée soit reconnue comme noire (absence de couleur). J'ai essayé plusieurs manières de réaliser cette opération (transformation en hexa, ajout d'une chaîne de caractère) mais aucune ne marche. J'ai essayé de chercher sur google mais je n'ai rien trouvé de précis que je ne savais déjà.
J'ai réalisé un script très rapide afin de tester mes différentes transformations et voir s'il en existait une qui pourrait fonctionner, je vous le joins:
Func Couleur()
Local $col
Local $cole
Local $colf
Local $colg
Local $chemin = "Couleurs.txt"
_FileCreate($chemin)
While 1
$col = PixelGetColor(948,204) & @CRLF
$cole = Hex($col,6) & @CRLF
$colf = $cole
$colg = $cole & ""
FileWrite($chemin,$cole)
If $cole == 000000 Then
MsgBox(0,"info", "methode 1 marche")
EndIf
If $cole == "000000" Then
MsgBox(0,"info", "methode 2 marche")
EndIf
If $colf == 000000 Then
MsgBox(0,"info", "methode 3 marche")
EndIf
If $colf == "000000" Then
MsgBox(0,"info", "methode 4 marche")
EndIf
If $colg == 000000 Then
MsgBox(0,"info", "methode 5 marche")
EndIf
If $colg == "000000" Then
MsgBox(0,"info", "methode 6 marche")
EndIf
Sleep(100)
WEnd
EndFunc
Local $col
Local $cole
Local $colf
Local $colg
Local $chemin = "Couleurs.txt"
_FileCreate($chemin)
While 1
$col = PixelGetColor(948,204) & @CRLF
$cole = Hex($col,6) & @CRLF
$colf = $cole
$colg = $cole & ""
FileWrite($chemin,$cole)
If $cole == 000000 Then
MsgBox(0,"info", "methode 1 marche")
EndIf
If $cole == "000000" Then
MsgBox(0,"info", "methode 2 marche")
EndIf
If $colf == 000000 Then
MsgBox(0,"info", "methode 3 marche")
EndIf
If $colf == "000000" Then
MsgBox(0,"info", "methode 4 marche")
EndIf
If $colg == 000000 Then
MsgBox(0,"info", "methode 5 marche")
EndIf
If $colg == "000000" Then
MsgBox(0,"info", "methode 6 marche")
EndIf
Sleep(100)
WEnd
EndFunc
Pour l'utiliser, j'allais sur une page de couleur unie et ensuite je changeais pour une page noire et je revenais sur la page unie, ce qui me donne dans mon fichier texte où sont sauvegardées mes couleurs :
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
A7752C
A7752C
A7752C
A7752C
A7752C
A7752C
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
On voit donc bien que du noir apparaît en regardant le fichier texte mais je n'arrive pas à le détecter (aucune MsgBox ne s'affiche pour me signaler l'arrivée de noir). Je souhaiterais donc savoir si quelqu'un sait comment résoudre ce problème qui me semble assez basique mais que je n'arrive pas à résoudre.
Je vous remercie de votre aide et vous souhaite une bonne fin de journée et de semaine.
Cordialement,
Guilhem