Win32OLE likely bug and perl crashes
by Richard Bell other posts by this author
Jan 5 2006 9:54AM messages near this date
Re: Win32 API, Directories with Unicode / Wide Filenames, FindFirstFileW, FindNextFileW
|
Possible bug in Win32::OLE
This is a follow up to an earlier problem report of perl crashes when using
Win32OLE to automate IE.
The following PERL attempts to automate IE catching NewWindow2 events. It
crashes Perl. A similar program in Python runs without error so the basic
logic is believed sound. Note the following relevant crash trace when
accessing a page with a single popup.
==================================================================
navigate to http://www.kephyr.com/popupkillertest/test/test1.html
$VAR1 = {
'ie' => bless( {}, 'Win32::OLE' ),
'tle' => '1136482066.13585',
'ts' => '1136482061.98632',
'popupcount' => 0,
'popups' => [],
'name' => 'Main IE'
};
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.12 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.13 [BeforeNavigate2]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.13 [DownloadBegin]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.13 [DownloadComplete]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.16 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.17 [DownloadBegin]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.18 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.20 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.27 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.48 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.49 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.49 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.49 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.50 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.53 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.54 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.55 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.56 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.57 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.58 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.59 [CommandStateChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.60 [TitleChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.61 [NavigateComplete2]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.61 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.64 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.65 [CommandStateChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.65 [CommandStateChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.67 [CommandStateChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.68 [TitleChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 0.72 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 1.17 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 1.67 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 2.18 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 2.68 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.18 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.68 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.75 [BeforeNavigate2]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.76 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.77 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.87 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.87 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.87 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.87 [PropertyChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.89 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.92 [NavigateComplete2]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.93 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.94 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.95 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.95 [DownloadComplete]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.98 [DocumentComplete]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 3.98 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.00 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.00 [ProgressChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.01 [DocumentComplete]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.02 [StatusTextChange]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.03 [NewWindow3]
ie Win32::OLE=HASH(0x224f0c)
1116128 1116128 4.03 [NewWindow2]
self before new window handling
$VAR1 = {
'ie' => bless( {}, 'Win32::OLE' ),
'tle' => '1136482080.17175',
'ts' => '1136482076.14019',
'popupcount' => 0,
'popups' => [],
'name' => 'Main IE'
};
new ie Win32::OLE=HASH(0x19d7bec) at HWND 460518
self after push
$VAR1 = {
'ie' => bless( {}, 'Win32::OLE' ),
'tle' => '1136482080.17175',
'ts' => '1136482076.14019',
'popupcount' => 1,
'popups' => [
460518
],
'name' => 'Main IE'
};
ie Win32::OLE=HASH(0x19d7bec)
Win32::OLE(0.1703) error 0x800401fd: "Object is not connected to server"
in METHOD/PROPERTYGET "HWND" at junk8.pl line 89
===========================================================================
Of particular note is that the crash reports trouble on line 89 as part of
an IE event service. The incoming event source is 'ie
Win32::OLE=HASH(0x19d7bec)' the same as was previously created to service
the popup.
Code
============================================================================
#!/usr/bin/perl -w
# this site has a large number of popup tests
# http://www.kephyr.com/popupkillertest/test/index.html
# http://www.kephyr.com/popupkillertest/test/test1.html ... 23
use strict;
use Data::Dumper;
use Win32::OLE qw( EVENTS );
use Time::HiRes qw(gettimeofday);
$|=1; # do not buffer
sub navto($); # prototype
my $ies = {}; # hash of active ie objects, including popup windows
# indexed by HWND of underlying ie instance
my $popupcnt = 0; # grand total of all pupups encountered
# make the main ie thing
my $ie = Win32::OLE-> new( 'InternetExplorer.Application' ) or
die "error";
$ie-> {visible} = 1;
Win32::OLE-> Option( Warn => 3 );
Win32::OLE-> WithEvents( $ie, \&ie_events, 'DWebBrowserEvents2' );
my $mainie = {};
$mainie-> {name} = 'Main IE';
$mainie-> {ie} = $ie;
$mainie-> {popups} = [];
$mainie-> {popupcount} = 0;
$mainie-> {ts} = $mainie->{tle} = gettimeofday;
$ies-> {$ie->{HWND}} = $mainie;
print "self after initialization\n" . Dumper( $mainie );
# causes popup on 1st 2 loads on any day
#navto( 'http://www.cnn.com/' );
# no popup
print "\n";
print "--------------------------------------------\n";
print "This navigation always works OK\n";
print "--------------------------------------------\n";
navto( 'http://www.google.com/' );
# single popup
print "--------------------------------------------\n";
print "This navigation always FAILS\n";
print "--------------------------------------------\n";
navto( 'http://www.kephyr.com/popupkillertest/test/test1.html' );
# two popups
navto( 'http://www.gozer.org/mozilla/popup_tester/' );
# no popup
navto( 'http://www.whitehouse.gov/' );
print "\n";
print "--------------------------------------------\n";
print "--------------------------------------------\n";
print "Should see this if all is OK\n";
print "--------------------------------------------\n";
print "--------------------------------------------\n";
sub navto($){
my $url = shift;
print "navigate to $url\n" . Dumper($mainie);
# init navigation stuff
$mainie-> {popups} = [];
$mainie-> {popupcount} = 0;
$mainie-> {ts} = $mainie->{tle} = gettimeofday;
$mainie-> {ie}->navigate( $url );
while(gettimeofday - $mainie-> {ts} < 60){
Win32::OLE-> SpinMessageLoop; # check for events
last if( gettimeofday - $mainie-> {tle} > 10 );
}
print Dumper( $mainie );
if( $mainie-> {popupcount} > 0 ){
#print "popup from $puie-> {locationurl}\n";
}
print "done\n";
print "===================================================\n";
}
sub ie_events(){
my( $ie, $event, @args ) = @_;
print "ie $ie\n";
print "HWND $ie-> {HWND}\n";
my $tn = gettimeofday(); # time now
my $xie = $ies-> {$ie->{HWND}}; # the underlying ie object
#print "ie object on event\n";
#print Dumper($xie);
$xie-> {tle} = $tn; # remember time last event
my $te = sprintf '%6.2f', $tn - $xie-> {ts};
print "$xie-> {ie}->{HWND} $ie->{HWND} $te [$event]\n";
if( $event eq 'NewWindow2' ) {
print "self before new window handling\n";
print Dumper($xie);
# create an IE for this popup
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 $popupie = {};
$popupie-> {name} = "Popup $popupcnt";
$popupie-> {ie} = $ie;
$popupie-> {popups} = [];
$popupie-> {popupcount} = 0;
$popupie-> {ts} = $popupie->{tle} = gettimeofday;
$ies-> {$ie->{HWND}} = $popupie;
# put this on the list of popups
$xie-> {popupcount} += 1;
my $xx = $xie-> {popups};
push @{$xx}, $ie-> {HWND}; # works when push commented out
#Win32::OLE-> WithEvents($ie, \&popup_ie_events, 'DWebBrowserEvents2'
);
Win32::OLE-> WithEvents($ie, \&ie_events, 'DWebBrowserEvents2' );
print "self after push\n"; print Dumper($xie);
#$args[0]-> Put( $ie->{application} );
$args[0]-> Put( $ie );
$args[1]-> Put( 0 );
}
}
============================================================================
Richard Bell
27 Whispering Pines Rd.
Sudbury, Ma 01776
HM 978.443.8098
Cell 978.857.6055
rbell01824@[...].net
|
