I was traveling last week and when I tried to send this to the list it
bounced. Hopefully this will get through.
_
From: Richard Bell [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 17, 2005 4:31 PM
To: libwin32@perl.org
Subject: Win32::OLE event handling and IE automation
anything else in that amount of time. A second that
is relative in the sense that the message loop will terminate if there are
no events in that time. Something more or less like this
MessageLoop( [AbsoluteTimeout [, NoEventTimeout]])
Thanks.
Richard Bell
I'm trying to make some enhancements to Win32::IE::Mechanize that involve
(in part) blocking popups. Several online examples suggest catching the
NewWindow event and setting cancel true. When I attempt to do so I get
Win32::OLE crashes. I've included an example program that exhibits the
issue
s,
Richard
|-Original Message-
|From: Jan Dubois [mailto:[EMAIL PROTECTED]
|Sent: Monday, November 28, 2005 7:21 PM
|To: 'Richard Bell'; 'Jan Dubois'; libwin32@perl.org
|Subject: RE: Win32::OLE crashes
|
|On Mon, 28 Nov 2005, Richard Bell wrote:
|> I'm trying to make som
f; # save new IE object
print "self after push\n"; print Dumper($self);
#$args[0]->Put( $ie->{application});
$args[0]->Put( $ie );
$args[1]->Put( 0 );
}
}
Curiously the code crashes on the 2nd popup window at
http://www.gozer.org/mozilla/popup_tester/, not the first. Somewhat
surprisingly, commenting out the push that attempts to save $popupself
allows the code to run to completion. I'm uncertain why any of this occurs.
Richard Bell
[EMAIL PROTECTED]
my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) or
die( 'could not start IE on allowed NewWindow2' );
print "new ie $ie at HWND $ie->{HWND}\n";
$ie->{visible} = 1;
$ie->{registerasbrowser} = 1;
my $
