本帖最后由 半芯竹 于 2012-4-12 23:06 编辑
可以尝试枚举当前所有窗口。如获取到此窗口句柄,再WinGetText试下
获取所有窗口信息包括隐含的:[BY 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)
只显示可见窗口的名字:[BY 大绯狼]
$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
|