piątek, 13 sierpnia 2010

Polskie znaki

W przypadku problemów z polskimi znakami łatka na pakiet IEAutomation.pm

--- IEAutomation.pm 2006-09-25 13:43:12.274429000 +0400
+++ IEAutomation2.pm 2006-10-31 16:15:45.281587500 +0300
@@ -34,6 +34,7 @@
sub _startIE{
my ($self, $visible, $maximize) = @_;
defined $self->{agent} and return;
+ Win32::OLE->Option(CP=>Win32::OLE::CP_UTF8);
$self->{agent} = Win32::OLE->new("InternetExplorer.Application") || die "Could not start Internet Explorer Application through OLE\n";
Win32::OLE->Option(Warn => 0);
Win32::OLE->WithEvents($self->{agent});