Question

我想用perl写个程序获取桌面当前操作的软件窗口名称

比如某个软件打开了两个窗口，一个窗口名称是A,一个是B,当前操作的窗口名称是B，我想获取当前操作窗口名称即B,请赐教（附上代码参考）
像QQ聊天一样，打开几个聊天窗口，获取当前操作的窗口，或者顶层窗口

Answer 1

use Win32::OLE;
$wmi = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\cimv2");
$procs = $wmi->ExecQuery("Select * from Win32_Process");
foreach $m(in $procs)
{
print $m->name, "\n";
}