Robin,
 
I have include a  text of a perl script I have written as an example of Automating the IE web  browser.
 
Henry Wasserman and  myself were looking for a way to Automate the browser for testing since we are  in the Quality Assurance group.
After a lot of  research we found perl was excellent at this.  
 
I figured this may be of interest to others.  Please feel free to post this on your site if you feel that it will be  useful.
 
Enjoy
 
 
 
Thank  you
Rob  Marchetti
 
 

 
 
 
use strict;
use Win32::OLE  qw(EVENTS);
#==============================================================================
#  Automation Example - by Rob Marchetti/Henry Wasserman
# revised version  1.0b
#
# This is an example of how to perform automation using I.E.
#  It launches I.E. goes to dice and ask for a job title to search for
# It does  not actually save any jobs, this is purely to used as an example
# I have  included some print statements for  debugging
#
#==============================================================================
my  @Documents;
my $notcomplete = 1;
my $URL = "http://www.dice.com/jobsearch/index.html";   #site you want to search
#
#
 
 

$Win32::OLE::Warn = 0;
# Launch IE aand Grap an instant of the I.E.  browser
my $IEbrowser = Win32::OLE->new('InternetExplorer.Application');  #or die $!;
 
$IEbrowser->{left} = 0;
$IEbrowser->{top} =  0;
$IEbrowser->{height} = 725;
$IEbrowser->{width} =  650;
$IEbrowser->{menubar} = 0;
$IEbrowser->{toolbar} =  0;
$IEbrowser->{statusbar} = 1;
$IEbrowser->{visible} =  1;
$IEbrowser->navigate($URL);     #site you want to  search
#
#my $hnd = $IE->{HWND};
#print "Here's the Window handle:  $hnd\n";
## Wait until IE is ready:#
  WaitForBusy();
   
#Lookey here Objects!
my $IEDocument = $IEbrowser->{Document};
#  Tell someone where your going to
  print "\nConnecting to dice: " .  $IEDocument->URL . "\n";
  my @Docs = ();
 

  push @Docs, $IEbrowser;
# Ask for a Job title to search  on
  print "\nEnter  a Job Title to Search: ";
  
# Grab  the job title from what the user types in ( no error checking yet)
  my  $sname = ;
  
# Enter the Job Title into the text box on  Dice
  SetEditBox(\@Docs, "query", "$sname");
 
#Click the submit button
   ClickFormButton(\@Docs,"Search");
  
 
# the the user what you are searching for!
  print "Searching Dice  for $sname jobs......\n";
 
 
 
 
 
#Quit IE an Open Jobs.txt
  print "Search complete!";
 

# Wait for IE to load and get the documents
sub WaitForBusy  
  while ($IEbrowser->{Busy} == 1) {
    #print  "Here's Busy: " . $IE->{Busy} . "\n";
     sleep(0.4);
  }
  #print "Leaving WaitForBusy\n";
}
 

# Wait for a DocumentComplete
sub WaitForDocumentComplete {  #$Document
 my $i;
 eval {
  print "Cleaning out  \@Documents\n";
    @Documents = ();
  #print  "Shifting in new DOM\n";
   my $IEDocument = shift  @_;
    while ($notcomplete) {
    if  (defined $IEDocument->all->length)  
        for (my $i=0;  $i<$IEDocument->all->length; $i++)  
     print $IEDocument->all($i)->tagName .  "\n";
        if (defined  $IEDocument->all($i))  
           $IEDocument->all($i)->tagName;
       
     }
      
  }
  };
 if ($@) {
   if ($@ =~  /undefined/) {
   print "Exception: $@  \n";
   #print "Calling  WaitForDocumentComplete\n";
      WaitForDocumentComplete($IEDocument);
  } else  
     #print "Exception:  $@\n";
  }
 }
 $notcomplete =  1;
 #print "Here are the URLs:\n";
 my $counter =  0;
 for (@Documents) {
  $counter++;
  #print  "Url " . $counter . ":" . $_->Document->URL .  "\n";
 }
 return @Documents;
}
 
 
 

sub Event {
 my ($Obj,$Event,@Args) = @_;
 my  $IEURL;
 #print "Event triggered: '$Event'\n";
 #if ($Event =~  /^StatusTextChange$/) {
  #my $Status = shift  @Args;
  #print "$Status\n";
 #}
 if ($Event =~  /^DocumentComplete$/) {
   $IEURL =  $IEbrowser->Document->URL;
 
  my $ArgsURL =   @Args[0]->Document->URL;
  #print  "$IEURL\n";
  #print "$ArgsURL\n";
  if  ($IEbrowser->ReadyState() == 4) {
   #print "Browser is ready\n";
   #print "Setting \$notcomplete to  0\n";
   $notcomplete =  0;
  }
  #print "pushing arg " .  @Args[0]->Document->URL . "\n";
  push @Documents, shift  @Args;
 }
}
 

# Find the text box on the page and enter your search text
sub  SetEditBox { #\@Docs, $name, $value
 my $Documents = shift  @_;
 my $name = shift @_;
 my $value = shift  @_;
  my $Document;
 my $i;
 my $j;
 my  $k;
 foreach $Document (@$Documents) {
    $IEDocument  = $Document->{Document};
    #print "Here's the URL inside  SetEditBox: " . $Document->Document->URL . "\n";
    for  ($i=0; $i<$IEDocument->all->length; $i++) {
     #print "Outer for $i " . $IEDocument->all($i)->tagName .  "\n";
     if ($IEDocument->all($i)->tagName =~  /^FORM$/) {
       my $form =  $IEDocument->all($i);
         for  ($j=0; $j < $form->all->length; $j++)  
            if  ($form->all($j)->getAttribute("name") =~ /^$name$/)  
               $form->all($j)->{value} =  $value;
               $form->all($j)->style->{backgroundColor}  =  "yellow";    # Highlight the edit box color to  yellow
              sleep  3;
              return;
 

        
       }
      
    }
  }
}
 
 
 

# Click the Search button
sub ClickFormButton { #\@Docs,  $ButtonName
 my $Documents = shift @_;
 my $ButtonName = shift  @_;
 my $Document;
 my $IEDocument;
 my $i;
 my  $j;
 my $k;
 foreach $Document (@$Documents) {
    $IEDocument = $Document->{Document};
    for ($i=0;  $i<$IEDocument->all->length; $i++) {
       if ($IEDocument->all($i)->tagName =~ /^FORM$/)  
      my $form =  $IEDocument->all($i);
      for ($j=0; $j <  $form->all->length; $j++) {
       my  $name = $form->all($j)->getAttribute("value") . "\n";
 
            if  ($form->all($j)->getAttribute("value") =~ /^$ButtonName$/)  
         $form->all($j)->click();
                 $form->all($j)->style->{backgroundColor}  =  "yellow";
                 sleep 5;
             return;
 
        
       }
      
    }
  }
}
 
 $IEbrowser->Quit();