winlist

[johnyV]

hi, sorry not much of a programmer can someone help me turn this script :

CODE

$var = WinList()

For $i = 1 to $var[0][0]

; Only display visble windows that have a title

If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then

MsgBox(0, "tittle", "list" & $var[$i][0] & @LF )

EndIf

Next

Func IsVisible($handle)

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

Return 1

Else

Return 0

EndIf

EndFunc

so that it gives me one single msgbox with a list off all the windows that are open.

Thank you very much.

[Josbe]

Check the changes.

$var = WinList()
$sMyList= ''
For $i = 1 to $var[0][0]
  ; Only display visble windows that have a title
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    $sMyList &= $var[$i][0] & @LF
  EndIf
Next
MsgBox(0, "tittle", "list" & $sMyList )

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
     Return 1
  Else
     Return 0
  EndIf
EndFunc