use strict; use Win32::OLE; my $ie = Win32::OLE->new('InternetExplorer.Application'); # here we're manipulating at our will $ie->{Visible} = -1; $ie->{Left} = 0; $ie->{Top} = 0; for (0..150) { $ie->{Left}++; $ie->{Top}++; $ie->{StatusText} = '*'x$_; } $ie->Navigate('D:\Work\PerlScripts\doc\tools-describe.htm'); my $idoc = $ie->{Document}; $idoc->{title} = '=+='x10; # and even replace contents of a window at our will $idoc->open("text/html","replace"); $idoc->writeln(<<"EOS");

Hello, there! EOS #UNFORTUNATELY $idoc->print; is impossible, because 'print' method lacks here $ie->ExecWB(6,0);#This will try to print, but it's a cumbersome sleep(5); $ie->Quit;