Hi

I'm having some trouble with the GetPopupHandle function.  It never
seems to bring back a handle.  It always returns 0.  After looking
into the .XS file, I noticed that the function that does the work,
PopupHandleGet, doesn't seem to be setting it's return value, g_popup.
  I don't know much about the .XS side of things yet, but is this a bug
or am I missing something?  Are there other ways of getting the handle
or X/Y coordinates of a popup menu, maybe through SendMessage or
something?

Brent

Hello,
You can find the X11:GUITest site at
http://sourceforge.net/projects/x11guitest.  If you have questions
about this product, let me know at denniskpaulsen@...

Regards,
Dennis K. Paulsen

--- In perlguitest@yahoogroups.com, "Dhanapalan.C" <dhana_foru@...> wrote:
>
> Hi,
>   I want some notes about X11::GUITest, Please help me out,
>   -Thanks
>   Dhana
>
>
> ---------------------------------
> Be a chatter box. Enjoy free PC-to-PC calls  with Yahoo! Messenger
with Voice.
>
> [Non-text portions of this message have been removed]
>

Perl functions, by default, return the last variable computed. I haven't tried
the GetPopupHandle function, but I often have to add a "sleep" to give windows
time to appear before attempting to look for their handle.

brentje <brentje@...> wrote:  Hi

I'm having some trouble with the GetPopupHandle function.  It never
seems to bring back a handle.  It always returns 0.  After looking
into the .XS file, I noticed that the function that does the work,
PopupHandleGet, doesn't seem to be setting it's return value, g_popup.
I don't know much about the .XS side of things yet, but is this a bug
or am I missing something?  Are there other ways of getting the handle
or X/Y coordinates of a popup menu, maybe through SendMessage or
something?

Brent






---------------------------------
   YAHOO! GROUPS LINKS


     Visit your group "perlguitest" on the web.

     To unsubscribe from this group, send an email to:
  perlguitest-unsubscribe@yahoogroups.com

     Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.


---------------------------------





[Non-text portions of this message have been removed]

Hi Sundar,

   Have you heard of something called google.
   Go to google.com and search for "Learning perl"

   Sam

nancy sherwood <kidofsherlock@...> wrote:
   try perl.com

sampbalaji <sampbalaji@...> wrote:  Hi all
I am new to perl
I would like to know where can i get perl
how to install and work on it
Suggest a good beginners guide

thanks
Sundar






   SPONSORED LINKS
         Basic programming language   C programming language   Computer
programming languages     The c programming language   C++ programming language
Software programming language

---------------------------------
   YAHOO! GROUPS LINKS


     Visit your group "perlguitest" on the web.

     To unsubscribe from this group, send an email to:
perlguitest-unsubscribe@yahoogroups.com

     Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.


---------------------------------




__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

[Non-text portions of this message have been removed]



   SPONSORED LINKS
         Basic programming language   C programming language   Computer
programming languages     The c programming language   C++ programming language
Software programming language

---------------------------------
   YAHOO! GROUPS LINKS


     Visit your group "perlguitest" on the web.

     To unsubscribe from this group, send an email to:
  perlguitest-unsubscribe@yahoogroups.com

     Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.


---------------------------------





Susruth Sudhakaran

You are not responsible for what happens to you in life but you are definitely
responsible for how you respond to it
-------Some great Man(Not Me)



---------------------------------
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls.  Great rates
starting at 1¢/min.

[Non-text portions of this message have been removed]

Has anyone else had this problem?

Try this function. $Title is the string title of a window with the
button to test. $ButtonToCheck is the string caption on the button.

sub VerifyButtonDisabled {
   my $Title = shift;
   my $ButtonToCheck = shift;
   my @WinHandle = FindWindowLike(undef, $Title);
   print("WinHandle = $WinHandle[0]\n");  # diagnostic
   my @ButtonHandle = FindWindowLike($WinHandle[0],$ButtonToCheck);
   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
   print("ButtonState = $ButtonState\n");  # diagnostic
   if (IsGrayedButton($ButtonHandle[0])) {
     print("   PASS: $ButtonToCheck button is disabled.\n");
   } else {
     print("   FAIL: $ButtonToCheck button is enabled.\n");
   }
}

When I use it on buttons that are either enabled or disabled I get
this same result:
FAIL: OK button is enabled.

Hello,
If this is a regular button, it is either enabled or disabled, see
IsWindowEnabled.  IsGrayedButtton is for radio buttons or checkboxes,
per Microsoft documentation.  See thread
http://groups.yahoo.com/group/perlguitest/message/619 for more
information.

Regards,
Dennis K. Paulsen
--- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@...> wrote:
>
> Has anyone else had this problem?
>
> Try this function. $Title is the string title of a window with the
> button to test. $ButtonToCheck is the string caption on the button.
>
> sub VerifyButtonDisabled {
>   my $Title = shift;
>   my $ButtonToCheck = shift;
>   my @WinHandle = FindWindowLike(undef, $Title);
>   print("WinHandle = $WinHandle[0]\n");  # diagnostic
>   my @ButtonHandle = FindWindowLike($WinHandle[0],$ButtonToCheck);
>   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
>   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
>   print("ButtonState = $ButtonState\n");  # diagnostic
>   if (IsGrayedButton($ButtonHandle[0])) {
>     print("   PASS: $ButtonToCheck button is disabled.\n");
>   } else {
>     print("   FAIL: $ButtonToCheck button is enabled.\n");
>   }
> }
>
> When I use it on buttons that are either enabled or disabled I get
> this same result:
> FAIL: OK button is enabled.
>

Thanks Dennis,

I think you are right. I was using
http://www.piotrkaluski.com/files/winguitest/docs/index.html as a
guide to the GuiTest functions. Maybe Pior will update his
documentation if many other people are as confused as me. It seems odd
that I should have to consult MSDN C++ documentation to find out how
to use Perl-based GuiTest. Maybe this function should be named
IsRB_CheckboxGrayed

Yim Mitchell
--- In perlguitest@yahoogroups.com, "Dennis K. Paulsen"
<ctrondlpaulsden@...> wrote:
>
> Hello,
> If this is a regular button, it is either enabled or disabled, see
> IsWindowEnabled.  IsGrayedButtton is for radio buttons or checkboxes,
> per Microsoft documentation.  See thread
> http://groups.yahoo.com/group/perlguitest/message/619 for more
> information.
>
> Regards,
> Dennis K. Paulsen
> --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@> wrote:
> >
> > Has anyone else had this problem?
> >
> > Try this function. $Title is the string title of a window with the
> > button to test. $ButtonToCheck is the string caption on the button.
> >
> > sub VerifyButtonDisabled {
> >   my $Title = shift;
> >   my $ButtonToCheck = shift;
> >   my @WinHandle = FindWindowLike(undef, $Title);
> >   print("WinHandle = $WinHandle[0]\n");  # diagnostic
> >   my @ButtonHandle = FindWindowLike($WinHandle[0],$ButtonToCheck);
> >   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
> >   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
> >   print("ButtonState = $ButtonState\n");  # diagnostic
> >   if (IsGrayedButton($ButtonHandle[0])) {
> >     print("   PASS: $ButtonToCheck button is disabled.\n");
> >   } else {
> >     print("   FAIL: $ButtonToCheck button is enabled.\n");
> >   }
> > }
> >
> > When I use it on buttons that are either enabled or disabled I get
> > this same result:
> > FAIL: OK button is enabled.
> >
>

Hi Tim,
I think my documentation is correct, but I do agree with you, that
there is a big chance for confusion. So I added a little warning to
the documentation of IsGrayedButton. Check it out and tell me what do
you think.

--Piotr


--- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@...> wrote:
>
> Thanks Dennis,
>
> I think you are right. I was using
> http://www.piotrkaluski.com/files/winguitest/docs/index.html as a
> guide to the GuiTest functions. Maybe Pior will update his
> documentation if many other people are as confused as me. It seems odd
> that I should have to consult MSDN C++ documentation to find out how
> to use Perl-based GuiTest. Maybe this function should be named
> IsRB_CheckboxGrayed
>
> Yim Mitchell
> --- In perlguitest@yahoogroups.com, "Dennis K. Paulsen"
> <ctrondlpaulsden@> wrote:
> >
> > Hello,
> > If this is a regular button, it is either enabled or disabled, see
> > IsWindowEnabled.  IsGrayedButtton is for radio buttons or checkboxes,
> > per Microsoft documentation.  See thread
> > http://groups.yahoo.com/group/perlguitest/message/619 for more
> > information.
> >
> > Regards,
> > Dennis K. Paulsen
> > --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@> wrote:
> > >
> > > Has anyone else had this problem?
> > >
> > > Try this function. $Title is the string title of a window with the
> > > button to test. $ButtonToCheck is the string caption on the button.
> > >
> > > sub VerifyButtonDisabled {
> > >   my $Title = shift;
> > >   my $ButtonToCheck = shift;
> > >   my @WinHandle = FindWindowLike(undef, $Title);
> > >   print("WinHandle = $WinHandle[0]\n");  # diagnostic
> > >   my @ButtonHandle = FindWindowLike($WinHandle[0],$ButtonToCheck);
> > >   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
> > >   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
> > >   print("ButtonState = $ButtonState\n");  # diagnostic
> > >   if (IsGrayedButton($ButtonHandle[0])) {
> > >     print("   PASS: $ButtonToCheck button is disabled.\n");
> > >   } else {
> > >     print("   FAIL: $ButtonToCheck button is enabled.\n");
> > >   }
> > > }
> > >
> > > When I use it on buttons that are either enabled or disabled I get
> > > this same result:
> > > FAIL: OK button is enabled.
> > >
> >
>

Piotr,

Thanks for clearing that up. The new note on the documentation helps.

I guess I don't understand what an "indeterminant" state is. Can't we
always determine the state of an object if we want to know? Can't we
always set the state so that it is always determined? I test software
at a small software company. If one of our developers sent me a change
with a functioning grayed button or a non-functioning not grayed
button I would send it back to get fixed. I have always thought
grayed-out and diabled are synonomous. But, now that I think of it, I
have seen grayed-out menu bars that function. They turn black when you
click on any menu item. I have always thought that this was a bug.
Maybe it isn't. I don't think we can expect software users to
understand the subtle difference between grayed-out and indeterminant.
They have better things to think about.

Tim Mitchell
--- In perlguitest@yahoogroups.com, "Piotr Kaluski" <pkaluski@...> wrote:
>
> Hi Tim,
> I think my documentation is correct, but I do agree with you, that
> there is a big chance for confusion. So I added a little warning to
> the documentation of IsGrayedButton. Check it out and tell me what do
> you think.
>
> --Piotr
>
>
> --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@> wrote:
> >
> > Thanks Dennis,
> >
> > I think you are right. I was using
> > http://www.piotrkaluski.com/files/winguitest/docs/index.html as a
> > guide to the GuiTest functions. Maybe Pior will update his
> > documentation if many other people are as confused as me. It seems odd
> > that I should have to consult MSDN C++ documentation to find out how
> > to use Perl-based GuiTest. Maybe this function should be named
> > IsRB_CheckboxGrayed
> >
> > Yim Mitchell
> > --- In perlguitest@yahoogroups.com, "Dennis K. Paulsen"
> > <ctrondlpaulsden@> wrote:
> > >
> > > Hello,
> > > If this is a regular button, it is either enabled or disabled, see
> > > IsWindowEnabled.  IsGrayedButtton is for radio buttons or
checkboxes,
> > > per Microsoft documentation.  See thread
> > > http://groups.yahoo.com/group/perlguitest/message/619 for more
> > > information.
> > >
> > > Regards,
> > > Dennis K. Paulsen
> > > --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@> wrote:
> > > >
> > > > Has anyone else had this problem?
> > > >
> > > > Try this function. $Title is the string title of a window with
the
> > > > button to test. $ButtonToCheck is the string caption on the
button.
> > > >
> > > > sub VerifyButtonDisabled {
> > > >   my $Title = shift;
> > > >   my $ButtonToCheck = shift;
> > > >   my @WinHandle = FindWindowLike(undef, $Title);
> > > >   print("WinHandle = $WinHandle[0]\n");  # diagnostic
> > > >   my @ButtonHandle = FindWindowLike($WinHandle[0],$ButtonToCheck);
> > > >   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
> > > >   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
> > > >   print("ButtonState = $ButtonState\n");  # diagnostic
> > > >   if (IsGrayedButton($ButtonHandle[0])) {
> > > >     print("   PASS: $ButtonToCheck button is disabled.\n");
> > > >   } else {
> > > >     print("   FAIL: $ButtonToCheck button is enabled.\n");
> > > >   }
> > > > }
> > > >
> > > > When I use it on buttons that are either enabled or disabled I
get
> > > > this same result:
> > > > FAIL: OK button is enabled.
> > > >
> > >
> >
>

Best example is probably a folder's property for the 'Read Only' in
explorer.  If the files in the folder are read-only and some are full
access, the checkbox for 'read-only' is 'filled-in' (indeterminate'),
ie, not checked or unchecked.

-----Original Message-----
From: perlguitest@yahoogroups.com [mailto:perlguitest@yahoogroups.com]
On Behalf Of Tim Mitchell
Sent: Saturday, June 03, 2006 7:44 PM
To: perlguitest@yahoogroups.com
Subject: [perlguitest] Re: Bug? IsGrayedButton always returns FALSE



Piotr,

Thanks for clearing that up. The new note on the documentation helps.

I guess I don't understand what an "indeterminant" state is. Can't we
always determine the state of an object if we want to know? Can't we
always set the state so that it is always determined? I test software
at a small software company. If one of our developers sent me a change
with a functioning grayed button or a non-functioning not grayed
button I would send it back to get fixed. I have always thought
grayed-out and diabled are synonomous. But, now that I think of it, I
have seen grayed-out menu bars that function. They turn black when you
click on any menu item. I have always thought that this was a bug.
Maybe it isn't. I don't think we can expect software users to
understand the subtle difference between grayed-out and indeterminant.
They have better things to think about.

Tim Mitchell
--- In perlguitest@yahoogroups.com, "Piotr Kaluski" <pkaluski@...>
wrote:
>
> Hi Tim,
> I think my documentation is correct, but I do agree with you, that
> there is a big chance for confusion. So I added a little warning to
> the documentation of IsGrayedButton. Check it out and tell me what do
> you think.
>
> --Piotr
>
>
> --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@> wrote:
> >
> > Thanks Dennis,
> >
> > I think you are right. I was using
> > http://www.piotrkaluski.com/files/winguitest/docs/index.html as a
> > guide to the GuiTest functions. Maybe Pior will update his
> > documentation if many other people are as confused as me. It seems
odd
> > that I should have to consult MSDN C++ documentation to find out how
> > to use Perl-based GuiTest. Maybe this function should be named
> > IsRB_CheckboxGrayed
> >
> > Yim Mitchell
> > --- In perlguitest@yahoogroups.com, "Dennis K. Paulsen"
> > <ctrondlpaulsden@> wrote:
> > >
> > > Hello,
> > > If this is a regular button, it is either enabled or disabled, see
> > > IsWindowEnabled.  IsGrayedButtton is for radio buttons or
checkboxes,
> > > per Microsoft documentation.  See thread
> > > http://groups.yahoo.com/group/perlguitest/message/619 for more
> > > information.
> > >
> > > Regards,
> > > Dennis K. Paulsen
> > > --- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@>
wrote:
> > > >
> > > > Has anyone else had this problem?
> > > >
> > > > Try this function. $Title is the string title of a window with
the
> > > > button to test. $ButtonToCheck is the string caption on the
button.
> > > >
> > > > sub VerifyButtonDisabled {
> > > >   my $Title = shift;
> > > >   my $ButtonToCheck = shift;
> > > >   my @WinHandle = FindWindowLike(undef, $Title);
> > > >   print("WinHandle = $WinHandle[0]\n");  # diagnostic
> > > >   my @ButtonHandle =
FindWindowLike($WinHandle[0],$ButtonToCheck);
> > > >   print("ButtonHandle = $ButtonHandle[0]\n");  # diagnostic
> > > >   my $ButtonState = IsGrayedButton($ButtonHandle[0]);
> > > >   print("ButtonState = $ButtonState\n");  # diagnostic
> > > >   if (IsGrayedButton($ButtonHandle[0])) {
> > > >     print("   PASS: $ButtonToCheck button is disabled.\n");
> > > >   } else {
> > > >     print("   FAIL: $ButtonToCheck button is enabled.\n");
> > > >   }
> > > > }
> > > >
> > > > When I use it on buttons that are either enabled or disabled I
get
> > > > this same result:
> > > > FAIL: OK button is enabled.
> > > >
> > >
> >
>









SPONSORED LINKS
Basic
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic
+programming+language&w2=C+programming+language&w3=Computer+programming+
languages&w4=The+c+programming+language&w5=C+++programming+language&w6=S
oftware+programming+language&c=6&s=193&.sig=p2tsb9F38_BRtgYd-Lrx9w>
programming language  C
<http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=Basic+pro
gramming+language&w2=C+programming+language&w3=Computer+programming+lang
uages&w4=The+c+programming+language&w5=C+++programming+language&w6=Softw
are+programming+language&c=6&s=193&.sig=s417rQDhIfEJWoylZxl7QQ>
programming language  Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=B
asic+programming+language&w2=C+programming+language&w3=Computer+programm
ing+languages&w4=The+c+programming+language&w5=C+++programming+language&
w6=Software+programming+language&c=6&s=193&.sig=QgdknWHEB-7BcpDElLJcYw>
programming languages
The
<http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=Basic
+programming+language&w2=C+programming+language&w3=Computer+programming+
languages&w4=The+c+programming+language&w5=C+++programming+language&w6=S
oftware+programming+language&c=6&s=193&.sig=DSnZ2EFeZa_krjnfz_P5vQ> c
programming language  C++
<http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=Basic+p
rogramming+language&w2=C+programming+language&w3=Computer+programming+la
nguages&w4=The+c+programming+language&w5=C+++programming+language&w6=Sof
tware+programming+language&c=6&s=193&.sig=IvzvhTPnaj_LFsbqs2knAg>
programming language  Software
<http://groups.yahoo.com/gads?t=ms&k=Software+programming+language&w1=Ba
sic+programming+language&w2=C+programming+language&w3=Computer+programmi
ng+languages&w4=The+c+programming+language&w5=C+++programming+language&w
6=Software+programming+language&c=6&s=193&.sig=pUnPrY01tNTjZVkDEHkvYQ>
programming language

   _____

YAHOO! GROUPS LINKS



*  Visit your group "perlguitest
<http://groups.yahoo.com/group/perlguitest> " on the web.


*  To unsubscribe from this group, send an email to:
  perlguitest-unsubscribe@yahoogroups.com
<mailto:perlguitest-unsubscribe@yahoogroups.com?subject=Unsubscribe>


*  Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service <http://docs.yahoo.com/info/terms/> .


   _____




[Non-text portions of this message have been removed]

Hi,

To solve a problem we have with a third party application for
automating  Microsoft office tasks I quickly wiped up a Perl script
using Win32::GuiTest, using SendKeys when a certain condition occured.
When I tested this on our development machine I was connected to it
via Remote Desktop. The third party app runs in foreground, so the
windows 2003 server is left logged on, but locked. I don't think that
the SendKeys function works when this is the case. The conditions that
I call SendKeys on are the existance of certain office pop up windows.
This works perfectly when I am logged in and watching the process (ie
when the machine is not locked) however, when the machine is locked
this seems to fail.

Does anyone have any advice? I searched this topic under this group
and could only find one similar problem from a couple of years ago,
which did not get resolved.

Many thanks in advance

Hi All,

I'm trying to automate a Application on Windows Vista OS using PERL,

It would be great if you can send me the link the useful documents to write
the script, how I can start up this assignment

Thanks so much

--
Rgds,
Girish :-)


[Non-text portions of this message have been removed]

In Windows no window can be active when the screen is locked (a security
mechanism). So, you have no target to sendkeys to when you have a locked
screen. Moreover, you can not (at least to my knowledge) move from
locked screen to active desktop through any script directly. The only
way I can see moving from locked screen or logged off is to rewrite your
autologin registry keys and then reboot. Then you will have an active
screen. Or don't lock the screen and turn the lock off.

good luck.
Tobin

funny_face_marto wrote:
> Hi,
>
> To solve a problem we have with a third party application for
> automating  Microsoft office tasks I quickly wiped up a Perl script
> using Win32::GuiTest, using SendKeys when a certain condition occured.
> When I tested this on our development machine I was connected to it
> via Remote Desktop. The third party app runs in foreground, so the
> windows 2003 server is left logged on, but locked. I don't think that
> the SendKeys function works when this is the case. The conditions that
> I call SendKeys on are the existance of certain office pop up windows.
> This works perfectly when I am logged in and watching the process (ie
> when the machine is not locked) however, when the machine is locked
> this seems to fail.
>
> Does anyone have any advice? I searched this topic under this group
> and could only find one similar problem from a couple of years ago,
> which did not get resolved.
>
> Many thanks in advance
>
>
>
>
>
>
>
>
> SPONSORED LINKS
> Basic programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=p2tsb9F38_BRtgYd-Lrx9w>
>  C programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=Basic+programming\
+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c+p\
rogramming+language&w5=C+++programming+language&w6=Software+programming+language\
&c=6&s=193&.sig=s417rQDhIfEJWoylZxl7QQ>
>  Computer programming languages
>
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Basic+pro\
gramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4\
=The+c+programming+language&w5=C+++programming+language&w6=Software+programming+\
language&c=6&s=193&.sig=QgdknWHEB-7BcpDElLJcYw>
>
> The c programming language
>
<http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=DSnZ2EFeZa_krjnfz_P5vQ>
>  C++ programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=Basic+programmi\
ng+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c\
+programming+language&w5=C+++programming+language&w6=Software+programming+langua\
ge&c=6&s=193&.sig=IvzvhTPnaj_LFsbqs2knAg>
>  Software programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Software+programming+language&w1=Basic+prog\
ramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=\
The+c+programming+language&w5=C+++programming+language&w6=Software+programming+l\
anguage&c=6&s=193&.sig=pUnPrY01tNTjZVkDEHkvYQ>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
>     *  Visit your group "perlguitest
>       <http://groups.yahoo.com/group/perlguitest>" on the web.
>
>     *  To unsubscribe from this group, send an email to:
>        perlguitest-unsubscribe@yahoogroups.com
>       <mailto:perlguitest-unsubscribe@yahoogroups.com?subject=Unsubscribe>
>
>     *  Your use of Yahoo! Groups is subject to the Yahoo! Terms of
>       Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
>
> --
> This message has been scanned for viruses and
> dangerous content by *MailScanner* <http://www.mailscanner.info/>, and is
> believed to be clean.

Just to be really preemptive....
If you want to change autologin properties from Perl use Win32::TieRegistry.

use Win32::TieRegistry (
   TiedHash=>\%reg,
   Delimiter=>'/',
);
use warnings;

my $logKey ="HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/Winlogon/";

$productKey = $reg{"$logKey"};

#  # setting some other values:
$$productKey{'DefaultUserName'} = "USER";
$$productKey{'DefaultPassword'} = "PASSWORD";
$$productKey{'DefaultDomainName'} = "DOMAINNAME";
$$productKey{'AutoAdminLogon'} = "1";

______
In Windows no window can be active when the screen is locked (a security
mechanism). So, you have no target to sendkeys to when you have a locked
screen. Moreover, you can not (at least to my knowledge) move from
locked screen to active desktop through any script directly. The only
way I can see moving from locked screen or logged off is to rewrite your
autologin registry keys and then reboot. Then you will have an active
screen. Or don't lock the screen and turn the lock off.

good luck.
Tobin
funny_face_marto wrote:
> Hi,
>
> To solve a problem we have with a third party application for
> automating  Microsoft office tasks I quickly wiped up a Perl script
> using Win32::GuiTest, using SendKeys when a certain condition occured.
> When I tested this on our development machine I was connected to it
> via Remote Desktop. The third party app runs in foreground, so the
> windows 2003 server is left logged on, but locked. I don't think that
> the SendKeys function works when this is the case. The conditions that
> I call SendKeys on are the existance of certain office pop up windows.
> This works perfectly when I am logged in and watching the process (ie
> when the machine is not locked) however, when the machine is locked
> this seems to fail.
>
> Does anyone have any advice? I searched this topic under this group
> and could only find one similar problem from a couple of years ago,
> which did not get resolved.
>
> Many thanks in advance
>
>
>
>
>
>
>
>
> SPONSORED LINKS
> Basic programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=p2tsb9F38_BRtgYd-Lrx9w>
>  C programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=Basic+programming\
+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c+p\
rogramming+language&w5=C+++programming+language&w6=Software+programming+language\
&c=6&s=193&.sig=s417rQDhIfEJWoylZxl7QQ>
>  Computer programming languages
>
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Basic+pro\
gramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4\
=The+c+programming+language&w5=C+++programming+language&w6=Software+programming+\
language&c=6&s=193&.sig=QgdknWHEB-7BcpDElLJcYw>
>
> The c programming language
>
<http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=DSnZ2EFeZa_krjnfz_P5vQ>
>  C++ programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=Basic+programmi\
ng+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c\
+programming+language&w5=C+++programming+language&w6=Software+programming+langua\
ge&c=6&s=193&.sig=IvzvhTPnaj_LFsbqs2knAg>
>  Software programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Software+programming+language&w1=Basic+prog\
ramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=\
The+c+programming+language&w5=C+++programming+language&w6=Software+programming+l\
anguage&c=6&s=193&.sig=pUnPrY01tNTjZVkDEHkvYQ>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
>     *  Visit your group "perlguitest
>       <http://groups.yahoo.com/group/perlguitest>" on the web.
>
>     *  To unsubscribe from this group, send an email to:
>        perlguitest-unsubscribe@yahoogroups.com
>       <mailto:perlguitest-unsubscribe@yahoogroups.com?subject=Unsubscribe>
>
>     *  Your use of Yahoo! Groups is subject to the Yahoo! Terms of
>       Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
>
> --
> This message has been scanned for viruses and
> dangerous content by *MailScanner* <http://www.mailscanner.info/>, and is
> believed to be clean.

http://search.cpan.org/dist/Win32-GuiTest/

Girish wrote:
> Hi All,
>
> I'm trying to automate a Application on Windows Vista OS using PERL,
>
> It would be great if you can send me the link the useful documents to
> write
> the script, how I can start up this assignment
>
> Thanks so much
>
> --
> Rgds,
> Girish :-)
>
>
> [Non-text portions of this message have been removed]
>
>
>
> SPONSORED LINKS
> Basic programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=p2tsb9F38_BRtgYd-Lrx9w>
>  C programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=Basic+programming\
+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c+p\
rogramming+language&w5=C+++programming+language&w6=Software+programming+language\
&c=6&s=193&.sig=s417rQDhIfEJWoylZxl7QQ>
>  Computer programming languages
>
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Basic+pro\
gramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4\
=The+c+programming+language&w5=C+++programming+language&w6=Software+programming+\
language&c=6&s=193&.sig=QgdknWHEB-7BcpDElLJcYw>
>
> The c programming language
>
<http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=Basic+program\
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The\
+c+programming+language&w5=C+++programming+language&w6=Software+programming+lang\
uage&c=6&s=193&.sig=DSnZ2EFeZa_krjnfz_P5vQ>
>  C++ programming language
>
<http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=Basic+programmi\
ng+language&w2=C+programming+language&w3=Computer+programming+languages&w4=The+c\
+programming+language&w5=C+++programming+language&w6=Software+programming+langua\
ge&c=6&s=193&.sig=IvzvhTPnaj_LFsbqs2knAg>
>  Software programming language
>
<http://groups.yahoo.com/gads?t=ms&k=Software+programming+language&w1=Basic+prog\
ramming+language&w2=C+programming+language&w3=Computer+programming+languages&w4=\
The+c+programming+language&w5=C+++programming+language&w6=Software+programming+l\
anguage&c=6&s=193&.sig=pUnPrY01tNTjZVkDEHkvYQ>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
>     *  Visit your group "perlguitest
>       <http://groups.yahoo.com/group/perlguitest>" on the web.
>
>     *  To unsubscribe from this group, send an email to:
>        perlguitest-unsubscribe@yahoogroups.com
>       <mailto:perlguitest-unsubscribe@yahoogroups.com?subject=Unsubscribe>
>
>     *  Your use of Yahoo! Groups is subject to the Yahoo! Terms of
>       Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
>
> --
> This message has been scanned for viruses and
> dangerous content by *MailScanner* <http://www.mailscanner.info/>, and is
> believed to be clean.

Hi Girish,

You can use the "autoit" library for Windows GUI. You
can use the DLL given by this library and import it in
PERL. This is freely available on net.

Thanks,

~Sujit..


--- Girish <girishwill@...> wrote:

> Hi All,
>
> I'm trying to automate a Application on Windows
> Vista OS using PERL,
>
> It would be great if you can send me the link the
> useful documents to write
> the script, how I can start up this assignment
>
> Thanks so much
>
> --
> Rgds,
> Girish :-)
>
>
> [Non-text portions of this message have been
> removed]
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Hello,

I'm having trouble using SendMessage to get the rectangle
coordinates of an item using LB_GETITEMRECT.

   my $member = "ABC";
   # Use LB_FINDSTRINGEXACT (0xF1A2) to find the index of the member
   my $ptr = pack( 'P', $member );
   my $Index = SendMessage( $Listbox[0], 0x01A2 , 0, unpack( 'L!',
$ptr ) );
   print("$member Index = $Index\n");
   # Use LB_GETITEMRECT (0xF198) to get the rectangle coordinates of
the listbox item
   $ptr = pack( 'P', $Index );
   my $result = SendMessage( $Listbox[0], 0x0198 , 1, unpack( 'L!',
$ptr ) );
   print("result  = $result\n");
   print("ltrb = ", unpack( 'L!', $ptr ));

This code fragment finds the correct index of my item. Then
SendMessage returns a result of 1, indicating it found the
coordinates, but the last print line does not return 4 unpacked
coordinates, just one apparently random value:
ltrb = 47425828

I've tried things like:
@coords = unpack( 'L!', $ptr );
$coords[0] gets the random value. $coords[1] ... etc get nothing.

I'd appreciate any help on this one.

Tim

OK, I got it, thanks to Brentje's post #1273.
The key seems to be defining $ptr with:

    $ptr = pack( "LLLL", 0,0,0,0);

and then packing it again with:

    pack('P', $ptr);

Here is what I came up with: (not to mention the typo)

   # Use LB_GETITEMRECT 0xF198 to get the rectangle coordinates of
the listbox item
   $ptr = pack( "LLLL", 0,0,0,0);
   my $result = SendMessage($Listbox[0], 0x0198, $Index, unpack('L L
L L', pack('P', $ptr)));
   my @coords = unpack('L L L L', $ptr);
   print("result  = $result\n");
   print("left    = $coords[0]\n");
   print("right   = $coords[1]\n");
   print("top     = $coords[2]\n");
   print("bottom  = $coords[3]\n");

--- In perlguitest@yahoogroups.com, "Tim Mitchell" <maxquig@...>
wrote:
>
> Hello,
>
> I'm having trouble using SendMessage to get the rectangle
> coordinates of an item using LB_GETITEMRECT.
>
>   my $member = "ABC";
>   # Use LB_FINDSTRINGEXACT (0xF1A2) to find the index of the member
>   my $ptr = pack( 'P', $member );
>   my $Index = SendMessage( $Listbox[0], 0x01A2 , 0, unpack( 'L!',
> $ptr ) );
>   print("$member Index = $Index\n");
>   # Use LB_GETITEMRECT (0xF198) to get the rectangle coordinates
of
> the listbox item
>   $ptr = pack( 'P', $Index );
>   my $result = SendMessage( $Listbox[0], 0x0198 , 1, unpack( 'L!',
> $ptr ) );
>   print("result  = $result\n");
>   print("ltrb = ", unpack( 'L!', $ptr ));
>
> This code fragment finds the correct index of my item. Then
> SendMessage returns a result of 1, indicating it found the
> coordinates, but the last print line does not return 4 unpacked
> coordinates, just one apparently random value:
> ltrb = 47425828
>
> I've tried things like:
> @coords = unpack( 'L!', $ptr );
> $coords[0] gets the random value. $coords[1] ... etc get nothing.
>
> I'd appreciate any help on this one.
>
> Tim
>

Hi all,

Is there any module to automate "HTML pages created with the help of
Java script".

I just checked with Win32::SAM module, the module couldn't recognize
the buttons & the links which are created using java scripts.

I also checked with LWP module, it didn't work out.

Is there any other module in perl which can help in solving the issue?

Regards
Deepak

On 6/8/06, meetdeepakb <meetdeepakb@...> wrote:
>
> Hi all,
>
>  Is there any module to automate "HTML pages created with the help of
>  Java script".

AFAIK there is no stand alone solution to this issue and even if there was
the Javascript engine in such soultion would be different from the one
in Internet Explorer.

Assuming you are on windows you can use Win32::IE::Mechanize
which is very good.
For Mozilla there is Mozilla::Mechanize but I have not tried it yet.

You might find some more details here:
http://search.cpan.org/dist/Bundle-Test/Test.pm

Gabor

This depends what you are trying to do. Your question is not clear on this.
   Automate "HTML pages created with the help of JavaScript"? If by this you mean
test or browse pages with JavaScript then look at
   Win32::IE::Mechanize
(http://search.cpan.org/~abeltje/Win32-IE-Mechanize-0.009/lib/Win32/IE/Mechanize\
.pm), it will allow the automation of website testing/browsing. It provides
functionality of WWW::Mechanize using Win32::OLE to drive Internet Explorer,
which can deal with javascript.



meetdeepakb <meetdeepakb@...> wrote:
           Hi all,

Is there any module to automate "HTML pages created with the help of
Java script".

I just checked with Win32::SAM module, the module couldn't recognize
the buttons & the links which are created using java scripts.

I also checked with LWP module, it didn't work out.

Is there any other module in perl which can help in solving the issue?

Regards
Deepak





  Send instant messages to your online friends http://uk.messenger.yahoo.com

[Non-text portions of this message have been removed]

Hi.

It seems you can`t do that directly. Here`s the explanation:
http://search.cpan.org/dist/WWW-Mechanize/lib/WWW/Mechanize/FAQ.pod

Well, you can pass urls through a browser and get rendered html from it... But
it`s tricky a bit. )

> Hi all,
>
> Is there any module to automate "HTML pages created with the help of
> Java script".
>
> I just checked with Win32::SAM module, the module couldn't recognize
> the buttons & the links which are created using java scripts.
>
> I also checked with LWP module, it didn't work out.
>
> Is there any other module in perl which can help in solving the issue?
>
> Regards
> Deepak

--- In perlguitest@yahoogroups.com, "meetdeepakb" <meetdeepakb@...> wrote:
>
> Hi all,
>
> Is there any module to automate "HTML pages created with the help of
> Java script".
>
> I just checked with Win32::SAM module, the module couldn't recognize
> the buttons & the links which are created using java scripts.

You should look at Selenium and it's Perl controller:

http://search.cpan.org/~lukec/Test-WWW-Selenium/lib/WWW/Selenium.pm
http://www.openqa.org/selenium/

It's really an excellent tool, designed to do exactly what you describe.

Also, if you don't object to Ruby, Watir (Web Application Testing in
Ruby) is another tool capable of doing this sort of thing:
http://www.openqa.org/watir/

-Chris

Has anybody found a solution to this without using SendRawKey?

SendKeys("+({DOWN 100})");
and{PGDN} jam the shift as well, without actually highlighting.

--- In perlguitest@yahoogroups.com, "rmqa_group" <rmqa_group@...> wrote:
>
> Hmmm, strange.
>
> The "+" (shift) modifier doesn't seem to work with either {HOME} or
> {END}. I've not had need to use it in this combination, though +{TAB}
> seems to work as expected.
>
> It also seems to "jam" the shift key, as switching to another
> application after the script, you may find the shift still engaged.
>
> You may have to resort to using the SendRawKey function instead...
>
> DH
>
> > Here is a simple program which shows the problem. When the
> highlight
> > button is selected, the curser just goes to the end of the text.
> The
> > text is not highlighted.  Any suggestions?
> >
> > use Tk;
> > use Win32::GuiTest qw(SendKeys );
> >
> > my $mw = MainWindow->new;
> >
> > my $e = $mw->Entry->pack;
> > $e->insert(0, "Test String");
> >
> > my $f = $mw->Frame->pack;
> >
> > $f->Button(
> >     -text => "Highlight",
> >     -command => [\&highlight, $e]
> > )->pack(-side => 'left');
> >
> > MainLoop;
> >
> > sub highlight
> > {
> >     my $e = shift;
> >     $e->focusForce;
> >     SendKeys("{HOME}+({END}) {DELETE}");
> > }
> >
>

Hi

I'm currently building a graphical test runner for my testing scripts,
and I'd like a way to watch for a special combination of key strokes
(say...oh...CTRL-ALT-P for example), so that I can tell my script to
pause when the combination is typed.  The idea is to have a small
message window sitting in a corner of the screen that would also watch
for the key combination, either through a loop or using a thread.
I've been googling around, but not finding much.  Does anyone here
know of a way I can constantly watch for that combination on a
system-wide basis, not just sent to a particular form?

Thanks
Brent

Hi,



Is there any way to access menus? What is want to automate is to open the
explorer window and Map a drive using the Map network drive wizard.



I'm able to get handle of window, but didn't find any specific method to
access Menu. I tried with PushButton("Tools") but it didn't work. Although
the functionality can be implemented using SendKeys(.) but I want to do it
in a better way, using some specific menu related function.



Can anyone put some light on the problem.?





Thanks & Regards,

Sundeep Gupta

Software Engineer

applabs Technologies

Office: 040 - 23558000 ext 2208

email:  <mailto:sundeep.gupta@...> sundeep.gupta@...







[Non-text portions of this message have been removed]

I have seen/heard rumors that some SendKeys functionality
will be changed/removed in Windows Vista. Curious if anyone
has used Win32::GuiTest with Windows Vista yet and with what
result. I am testing currently on XP and would like to know
if there are major changes on the horizon before I commit
fully to using Win32::GuiTest. I haven't had a chance to
install Vista yet and try this for myself.

Thanks,

Marshall

Dear All,

  I have an application of class type "javax.swing.JFrame" and it has
two buttons "Next" and "Cancel". I am able to find the parent window.

The problem is that i am not able to get the window id's of the
buttons using available functions like, getchildwindows and
findwindowlike. I basically intend to click on these buttons in the
automation process.

Any help will be greatly appreciated.

Thanks,

Can you "see" them using Spy++ (free from VC++, elsewhere(?)).
Another one (much better) is WinSpector(free).
http://www.windows-spy.com/
  <http://www.gypsysoft.com>

-----Original Message-----
From: perlguitest@yahoogroups.com [mailto:perlguitest@yahoogroups.com]
On Behalf Of Sachin Tiwari
Sent: Monday, June 19, 2006 4:53 AM
To: perlguitest@yahoogroups.com
Subject: [perlguitest] Unable to find window id's of buttons in the
frame



Dear All,

I have an application of class type "javax.swing.JFrame" and it has
two buttons "Next" and "Cancel". I am able to find the parent window.

The problem is that i am not able to get the window id's of the
buttons using available functions like, getchildwindows and
findwindowlike. I basically intend to click on these buttons in the
automation process.

Any help will be greatly appreciated.

Thanks,







[Non-text portions of this message have been removed]

Hi,

  No, i am not able to see them. Only the main GUI window is getting
shown in the list and not the buttons on the window.

Thanks,

--- In perlguitest@yahoogroups.com, "stuart arnold"
<stuart.arnold@...> wrote:
>
> Can you "see" them using Spy++ (free from VC++, elsewhere(?)).
> Another one (much better) is WinSpector(free).
> http://www.windows-spy.com/
>  <http://www.gypsysoft.com>
>
> -----Original Message-----
> From: perlguitest@yahoogroups.com
[mailto:perlguitest@yahoogroups.com]
> On Behalf Of Sachin Tiwari
> Sent: Monday, June 19, 2006 4:53 AM
> To: perlguitest@yahoogroups.com
> Subject: [perlguitest] Unable to find window id's of buttons in the
> frame
>
>
>
> Dear All,
>
> I have an application of class type "javax.swing.JFrame" and it
has
> two buttons "Next" and "Cancel". I am able to find the parent
window.
>
> The problem is that i am not able to get the window id's of the
> buttons using available functions like, getchildwindows and
> findwindowlike. I basically intend to click on these buttons in
the
> automation process.
>
> Any help will be greatly appreciated.
>
> Thanks,
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>