in reply to Re: The DOM of IE
in thread The DOM of IE

Ah, I haven't had any luck. I've found many posts that tell me what doesn't work (GetActiveObject doesn't work because IE doesn't register itself in the ROT), and I've found some Python Examples that work (alas, that's not an option), but no solution for Perl.

Replies are listed 'Best First'.
Re^3: The DOM of IE
by Anonymous Monk on Jun 28, 2009 at 05:20 UTC
    What example?
[reply]
      I found this. Now that I think about it, it can probably be adapted to perl, but it might be a bit beyond me.
[reply]
        Seems to work 
        #!/usr/bin/perl --

use strict;
use warnings;

{
    use Win32::OLE qw( in );

    my $shell = Win32::OLE->new('Shell.Application')
      or die "ERROR ", Win32::OLE->LastError();

    my @ies = grep { $_->FullName =~ /iexplore\.exe$/ } in $shell->Win
+dows;

    my $url = 'about:blank';
    $url = 'about:mozilla'; # :D

    for my $eye (@ies) {
        $eye->{Offline} = 1;
        $eye->{Visible} = 1;
        $eye->Navigate( $url );
    }
}

__END__
http://msdn.microsoft.com/en-us/library/aa752043(VS.85,loband).aspx
http://en.wikipedia.org/wiki/About:_URI_scheme

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom