Comment puis-je automatiser une instance existante d'Internet Explorer en utilisant Perl?

Question

J'ai du mal à obtenir le contrôle d'un contrôle d'aperçu IE qui est la classe 'Internet Explorer_Server' sur une application Windows externe avec perl.

Internet Explorer_Server est le nom de classe de la fenêtre, je l'ai trouvé avec Spy ++. et voici mon code affirmation de celui-ci

$className = Win32::GUI::GetClassName($window); 
if ($className eq "Internet Explorer_Server") { 
    ... 
} 

je peux obtenir une poignée de cette « Internet Explorer_Server » avec Win32::GUI::GetWindow, mais ont aucune idée de quoi faire.

Answer 1

Mise à jour: Vous allez dans la mauvaise direction. Ce dont vous avez besoin est Win32::OLE.

#!/usr/bin/perl 

use strict; 
use warnings; 

use Win32::OLE; 
$Win32::OLE::Warn = 3; 

my $shell = get_shell(); 
my $windows = $shell->Windows; 

my $count = $windows->{Count}; 

for my $item (1 .. $count) { 
    my $window = $windows->Item($item); 
    my $doc = $window->{Document}; 
    next unless $doc; 
    print $doc->{body}->innerHTML; 
} 

sub get_shell { 
    my $shell; 
    eval { 
     $shell = Win32::OLE->GetActiveObject('Shell.Application'); 
    }; 

    die "$@\n" if $@; 

    return $shell if defined $shell; 

    $shell = Win32::OLE->new('Shell.Application') 
     or die "Cannot get Shell.Application: ", 
       Win32::OLE->LastError, "\n"; 
} 
__END__ 

Ainsi, ce code trouve une fenêtre avec une propriété Document et imprime le code HTML. Vous devrez décider quels critères vous voulez utiliser pour trouver la fenêtre qui vous intéresse.

ShellWindows documentation.

Answer 2

Avez-vous regardé Samie http://samie.sourceforge.net/ comme cela est un module Perl pour contrôler IE

Answer 3

Vous pouvez jeter un oeil à Win32::IE::Mechanize. Je ne suis pas sûr si vous pouvez contrôler une fenêtre IE existante avec ce module, mais l'accès à une seule URL devrait être possible dans environ cinq lignes de code.