Habe heute leider nur kurz das die Möglichkeit gehabt das ganze an einem XP rechner zu testen. Im prinzip funktioniert ja alles - nur das beenden ist unschön, und ab und zu flackert es ( was ich aber noch verkraftbar finde. Das Problem hierbei liegt einfach an der Funktion WinGetTrans, die gerne mal ein -1 ausgibt, wenn noch keine Transparenz auf das Fenster gesetzt wurde. )
Könnte jemand mit einem XP-Rechner das hier mal schnell drüber laufen lassen, und die Datei hier posten? Am besten wenn nur ein Wordpad/Editor offen ist.
[autoit]#include <Array.au3>
#include <File.au3>
$WinList = WinList()
Dim $WinListVis[1] = [0]
For $i = 1 to $WinList[0][0]
If BitAnd( WinGetState($WinList[$i][1]), 2 ) Then _ArrayAdd($WinListVis,WinGetTitle($WinList[$i][1]))
Next
$WinListVis[0] = UBound($WinListVis)-1
_FileWriteFromArray(@DesktopDir&"\WinListe.txt",$WinListVis)
Danke!