Question

perl写个程序获取当前操作的软件窗口名称

如图，我当前打开的窗口是 panel of ....... 如何用实现

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";
}