Script to list current windows

[qwert 47]

Has anyone written a script to list all current windows by Handle and Title? I've searched these forums without success -- although I'm not absolutely sure what search terms to use.

I know I can get the active window using WinGetHandle("") and WinGetTitle(""). What I need is the handle and title of all current windows (the ones with entries on the windows taskbar).

Thanks for any help.

Update: I've located the WinList() function which provides the detail, but not packaged in a summary format. Does such a utility exist?

Edited January 8, 2008 by qwert

[Monamo 4]

Has anyone written a script to list all current windows by Handle and Title? I've searched these forums without success -- although I'm not absolutely sure what search terms to use.

I know I can get the active window using WinGetHandle("") and WinGetTitle(""). What I need is the handle and title of all current windows (the ones with entries on the windows taskbar).

Thanks for any help.

Update: I've located the WinList() function which provides the detail, but not packaged in a summary format. Does such a utility exist?

Here's a snippet that I frequently use. To isolate just the visible (e.g., the "non-minimized") windows, uncomment the extra "If" statement in the _IsVisible() function. Tweak to your liking

CODE

#include <Array.au3>

_GetWindows()

Func _GetWindows()

Dim $VisibleWindows[1] = ["0"]

$AllWindows = WinList()

;_ArrayDisplay($AllWindows,"All Windows")

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

If IsVisible($AllWindows[$i][1]) Then

If $AllWindows[$i][0] <> "" And $AllWindows[$i][0] <> "Program Manager" Then

ReDim $VisibleWindows[uBound($VisibleWindows) + 1]

$VisibleWindows[0] = $VisibleWindows[0] + 1

$VisibleWindows[$VisibleWindows[0]] = $AllWindows[$i][0]

EndIf

Else

EndIf

Next

_ArrayDisplay($VisibleWindows,"Visible Windows")

EndFunc

Func IsVisible($handle)

If BitAND(WinGetState($handle), 4) Then

;If Not BitAND(WinGetState($handle), 16) Then

If BitAND(WinGetState($handle), 2) Then

Return 1

Else

Return 0

EndIf

;EndIf

EndIf

EndFunc

[qwert 47]

Monamo, thanks. That's just the type of tabular summary I was looking for. But since I'm not familiar with displaying arrays, can you explain how to add the window handles to the summary? A clear and useful example like this goes a long way to helping me (and others, I presume) get a foothold toward understanding the different areas of scripting. Your help is appreciated.

[Monamo 4]

Monamo, thanks. That's just the type of tabular summary I was looking for. But since I'm not familiar with displaying arrays, can you explain how to add the window handles to the summary? A clear and useful example like this goes a long way to helping me (and others, I presume) get a foothold toward understanding the different areas of scripting. Your help is appreciated.

To add the handles, you'd just want to change the array to a 2-dimensional array and throw in the corresponding window handles as each title is added. Using the example from my post above, just replace the _GetWindows() function with this version:

CODE

Func _GetWindows()

Dim $VisibleWindows[1][2] = [["0",""]]

$AllWindows = WinList()

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

If IsVisible($AllWindows[$i][1]) Then

If $AllWindows[$i][0] <> "" And $AllWindows[$i][0] <> "Program Manager" Then

ReDim $VisibleWindows[uBound($VisibleWindows) + 1][2]

$VisibleWindows[0][0] = $VisibleWindows[0][0] + 1

$VisibleWindows[($VisibleWindows[0][0])][0] = $AllWindows[$i][0]

$VisibleWindows[($VisibleWindows[0][0])][1] = $AllWindows[$i][1]

EndIf

Else

EndIf

Next

_ArrayDisplay($VisibleWindows,"Visible Windows")

EndFunc

[qwert 47]

That's it! Thanks very much.