Mojen Forum,
könnte mir Jemand helfen mit der Funktion:
Es soll so funktionieren wie das hier: Was in $Ausschluss steht nicht für die Ausgabe einbeziehen, aber halt mit mehr Werten:
Spoiler anzeigen
$Ausschluss = "Program Manager"
$var = WinList()
For $i = 1 To $var[0][0]
; Listet nur die sichtbaren Fenster auf, die einen Titel haben
If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
If $Ausschluss <> $var[$i][0] Then
MsgBox(0, "Details", "Titel=" & $var[$i][0])
EndIf
EndIf
Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible
[/autoit]Habe es dann so versucht, mit einem Salat als Resultat:
Spoiler anzeigen
Dim $vartest[3] = ["Program Manager", "Html Help", "Beta"]
For $r = 0 To UBound($vartest, 1) - 1
$var = WinList()
For $i = 1 To $var[0][0]
; Listet nur die sichtbaren Fenster auf, die einen Titel haben
If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
If $vartest[$r] <> $var[$i][0] Then
MsgBox(0, "Details", "Titel=" & $var[$i][0])
EndIf
EndIf
Next
Next
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible
[/autoit]MfG OpaEd