Pixelsearch & annoying coordinates

[Tyranlol]

Hai out there

i've been working with Pixelsearch for a while, but after some time it gets annoying to always write 4 different coordinates in.

Is there a way to get the positions of a window by, for an example, WinGetPos?

Example, note that this one doesn't work

$Window = WinGetPos("MyWindow")
while 3
$coor = PixelSearch( $Window[0], $Window[1], $Window[2], $Window[3], 0x0000FF, 2, 2 )
While @error = 0
Mouseclick("LEFT",$coor[0],$coor[1])
$coor = PixelSearch( $Window[0], $Window[1], $Window[2], $Window[3], 0x0000FF, 2, 2 )
Wend
Wend

any help would be appreciated

Edited July 20, 2010 by Tyranlol

[Yoriz]

Make your own function.

If you want to get co-ordinates of the window each time, use something like this.

Func _PixelSearchWindow($sTitle, $sText, $Colour, $iShade = "", $iStep = "")
    local $aPos = WinGetPos($sTitle, $sText)
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0]+$aPos[2], $aPos[1]+$aPos[3], $Colour, $iShade, $iStep)
EndFunc

If you want to use the same array of co-ordinates returned by a WinGetPos, use something like this.

Func _PixelSearchByArray($aPos, $Colour, $iShade = "", $iStep = "")
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0]+$aPos[2], $aPos[1]+$aPos[3], $Colour, $iShade, $iStep)
EndFunc

Edit: note not tested the code on anything

Edited July 20, 2010 by Yoriz

[Tyranlol]

Make your own function.

If you want to get co-ordinates of the window each time, use something like this.

Func _PixelSearchWindow($sTitle, $sText, $Colour, $iShade = "", $iStep = "")
    local $aPos = WinGetPos($sTitle, $sText)
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0]+$aPos[2], $aPos[1]+$aPos[3], $Colour, $iShade, $iStep)
EndFunc

If you want to use the same array of co-ordinates returned by a WinGetPos, use something like this.

Func _PixelSearchByArray($aPos, $Colour, $iShade = "", $iStep = "")
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0]+$aPos[2], $aPos[1]+$aPos[3], $Colour, $iShade, $iStep)
EndFunc

Edit: note not tested the code on anything

Thanks for the reply Yoriz.

i'll take a look when i get home

[Tyranlol]

Hmm i can't get it to work properly, i'm not sure i understand the code nor how to use it. could you explain it abit please?

[Yoriz]

Does this example make sense ?

$sTitle = "Untitled - Notepad"
Run("NotePad")
WinWait($sTitle)
$aPos = _PixelSearchWindow($sTitle, "", 0xFFFFFF)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "White Found")
WinClose($sTitle)
WinWaitClose($sTitle)

Run("NotePad")
WinWait($sTitle)
$aWinPos = WinGetPos($sTitle, "")
$aPos = _PixelSearchByArray($aWinPos, 0xFFFFFF)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "White Found")
WinActivate($sTitle)
$aPos = _PixelSearchByArray($aWinPos, 0x000000)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "Black Found")
WinClose($sTitle)

Func _PixelSearchWindow($sTitle, $sText, $Colour, $iShade = "", $iStep = "")
    Local $aPos = WinGetPos($sTitle, $sText)
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0] + $aPos[2], $aPos[1] + $aPos[3], $Colour, $iShade, $iStep)
EndFunc   ;==>_PixelSearchWindow

Func _PixelSearchByArray($aPos, $Colour, $iShade = "", $iStep = "")
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0] + $aPos[2], $aPos[1] + $aPos[3], $Colour, $iShade, $iStep)
EndFunc   ;==>_PixelSearchByArray

[Tyranlol]

Does this example make sense ?

$sTitle = "Untitled - Notepad"
Run("NotePad")
WinWait($sTitle)
$aPos = _PixelSearchWindow($sTitle, "", 0xFFFFFF)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "White Found")
WinClose($sTitle)
WinWaitClose($sTitle)

Run("NotePad")
WinWait($sTitle)
$aWinPos = WinGetPos($sTitle, "")
$aPos = _PixelSearchByArray($aWinPos, 0xFFFFFF)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "White Found")
WinActivate($sTitle)
$aPos = _PixelSearchByArray($aWinPos, 0x000000)
If IsArray($aPos) Then MouseMove($aPos[0], $aPos[1])
_ArrayDisplay($aPos, "Black Found")
WinClose($sTitle)

Func _PixelSearchWindow($sTitle, $sText, $Colour, $iShade = "", $iStep = "")
    Local $aPos = WinGetPos($sTitle, $sText)
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0] + $aPos[2], $aPos[1] + $aPos[3], $Colour, $iShade, $iStep)
EndFunc   ;==>_PixelSearchWindow

Func _PixelSearchByArray($aPos, $Colour, $iShade = "", $iStep = "")
    If Not IsArray($aPos) Then Return SetError(2, 0, -1)
    Return PixelSearch($aPos[0], $aPos[1], $aPos[0] + $aPos[2], $aPos[1] + $aPos[3], $Colour, $iShade, $iStep)
EndFunc   ;==>_PixelSearchByArray

I get the point yea. but are you trying to use a fuction called PixelSearchWindow ? because that one doesn't exist, i think that's why it keeps popping up with a error here

[Yoriz]

The whole point im getting at is, if you find yourself repeating code entry you create your own function, _PixelSearchWindow is a function i created combining the internal functions WinGetPos & PixelSearch. The example is using self created functions, if you copy the whole lot it including the new functions it will work.

[Tyranlol]

The whole point im getting at is, if you find yourself repeating code entry you create your own function, _PixelSearchWindow is a function i created combining the internal functions WinGetPos & PixelSearch. The example is using self created functions, if you copy the whole lot it including the new functions it will work.

Oh lol sorry, my fault. got it working now & mixed with my own code, thanks for the help buddy