谁能提供一个列示当前打开的所有窗口名的代码？

xsw123

谁能提供一个列示当前打开的所有窗口名的代码？

liongodmien

Opt('WinSearchChildren', 1)
Opt('WinTitleMatchMode', 2)
Dim $a
$l = WinList()
For $i = 1 To $l[0][0]
        $a &= '窗口名称:'&$l[$i][0]&'        窗口句柄:'&$l[$i][1]& @CRLF
Next
MsgBox(0,'',$a)

大绯狼

狮子兄的代码会显示所有的程序 包括隐藏的
可以参考下帮助里的WINLIST 只显示可见窗口的名字
[au3]$var = WinList()

For $i = 1 to $var[0][0]
  ; 仅显示带标题的可见窗口
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    MsgBox(0, "详情", "标题=" & $var[$i][0] & @LF & "句柄=" & $var[$i][1])
  EndIf
Next

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

EndFunc[/au3]