Get All Auto-it Windows

[aNewLyfe]

I want to get all open autoit windows on my computer, is there a way to do this ?

from different exes off course

i ve searched but nothing found sorry

Edited June 5, 2008 by mistakilla

[jwseek]

I want to get all open autoit windows on my computer, is there a way to do this ?

from different exes off course

i ve searched but nothing found sorry

The WinList() function gives you an array of all open windows and handlers. Unfortunately, nothing in AutoIt I know of actually can determine the "type" of program it is, only the name of the program. But maybe you can figure something out with WinList()

[aNewLyfe]

The WinList() function gives you an array of all open windows and handlers. Unfortunately, nothing in AutoIt I know of actually can determine the "type" of program it is, only the name of the program. But maybe you can figure something out with WinList()

yea, iam diggin on it at the moment. I am also checking WinGetClass but nothing yet.

there is a way AutoItWinGetTitle but it only returns own scripts title, waiting helps

[MrCreatoR]

Unfortunately, nothing in AutoIt I know of actually can determine the "type" of program it is, only the name of the program

You can always check the CLASS window:

$sAutoItWinList = _GetAutoItWinList()

ConsoleWrite($sAutoItWinList)

Func _GetAutoItWinList()
    Local $aWinList = WinList("[CLASS:AutoIt v3 GUI]")
    Local $sRet_List = ""
    
    For $i = 1 To UBound($aWinList)-1
        $sRet_List &= $aWinList[$i][0] & @CRLF
    Next
    
    Return StringStripWS($sRet_List, 3)
EndFunc

Edited June 5, 2008 by MrCreatoR

[aNewLyfe]

You can always check the CLASS window:

$sAutoItWinList = _GetAutoItWinList()

ConsoleWrite($sAutoItWinList)

Func _GetAutoItWinList()
    Local $aWinList = WinList("[CLASS:AutoIt v3 GUI]")
    Local $sRet_List = ""
    
    For $i = 1 To UBound($aWinList)-1
        $sRet_List &= $aWinList[$i][0] & @CRLF
    Next
    
    Return StringStripWS($sRet_List, 3)
EndFunc

Thanks! you are the one

[aNewLyfe]

mm, is there a way to do this on processes instead of windows ?

Edited June 6, 2008 by mistakilla

[SmOke_N]

mm, is there also a way to do process like this ?

ProcessList("processName.exe")?

[aNewLyfe]

ProcessList("processName.exe")?

nop

i want to get a list of Auto-it v3 Processess running

[SmOke_N]

nop

i want to get a list of Auto-it v3 Processess running

You need to be MUCH more specific when asking a question then.

You have the list... go through the list, use WinGetProcess, that will return the PID, with that you can use _ProcessGetName

[aNewLyfe]

You need to be MUCH more specific when asking a question then.

You have the list... go through the list, use WinGetProcess, that will return the PID, with that you can use _ProcessGetName

thanks for your help Smoke_n

but i dont have the list. i wrote things that i trying to do at the first post, and just want to do same with processess nvm its not important, you r looking tight also i am not asking question, i am trying to form an opinion with help of you to straighten my au3script.

so, i want to recognize an Auto-it process from process name not from win title, there is also guiless auto it scripts around

Edited June 6, 2008 by mistakilla

[SmOke_N]

thanks for your help Smoke_n

but i dont have the list. i wrote things that i trying to do at the first post, and just want to do same with processess nvm its not important, you r looking tight also i am not asking question, i am trying to form an opinion with help of you to straighten my au3script.

so, i want to recognize an Auto-it process from process name not from win title, there is also guiless auto it scripts around

Processes can be named anything, the idea of finding one by it's name purely other than AutoIt3.exe (or wrapper.exe) is not going to happen... so mscreator provided the stepping stone to finding autoit processes being ran.

1. Winlist with autoits class name

2. Loop through ubound of winlist found

3. ProcessGetName(WinGetProcess($winlistarray[$loopnumber][1]))

How you display the information is up to you.... So, I'm not tight... just need to understand what someone want specifically rather than wasting my time coming up with something that isn't what they want or need.

[MrCreatoR]

I think the only indication of AutoIt executable can be found in the file properties, e.g. «CompiledScript»...

expandcollapse popup

$sAutoItProcList = _GetAutoItProcList()

ConsoleWrite($sAutoItProcList)

Func _GetAutoItProcList()
    Local $aProcList = ProcessList()
    Local $sRet_List = "", $sProc_Path = ""
    
    For $i = 1 To UBound($aProcList)-1
        $sProc_Path = _ProcessGetPath($aProcList[$i][1])
        
        If StringInStr(FileGetVersion($sProc_Path, "CompiledScript"), "AutoIt") Then $sRet_List &= $aProcList[$i][0] & @CRLF
    Next
    
    Return StringStripWS($sRet_List, 3)
EndFunc

Func _ProcessGetPath($vProcess)
    Local $iPID = ProcessExists($vProcess)
    If Not $iPID Then Return SetError(1, 0, -1)
    
    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If Not IsArray($aProc) Or Not $aProc[0] Then Return SetError(2, 0, -1)
    
    Local $vStruct = DllStructCreate('int[1024]')
    
    Local $hPsapi_Dll = DllOpen('Psapi.dll')
    If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@SystemDir & '\Psapi.dll')
    If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@WindowsDir & '\Psapi.dll')
    If $hPsapi_Dll = -1 Then Return SetError(3, 0, '')
    
    DllCall($hPsapi_Dll, 'int', 'EnumProcessModules', _
        'hwnd', $aProc[0], _
        'ptr', DllStructGetPtr($vStruct), _
        'int', DllStructGetSize($vStruct), _
        'int_ptr', 0)
    Local $aRet = DllCall($hPsapi_Dll, 'int', 'GetModuleFileNameEx', _
        'hwnd', $aProc[0], _
        'int', DllStructGetData($vStruct, 1), _
        'str', '', _
        'int', 2048)
    
    DllClose($hPsapi_Dll)
    
    If Not IsArray($aRet) Or StringLen($aRet[3]) = 0 Then Return SetError(4, 0, '')
    Return $aRet[3]
EndFunc

Edited June 6, 2008 by MrCreatoR

[aNewLyfe]

I think the only indication of AutoIt executable can be found in the file properties, e.g. «CompiledScript»...

expandcollapse popup

$sAutoItProcList = _GetAutoItProcList()

ConsoleWrite($sAutoItProcList)

Func _GetAutoItProcList()
    Local $aProcList = ProcessList()
    Local $sRet_List = "", $Proc_Path = ""
    
    For $i = 1 To UBound($aProcList)-1
        $Proc_Path = _ProcessGetPath($aProcList[$i][1])
        
        If StringInStr(FileGetVersion($Proc_Path, "CompiledScript"), "AutoIt") Then $sRet_List &= $aProcList[$i][0] & @CRLF
    Next
    
    Return $sRet_List
EndFunc

Func _ProcessGetPath($vProcess)
    Local $iPID = ProcessExists($vProcess)
    If Not $iPID Then Return SetError(1, 0, -1)
    
    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If Not IsArray($aProc) Or Not $aProc[0] Then Return SetError(2, 0, -1)
    
    Local $vStruct = DllStructCreate('int[1024]')
    
    Local $hPsapi_Dll = DllOpen('Psapi.dll')
    If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@SystemDir & '\Psapi.dll')
    If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@WindowsDir & '\Psapi.dll')
    If $hPsapi_Dll = -1 Then Return SetError(3, 0, '')
    
    DllCall($hPsapi_Dll, 'int', 'EnumProcessModules', _
        'hwnd', $aProc[0], _
        'ptr', DllStructGetPtr($vStruct), _
        'int', DllStructGetSize($vStruct), _
        'int_ptr', 0)
    Local $aRet = DllCall($hPsapi_Dll, 'int', 'GetModuleFileNameEx', _
        'hwnd', $aProc[0], _
        'int', DllStructGetData($vStruct, 1), _
        'str', '', _
        'int', 2048)
    
    DllClose($hPsapi_Dll)
    
    If Not IsArray($aRet) Or StringLen($aRet[3]) = 0 Then Return SetError(4, 0, '')
    Return $aRet[3]
EndFunc

Thanks again you are very smart! and you just gave me the idea

Read process File and the stringinstr

Thank you MrCreator, again

Edited June 6, 2008 by mistakilla

[ProgAndy]

Yu can do it with WinList. too, just use AutoIt v3 as Classname:

CODE

#include <Process.au3>

#include <Array.au3>

$Processes = _GetAutoItProcesses()

_ArrayDisplay($Processes)

;Parameters: [Optional:] $includemy -> include the Process of the executing Script

; Returns Array:

; [0][0] -> ProcessCount

; [$i][0] -> ProcessNmae

; [$i][1] -> PID

; Author: Prog@ndy

Func _GetAutoItProcesses($inlcudemy = True)

Local $aAutoItWinList = _GetAutoItWinList()

Local $Processes[1][2] = [[0]], $pid

For $i = 1 To $aAutoItWinList[0][0]

$pid = WinGetProcess($aAutoItWinList[$i][1])

If (Not $inlcudemy) And ($pid = @AutoItPID) Then ContinueLoop

$Processes[0][0] += 1

ReDim $Processes[$Processes[0][0]+1][2]

$Processes[$Processes[0][0]][1] = $pid

$Processes[$Processes[0][0]][0] = _ProcessGetName ( $Processes[$Processes[0][0]][1] )

Next

Return $Processes

EndFunc

Func _GetAutoItWinList()

Return WinList("[CLASS:AutoIt v3]")

EndFunc

[SmOke_N]

Yu can do it with WinList. too, just use AutoIt v3 as Classname:

CODE

#include <Process.au3>

#include <Array.au3>

$Processes = _GetAutoItProcesses()

_ArrayDisplay($Processes)

;Parameters: [Optional:] $includemy -> include the Process of the executing Script

; Returns Array:

; [0][0] -> ProcessCount

; [$i][0] -> ProcessNmae

; [$i][1] -> PID

; Author: Prog@ndy

Func _GetAutoItProcesses($inlcudemy = True)

Local $aAutoItWinList = _GetAutoItWinList()

Local $Processes[1][2] = [[0]], $pid

For $i = 1 To $aAutoItWinList[0][0]

$pid = WinGetProcess($aAutoItWinList[$i][1])

If (Not $inlcudemy) And ($pid = @AutoItPID) Then ContinueLoop

$Processes[0][0] += 1

ReDim $Processes[$Processes[0][0]+1][2]

$Processes[$Processes[0][0]][1] = $pid

$Processes[$Processes[0][0]][0] = _ProcessGetName ( $Processes[$Processes[0][0]][1] )

Next

Return $Processes

EndFunc

Func _GetAutoItWinList()

Return WinList("[CLASS:AutoIt v3]")

EndFunc

http://www.autoitscript.com/forum/index.ph...st&p=532202

[MrCreatoR]

I think the only indication of AutoIt executable can be found in the file properties, e.g. «CompiledScript»...

Mixed them to one function, and changed the name/purpose a little: _ProcessListEx - UDF