Need better code which returns an array of win handles of some process

[Guest]

Hello,

 

Previously I wrote this code:

 

Func _Process2Hnds($Process)
    Local $pid , $list , $i , $wpid , $Output[1]
    If Not IsNumber($Process) Then
        $pid = ProcessExists($Process)
    Else
        $pid = $Process
    EndIf
    If $pid > 0 Then
        $list = WinList()
        For $i = 1 To $list[0][0]
            If $list[$i][0] <> "" And BitAND(WinGetState($list[$i][1]), 2) Then
                $wpid = WinGetProcess($list[$i][0])
                ;_ArrayDisplay($list)
                If $wpid = $pid Then _ArrayAdd($Output,$list[$i][1])
            EndIf
        Next
    EndIf
    $Output[0] = UBound($Output)-1
    Return $Output
EndFunc   ;==>_Process2Wins

That code get some process name and Return an array which contains all the windows handles of the process.

the problem is that now i use the code in another script and that script requires to run that code at much higher frequency.

this is an demonstration of the "higher frequency":

While 1
    $ProcessHnds = _Process2Hnds("xxxx.exe")
    ....
    ....
    Sleep(50)
WEnd

This is causes to high CPU use - about 5% CPU use..

I need more efficient code which takes less CPU

 

Thanks for helpers!

Edited April 4, 2014 by Guest

[JohnOne]

Try...

#Include <WinAPIEx.au3>

Func _Process2Hnds($Process)
    Local $pid
    If Not IsNumber($Process) Then
        $pid = ProcessExists($Process)
    Else
        $pid = $Process
    EndIf
    Local $aArray = _WinAPI_EnumProcessWindows($pid)
    If Not IsArray($aArray) Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aArray
EndFunc   ;==>_Process2Hnds2

If it suits.

[Guest]

Try...

#Include <WinAPIEx.au3>

Func _Process2Hnds($Process)
    Local $pid
    If Not IsNumber($Process) Then
        $pid = ProcessExists($Process)
    Else
        $pid = $Process
    EndIf
    Local $aArray = _WinAPI_EnumProcessWindows($pid)
    If Not IsArray($aArray) Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aArray
EndFunc   ;==>_Process2Hnds2

If it suits.

Thank you!

but it seems less efficient code

It takes 10%-12% CPU.

Edited April 4, 2014 by Guest

[BrewManNH]

ProcessExists is a CPU intensive function,  that is what's causing the issue.