找回密码
 加入
搜索
查看: 1422|回复: 2

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

[复制链接]
发表于 2008-12-26 08:12:28 | 显示全部楼层 |阅读模式
谁能提供一个列示当前打开的所有窗口名的代码?
发表于 2008-12-26 11:36:31 | 显示全部楼层

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)
发表于 2008-12-26 20:49:48 | 显示全部楼层
狮子兄的代码会显示所有的程序 包括隐藏的
可以参考下帮助里的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]
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 12:22 , Processed in 0.078389 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表