Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Scan open InternetExplorer windows with Win32::OLE

by bdimych (Monk)
on Nov 27, 2007 at 09:56 UTC ( [id://653183]=note: print w/replies, xml ) Need Help??


in reply to Scan open InternetExplorer windows with Win32::OLE

Following code works for me on winxp, but only a half. I can get access to the "document" dhtml object, but I can not access to the "window". Common way $win->{Document}->{parentWindow} not works, it is always undef for me. (may be because of some msie security restrictions?)
use strict; use Win32::OLE; my $sh = Win32::OLE->new('Shell.Application'); print "Count is $sh->{Windows}->{Count}\n"; for (my $i = 0; $i < $sh->{Windows}->{Count}; $i++) { my $win = $sh->{Windows}->Item($i); print "Window's #$i document url is '$win->{Document}->{url}'\n"; }
I think, this is sooner ms then perl issue.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://653183]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2024-03-29 15:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found