Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

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;


Comment on Re^2: Internet Explorer widget for Tk?
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2014-09-18 19:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (121 votes), past polls