Internet Explorer automation using win32::OLE

bouffon69 (Sylvain Le Courtois) — Fri, 28 Sep 2007 11:45:24 GMT
// 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=;

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;

    

}
DZone Snippets: explorer code

Internet Explorer automation using win32::OLE
