web automation button clicking problems

MicrobicTiger has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,

INFO - this question has also been posted on Stackoverflow.com

I have a button in a website I can't work out how to press. It's not in a form so mechanize doesn't work, I've tried IEAutomation. I'm working with IE 10 and chrome so mechanize::firefox isn't an option. Trying to click the button on the line marked with (*)

The solution needs to be in perl (so it can be called from inside another application).

    <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>
[download]

Here's what I have:

    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();
[download]

I get "Can't call method "Click" on an undefined value". Anyone got a bright idea? Cheers Micro

Comment on web automation button clicking problems Select or Download Code

Replies are listed 'Best First'.
Re: web automation button clicking problems by tangent (Parson) on Jan 31, 2014 at 03:10 UTC
I see from your question on Stackoverflow that the id changes each time, so to find the id of the search link you could use HTML::TreeBuilder::XPath `use HTML::TreeBuilder::XPath; # ... my $tree = HTML::TreeBuilder::XPath->new_from_content($content); my $id = $tree->findvalue('//a[@title="SEARCH"]/@id');` [download] I'm not familiar with Win32::IEAutomation but the "button" you need to click on is actually a link so change getButton() to: `$ie->getLink('id:', $id )->Click();` [download] That may not work as it is a javascript function - onclick="dispatch()" - if it doesn't you will need to examine the javascript to see where the link is going to and what parameters it has, then you could probably use LWP::UserAgent to access.	[reply] [d/l] [select]
Re^2: web automation button clicking problems by MicrobicTiger (Initiate) on Jan 31, 2014 at 03:34 UTC
Thanks Tangent. I'm afraid I still get the same error. It seems to be the `click()` That it takes exception to.	[reply] [d/l]
Re^3: web automation button clicking problems by Anonymous Monk on Jan 31, 2014 at 03:40 UTC
hahaha Re^6: Is it possible to trigger a mouse click action in a browser using Perl? `$obj->fireEvent("onclick");`	[reply] [d/l]
Re^3: web automation button clicking problems by tangent (Parson) on Jan 31, 2014 at 03:39 UTC
Can you find the javascript function "dispatch()" and post it here - it will either be on the page somewhere or in an external javascript file linked from the page.	[reply]
Re^4: web automation button clicking problems by MicrobicTiger (Initiate) on Jan 31, 2014 at 03:50 UTC
Re^5: web automation button clicking problems by tangent (Parson) on Jan 31, 2014 at 04:06 UTC
Some notes below your chosen depth have not been shown here
Re^5: web automation button clicking problems by tangent (Parson) on Jan 31, 2014 at 03:59 UTC
Re: web automation button clicking problems ( DOM getElementById ) by Anonymous Monk on Jan 31, 2014 at 03:08 UTC
Anyone got a bright idea? :D Document Object Model is DOM Re: Win32::IEAutomation click link help, Re^2: Win32::IEAutomation click link help it has getElementById so you can use it with ids and ... its DOM :D `my $link = $agent->Document->getElementById( $id );`	[reply] [d/l]
Re: web automation button clicking problems by Kenosis (Priest) on Jan 31, 2014 at 01:55 UTC
Hi MicrobicTiger, and welcome to PerlMonks. I've noticed that you posted this same question at StackOverflow. For your future reference, it would be a courtesy to let potential respondents know that you've cross-posted the question, in case your question's already been answered, as doing so may save the efforts of those willing to invest the time to answer it.	[reply]
Re^2: web automation button clicking problems by MicrobicTiger (Initiate) on Jan 31, 2014 at 01:58 UTC
Thanks Kenosis Fair comment. I have updated it and will post a links to answers on either site. Cheers Micro	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks