Win32::IE::Link - Mimic WWW::Mechanize::Link
use Win32::OLE;
use Win32::IE::Link;
my $agent = Win32::OLE->new( 'InternetExplorer.Application' );
$agent->Navigate( $uri );
# extract the links and wrap them as Win32::IE::Link
my $doc = $agent->Document;
my @links;
for ( my $i=0; $i < $doc->anchors->lenght; $i++ ) {
push @links, Win32::IE::Link->new( $doc->anchors( $i ) );
}
# print the information from the links:
foreach my $link ( @links ) {
printf "%s as %s\n", $link->url, $link->text||"";
}
The Win32::IE::Link object is a thin wrapper around the DOM-object supplied by the InternetExplorer.Application. It is implemented as a blessed reference to the Win32::OLE-DOM object.
$element is Win32::OLE object with a tagName() of IFRAME, FRAME, <AREA> or <A>.
Note: Although it supports the same methods as WWW::Mechanize::Link it is a completely different implementation.
Returns the url from the link.
Text of the link.
NAME attribute from the source tag, if any.
Tag name (either "A", "AREA", "FRAME" or "IFRAME").
The IE link object supports its own click() method, so make it available.
Copyright MMIV, Abe Timmerman <abeltje@cpan.org>. All rights reserved
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
