熟悉Win32::IEAutomation的朋友请进

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use Win32::IEAutomation;
   
5. 
   
6. my $ie = Win32::IEAutomation->new();
   
7. $ie->gotoURL('目标页面');
   
8. my @url = map { $_->linkUrl() } $ie->getAllLinks(); #获取所有地址
   
9. my @link;
   
10. foreach my $url (@url) {
    
11.     push (@link, $url) if $url =~ m/&nh?id=/;  #捕获目标地址
    
12. }
    
13. foreach my $link (@link) {
    
14.     $ie->getLink('linkurl:', "$link")->Click;  
    
15.     $ie->getButton('value:', '确认')->Click;
    
16.     $ie->gotoURL('目标页面');
    
17. }
    

复制代码

多谢stanley_tam 朋友，问题已解决，更新CODE

laputa73

click第一个链接后页面就跳转了?

stanley_tam

click了之后对可以说是另外一个页面，得重新抓取link，再click。

lhohoz

回复 2# laputa73


    是的，提示can't call method "click" on an undefined value at Win32IEAutomation.pl line 14
    是不是第二个元素没被识别还是？但for循环完全可以输出全部页面的地址

stanley_tam

不会识别的。得从my @url = map { $_->linkUrl() } $ie->getAllLinks(); 开始获取所有地址，至于是第一个还是第二个，你得加一些其他的因素来控制，如果link有编号1,2，3之类的，或者link的text，就跟link放一块成一个数组的数组([1, link1],[2, link2],)，在弄一个变量来记录已经点过的(不知道你那网页点过link是消失还是其他的。。。)，如果已经点过就skip回复 4# lhohoz


   

lhohoz

stanley_tam 发表于 2013-07-26 12:04
click了之后对可以说是另外一个页面，得重新抓取link，再click。

目前的情况是就停在第一个元素页面了，因为从第二个开始报错。

stanley_tam

那你得抓到回主页的link，点击。然后再抓到所有的link，点第二个。。。回复 6# lhohoz


   

lhohoz

回复 5# stanley_tam


    点过就消失了，连接类似nid=2888，nid=2999，没规律，目前只是把捕获到push到一个@link里，不知楼上朋友提到的如何做，会不会太复杂= =

lhohoz

回复 7# stanley_tam


    回主页看来是个好主意，我试试，多谢

stanley_tam

加个循环

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use Win32::IEAutomation;
   
5. 
   
6. sub get_links;
   
7. 
   
8. my $ie = Win32::IEAutomation->new();
   
9. 
   
10. while (1){
    
11.         $ie->gotoURL('网址省略');
    
12.         my @url = map { $_->linkUrl() } $ie->getAllLinks(); #获取所有地址
    
13.         my @link = grep {/&nh?id=/} @url;
    
14. 
    
15.         if (scalar @link) {
    
16.                 my $first_link = $link[0];
    
17.                 $ie->getLink('linkurl:', $first_link)->Click;
    
18.         }
    
19.         else {
    
20.                 last;
    
21.         }
    
22. }
    
23. __END__

复制代码

回复 8# lhohoz