Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^2: Internet Explorer widget for Tk?

by Anonymous Monk
on Jun 09, 2010 at 13:49 UTC ( #843850=note: print w/replies, xml ) Need Help??

in reply to Re: Internet Explorer widget for Tk?
in thread Internet Explorer widget for Tk?

Here is a funny way to do it
#!/usr/bin/perl -- use strict; use warnings; use Win32::API; use vars '$SetParent'; BEGIN { $SetParent = Win32::API::->new( "user32", "SetParent", "NN", "N" ) or die "Failed to load SetParent from user32"; } sub start_embed { my ($mw) = @_; use Win32::OLE qw( in ); system 1, 'start iexplore.exe'; sleep 1; my $shell = Win32::OLE->new('Shell.Application') or die "ERROR ", Win32::OLE->LastError(); my @ies = grep { $_->FullName =~ /iexplore\.exe$/ } in $shell->Win +dows; for my $eye (@ies) { warn $eye; $SetParent->Call( $eye->{Hwnd}, hex( $mw->id ) ); $eye->{Offline} = 1; $eye->{Visible} = 1; $eye->Navigate('about:blank'); print $eye->Document->documentElement->{outerHTML}, "\n\n\n"; } } use Tk; my $mw = tkinit; $mw->geometry("400x400+200+200"); $mw->Button( -text => 'start embed ie about:blank', -command => [ \&start_embed, $mw ] )->pack( -side => 'top' ); MainLoop; exit;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://843850]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2017-11-18 16:28 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (277 votes). Check out past polls.