Internet Explorer automation using win32::OLE
// Sample code used for one of my client
#!/usr/bin/perl -w use strict; use Data::Dumper; use Win32::OLE qw( EVENTS ); my ($day, $mon, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0]; $mon++; # 0-based index $year = $year + 1900; my $date = sprintf ("%04i-%02i-%02i %02i\:%02i\:%02i", $year, $mon, $day, $hour, $min, $sec); my $Disconnect; my $Menu; my $TreeView; my $WatchDog; my $MenuClicked=0; my $ScenarioCompleted=0; my @TreeViewLinks=("Appareillage du B","Branchement Comptage","Branchement individuel"); my $Previouslink=$TreeViewLinks[0]; my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) or die "error starting IE"; $ie->{visible} = 1; Win32::OLE->Option( Warn => 3 ); $WatchDog=time(); Win32::OLE->WithEvents( $ie, \&Event, 'DWebBrowserEvents2' ); $ie->navigate( 'http://www.xxx.fr' ); Win32::OLE->MessageLoop(); unlink("noemis.err") if -f "noemis.err"; if ( ! $ScenarioCompleted ) { open( ERR , ">noemis.err" ); print ERR "Problem executing Noemis scenario, please check www.xxx.fr.\n" ; close(ERR); } $Disconnect->Click(); Win32::OLE->SpinMessageLoop; # Maintenance du fichier historique open ( STATS , "noemis.txt" ); my @lines=<STATS>; close (STATS); open( STATS , ">noemis.txt" ); for my $line (@lines) { my ($datetime) = split ( /;/ , $line ); my ($h_year,$h_mon) = $datetime =~ /^([0-9]{4})-([0-9]{2})/; print STATS $line if ($year*12+$mon) - ($h_year*12+$h_mon) < 2; } print STATS join(";",$date,"Noemis Scenario",( time() - $WatchDog ))."\n"; close( STATS ); sleep 2; Win32::OLE->SpinMessageLoop; sleep 1; $ie->Quit(); exit 0; sub Event { my ($Obj,$Event,@Args) = @_; my $IEObject = shift @Args; print " Event triggered: $Event\n"; my ($i,$anchor); my $anchors; # STEP 1 : Find the main menu, login to the web site, find the treeview if ($Event eq "DocumentComplete") { print "URL: " . $IEObject->Document->URL . "\n"; if ( $IEObject->Document->URL eq "http://www.xxx.fr/ident.aspx" ) { my $forms = $IEObject->Document->forms; my $form = $forms->item(0); if ( defined($form->elements("fldNumCli")) ) { print "--------------------------------------------\n"; print "Found the login box, authenticating ...\n"; print "--------------------------------------------\n"; $form->elements("fldNumCli")->{value} = "xxxx"; $form->elements("fldUtil")->{value} = "xxx"; $form->elements("fldPwd")->{value} = "xxx"; $form->elements("btIdent")->Click(); } } if ( $IEObject->Document->URL eq "http://www.xxx.fr/menu.aspx" ) { print "Found the menu.\n"; $Menu = $IEObject->Document; $anchors = $IEObject->Document->links; for (my $i=0; $i < $anchors->length; $i++) { $anchor = $anchors->item($i); print $anchor->href."\n"; $Disconnect = $anchor if $anchor->href eq "http://www.xxx.fr/ident.aspx?qs=deconnecter"; } } if ( $IEObject->Document->URL eq "http://www.xxx.fr/client/frameTreeview.aspx" ) { print "Found the TreeView.\n"; $TreeView = $IEObject->Document; } } # STEP 2 : Click on the Menu and TreeView links if ($Event eq "DocumentComplete") { if ( ! $MenuClicked and defined($Menu) ) { my $MenuItem = $Menu->getElementById("SM_CLIE_RECH"); if ( defined($MenuItem) ) { print $MenuItem->ID."\n"; $MenuItem->Click; $MenuClicked = 1; } }} if ( $Event eq "CommandStateChange" or $Event eq "StatusTextChange" ) { print Dumper($IEObject); } if ( @TreeViewLinks != 0 and defined($TreeView) and $Event eq "DocumentComplete" ) { my $link = shift(@TreeViewLinks); $anchors = $TreeView->links; my $found=0; print "Looking for '$link' in the TreeView ... \n"; for (my $i=0; $i < $anchors->length; $i++) { $anchor = $anchors->item($i); #print $anchor->innerHTML."\n"; if ( $anchor->innerHTML =~ /$link/ ) { print "Clicking on '$link' ... \n"; $anchor->Click; $found=1; $Previouslink=$link; last; } } if ( ! $found ) { # Le TreeView a bugge, on reclique sleep 1; print "Looking for '$Previouslink' in the TreeView ... \n"; for (my $i=0; $i < $anchors->length; $i++) { $anchor = $anchors->item($i); #print $anchor->innerHTML."\n"; if ( $anchor->innerHTML =~ /$Previouslink/ ) { print "Clicking on '$Previouslink' ... \n"; $anchor->Click; last; } } unshift @TreeViewLinks,$link; } } # STEP 3 : Verify the list displayed if ($Event eq "DocumentComplete") { if ( @TreeViewLinks == 0 and $IEObject->Document->URL =~ /listeRefPlof.aspx/ ) { print "Scenario completed, exiting ...\n"; $ScenarioCompleted=1; Win32::OLE->QuitMessageLoop; } } # Exit on errors Win32::OLE->QuitMessageLoop() if $Event eq "OnQuit" or time() > $WatchDog + 60; }
