Re^2: Perl - ExecWB - SaveAs No Prompts


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: Perl - ExecWB - SaveAs No Prompts

by hawtin (Prior)

on May 21, 2009 at 16:10 UTC ( [id://765492]=note: print w/replies, xml )

Need Help??

in reply to Re: Perl - ExecWB - SaveAs No Prompts
in thread Perl - ExecWB - SaveAs No Prompts

I found this old post when I had a similar issue. I could not find any combination that would save the page without user input, however for my purposes it was enough to save the HTML in the body. This can be done with:


$IE->Navigate($root_url.$fname.$end_url);
while ($IE->{Busy}) 
  {
    Win32::Sleep 500;
    Win32::OLE->SpinMessageLoop();
  }
my $content = $IE->Document()->body()->innerHTML();

my $fh = IO::File->new(">>$save_dir/$fname.htm");
print $fh $content;
$fh->close();
[download]

Just thought I would add this as a note in case anyone else gets here