Driving Internet Explorer with Perl

The following code can be used to script Internet Explorer actions. The exemple chosen is here is to fill in a form and then validate it through a perl script.

For this test script, let's imagine we have a HTML form named 'log_form' (<form ... name='log_form'>), a login input named 'login' ((<input type='text' name='login'>), a password input named 'pass' and a submit button named 'go'.

To find more information about how to drive IE, have a look here : http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp


use Win32::OLE qw( EVENTS in with valof );
use Win32::OLE::Variant;

Win32::OLE->Option( Warn => 0 );

$HomePage = "http://www.greyhats.org/new/";

$IE = Win32::OLE->GetActiveObject( 'InternetExplorer.Application' );
if( ! defined $IE )
{
    print "Can not find open object. Creating one...\n";
    $IE = Win32::OLE->new( 'InternetExplorer.Application', "Quit" )
             or die "Unable to create a IE Object\n";
}

Win32::OLE->WithEvents( $IE, \&cleanExit, 'DWebBrowserEvents2' );

$IE->{Visible} = 1;
$IE->{RegisterAsDropTarget} = 1;
$IE->{RegisterAsBrowser} = 1;


$IE->Navigate( $HomePage );

# Let IE load the page
while( $IE->{Busy} )
{
    while ($IE->SpinMessageLoop()) { select undef,undef,undef,0.25; }
}


$Doc = $IE->{Document};

$forms = $Doc->{forms} or die "Unable to retrieve forms";
$form = $forms->item("log_form") or die "Unable to find my form";
$elements = $form->{elements} or die "Can't get the elements";

$login = $elements->item("login",0) or die "Where is my login !?";
$pass = $elements->item("pass", 0) or die "I wonder why there isn't a 
+pass";
$go = $elements->item("go", 0) or die "I want my button";

$login->{value} = "zejames";
$pass->{value} = "test";
$go->click;

# Do whatever you want.

sub cleanExit {
    my( $obj, $event, @args ) = @_;
    
    if ($event eq "OnQuit") {
        print "Terminating\n";
        undef $obj;
        exit(1);
    }
}
[download]

Comment on Driving Internet Explorer with Perl Download Code

Replies are listed 'Best First'.
Re: Driving Internet Explorer with Perl by tachyon (Chancellor) on Sep 24, 2004 at 04:31 UTC
Chill on the system resources with a 250 msec sleep while we wait. `while( $IE->{Busy} ) { while ($IE->SpinMessageLoop()) { select undef,undef,undef,0.25 } }` [download] cheers tachyon	[reply] [d/l]
Re^2: Driving Internet Explorer with Perl by Shival (Initiate) on Feb 24, 2014 at 13:29 UTC
Hi Tachyon, Thanks for the script. I still get error that "unable to find my form ". Any clue?	[reply]
Re^3: Driving Internet Explorer with Perl by marto (Cardinal) on Feb 24, 2014 at 13:36 UTC
The post you are responding to is almost 10 years old, the user who wrote it has not logged in for 9 years. Consider reading and understanding PerlMonks for the Absolute Beginner, How do I post a question effectively? and posting a new question. Do you have to Automate IE?	[reply]
Re^4: Driving Internet Explorer with Perl by Shival (Initiate) on Feb 24, 2014 at 14:05 UTC
Re^5: Driving Internet Explorer with Perl by Shival (Initiate) on Feb 24, 2014 at 14:07 UTC
Some notes below your chosen depth have not been shown here
Re: Driving Internet Explorer with Perl by McMahon (Chaplain) on Sep 23, 2004 at 17:48 UTC
Also take a look at samie	[reply]
Re^2: Driving Internet Explorer with Perl by johnnywang (Priest) on Sep 23, 2004 at 23:52 UTC
Is there any similar module for driving mozilla/netscape, say on linux? Thanks	[reply]
Re: Driving Internet Explorer with Perl by johnnywang (Priest) on Sep 23, 2004 at 23:20 UTC
I'm getting the "Unable to find my form" error. I'm sure I will be able to use this code. Thanks.	[reply]
Re: Driving Internet Explorer with Perl by Anonymous Monk on Nov 05, 2004 at 16:55 UTC
This post was very helpful! Thanks! If I already have several Internet Explorer windows open, how can I instruct Perl which one to latch on to? I could check all IE windows for the URL or target I want, but I don't know how to scan through all of the open IE windows. Thanks in advance, Mike	[reply]
Re^2: Driving Internet Explorer with Perl by rsilvergun (Acolyte) on Jul 20, 2010 at 17:04 UTC
`my $shell = Win32::OLE->new('Shell.Application'); my @ies = grep { $_->FullName =~ /iexplore\.exe$/ } in $shell->Windows +; foreach $ie (@ies){# eval{ $ie->{document}->getElementById("PUT THE ID OF AN ELEMENT THAT + IDENTIFIES THE PAGE YOU'RE LOOKING FOR HERE"); $IEWindowYouAreLookingFor = $ie; };#end eval }#END FOREACH` [download] The way it works, if the element you're looking for isn't there the call to getElementById throws an error and the line: $IEWindowYouAreLookingFor = $ie; never executes. Otherewise the line runs and $IEWindowYouAreLookingFor gets set to point to the $ie window you're looking for. Use the Microsoft IE Developer toolbar to track down the IDs of stuff on the page. This doesn't work if the end user has mulitple pages from the same site up. I don't know any way to check if the page has focus...	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks