5

Perl を使用して Internet Explorer で PDF ファイルを開き、保存する方法を探しています。

（ユーザーがスクリプトを操作して、ダウンロードが発生するかどうかを判断できるようにしたいので、IEでpdfを表示したいので、のようなものは使用できませんLWP::Simple。）

例として、このコードは pdf をロード (表示) しますが、Perl に IE にファイルを保存するよう指示させる方法がわかりません。

use Win32::OLE;
my $ie = Win32::OLE->new("InternetExplorer.Application");
$ie->{Visible} = 1;
Win32::OLE->WithEvents($ie);

$ie->Navigate('http://www.aeaweb.org/Annual_Meeting/pdfs/2014_Registration.pdf');

OLEメソッドを使用する必要があるかもしれないと思いますがexecWB、それを理解できていません。

4

3 に答える 3

0

ForExecWB は良いスレッドですが、解決されていません: http://www.perlmonks.org/?node_id=477361

$IE->ExecWB($OLECMDID_SAVEAS, $OLECMDEXECOPT_DONTPROMPTUSER, 
$Target);

IE で PDF を表示してから IE を閉じ、LWP を使用してファイルを保存してみませんか?

于 2013-09-26T13:36:13.423 に答える