From: "Eric Poulsen" <[EMAIL PROTECTED]>
> > <BODY>
> > <SPAN class='head1' id='loader'></span><br>
> >
> > my $hIE=$IE{'hIE'};
> > $IE{'all'}=$hIE->{'Document'}->{'all'};
> > my $loader=$IE{'all'}->{'loader'};
> > $loader->{'innerText'}='New text';
> >
>
> What does this do ...? I tried it, but the $hIE variable is undef after
the
> first "my" line...
would work if you had
$ie = new Win32::OLE($class,\&quit);
$IE{'hIE'}=$ie;
> Here's the code I was playing with using OLE -- it turns off the
> status,address,tool, and menu bar. (Snip)
Oh, I was making it much too hard, I guess..
Ok attached is a GUI with an IE window hooked onto it.
Includes a treeview control (not really optional :-)
thanks,
Rob
>
>
> use Win32::OLE;
>
> $class='InternetExplorer.Application';
>
> $ie = new Win32::OLE($class,\&quit);
>
>
> print "$ie\n";
>
> #$ie->{fullscreen}=1;
> $ie->{left} = 10;
> $ie->{top} = 10;
> $ie->{width} = 800;
> $ie->{height} = 600;
> $ie->{toolbar} = 0;
> $ie->{menubar} = 0;
> $ie->{statusbar} = 0;
> $ie->{addressbar} = 0;
> #$ie->{theatermode} = 1;
> $ie->{title} = 0;
>
>
> $ie->Navigate ( 'www.love4singles.com');
> $ie->{visible} = 1;
>
> $parent = $ie->GetParentBrowser();
>
> $ie->create(undef,'test',{0,0,100,100});
>
> print "$parent\n";
>
> sub quit
> {
> my ($object) = @_;
> $object->Close();
> }
>
>
guibrowser.pl
