Question

我在网站上有一个按钮，我无法弄清楚如何按。它不是一种形式，所以机械化不起作用，我试过IEAutomation。我正在使用IE 10和chrome所以mechanize :: firefox不是一个选项。尝试单击标有（*）

的行上的按钮

解决方案需要在perl中（因此可以从另一个应用程序内部调用）。

<html>
 <head>
 </head>
 <body>
  <table>
   <tr>
    <td>
    <td>
     <table>
      <tr>
       <td>
        <!-- start of toolbar Main -->
        <table>
         <tr>
          <td>
           <table>
            <tr class="buttonPad">
            </tr>
            <tr>
   (*)       <td nowrap="true" valign="top" class="button"><a id="S7674" accesskey="S" class="button" title="SEARCH" onclick="dispatch('S7674');"><u>S</u>></td>
            </tr>
           </table>
          </td>
          <td</td>
         </tr>
        </table>
      </td>
      </tr>
     </table>
    </td>
    </td>
   </tr>
  </table>
 </body>
</html>

这就是我所拥有的：

my $content = get($funky);

my $tree = HTML::Tree->new();

$tree->parse($content);

my ($title) = $tree->look_down( '_tag' , 'a' );
my $atag = "";
foreach $atag ( $tree->look_down( _tag => q{a}, 'class' => 'button', 'title' => 'SEARCH' ) ) 
{
    print $atag->attr('id'), "\n";
}
my $ie = Win32::IEAutomation->new( visible => 0, maximize => 0);
$ie->gotoURL($funky);
$ie->getButton('id:', $atag )->Click();

我得到“无法调用方法”单击“未定义值”。有人有个好主意吗？

干杯

微

perl web自动化按钮点击问题

0 个答案: