in reply to Re: Scan open InternetExplorer windows with Win32::OLE
in thread Scan open InternetExplorer windows with Win32::OLE
use Win32::OLE; my $IE = Win32::OLE->GetActiveObject('InternetExplorer.Application'); print $Count = Win32::OLE->EnumAllObjects(sub { my $Object = shift; my $Class = Win32::OLE->QueryObjectType($Object); printf "# Object=%s Class=%s\n", $Object, $Class; });
|
|---|