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

Hi Monks

In course of automating an application using Win32::GUITest

I have to re-create/automate the following key and mouse action:

pressing alt(key) doubleclick the mouse at any location of the displayed page.

I tried the following;

SendMouse("~{LEFTClick 2}");

Is this possible with Win32::GUITest.

thanks for any help

  • Comment on using Win32::GuiTest recreate key and mouse action

Replies are listed 'Best First'.
Re: using Win32::GuiTest recreate key and mouse action
by marto (Cardinal) on Mar 07, 2008 at 14:50 UTC
    Apologies in advance if I am misunderstanding you, but are you having difficulty with holding a key in and then doing some other kind of SendKeys/SendMouse action? I have provided two examples here, the second I don't really have time to take any further, I will leave that as an exercise for you.
    #!/usr/bin/perl use Win32::GuiTest qw(:ALL :VK); # launch notepad, hold shift, type things system("start notepad.exe"); sleep 1; SendRawKey(VK_SHIFT, 0); SendKeys ("im the operator with my pocket calculator"); SendRawKey(VK_SHIFT, KEYEVENTF_KEYUP); # Untested, but you may be able to get away with something like this SendRawKey(VK_ALT, 0); SendLButtonDown(); SendLButtonUp(); SendLButtonDown(); SendLButtonUp(); SendRawKey(VK_ALT, KEYEVENTF_KEYUP);
    Hope this helps

    Martin
      Thanks..that was of great help :)
Re: using Win32::GuiTest recreate key and mouse action
by wfsp (Abbot) on Mar 07, 2008 at 13:16 UTC
    Not sure if this will help but the docs say
    % means ALT
      I am sorry. Thanks for rightly pointing out. It will be %.