PixelSearch can't find my target

[Unc3nZureD]

So, I'm trying to find black pixels in a rectangle. I think my code is quite easy to understand, so I think you will easily see what am I doing. All the coordinates are included:

HotKeySet("{ESC}", "Quit")

Sleep(2000)

While 1
    ; Top left:     (460,  75)
    ; Botton right: (900, 350)

    $Left = 460
    $Top = 75
    $Right = @DesktopWidth - 900
    $Bottom = @DesktopHeight - 350

    $coord = PixelSearch($Left, $Top, $Right, $Bottom, 0x000000, 5, 2)

    If Not @error Then
        MouseClick("left", $coord[0], $coord[1], 1, 0)
        PrintPixel("Pixel at: (" & $coord[0] & ", " & $coord[1] & ")")
    Else
        PrintPixel("Pixel not found!")
    EndIf

    Sleep(10)
WEnd

Func PrintPixel($custom)
    $pos = MouseGetPos()
    ToolTip("X: " & $pos[0] & " Y: " & $pos[1] & " HEX: " & Hex(PixelGetColor($pos[0], $pos[1])) & @CRLF & $custom, $pos[0] + 10, $pos[1] + 5)
EndFunc

Func Quit()
    Exit 0
EndFunc

I uploaded an image which clearly says that there's a 0000000 HEX in that area, but my code just can't find it. Could anyone spot the problem why my script can't find that black point? (by the way, my resolution is 1360*768)

 

Thanks for your help guys

Edited May 19, 2015 by Unc3nZureD

[BrewManNH]

It might be that you're skipping the black pixel because you're using a step value of 2, it could be just jumping over it.

[Bert]

is there some reason why you have to use this method? Why not just hook into the control and get the state of the control? MUCH more stable. The reason is if the window is resized, moved, or ANYTHING changes on the screen, the script may break.

[iamtheky]

I dont quite understand the goal, but here is one fixed so that when you mouse over a black pixel the tooltip reflects as such.

 

HotKeySet("{ESC}", "Quit")

While 1

$coord = MouseGetPos()
PixelSearch($coord[0] , $coord[1] , $coord[0] , $coord[1] , 0 , 5 , 1)
    If @Error = 0 Then
        PrintPixel("Pixel at: (" & $coord[0] & ", " & $coord[1] & ")")
    Else
        PrintPixel("Pixel not found!")
    EndIf

    Sleep(10)
WEnd

Func PrintPixel($custom)
    $pos = MouseGetPos()
    ToolTip("X: " & $pos[0] & " Y: " & $pos[1] & " HEX: " & Hex(PixelGetColor($pos[0], $pos[1])) & @CRLF & $custom, $pos[0] + 10, $pos[1] + 5)
EndFunc

Func Quit()
    Exit 0
EndFunc

 

[Unc3nZureD]

I still don't know what was the problem, but I just solved it by using another way - something like Bert suggested.

By the way, Bert: I just needed it temporarily for my own needs, so I could ensure that it isn't going to be moved