Win32::GuiTest waiting for a window

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

hey all,

i am using Win32::GuiTest to do some automation for a third party application.

within the perl script, i run the third-party app, and use Win32::GuiTest to click a few options and fill in some fields, and then click a "process" button in the third-party app, which process some data for a good 8 minutes.

once that data is finished processing a message box pops up that says, "complete".

my question is, how can i make my perl script wait for that message box to pop up, and when it does grab focus to that and click "OK"?

i tried putting a while loop to wait for it, but doing so slows my computer down to a crawl, and perl takes 99% cpu usage...

typically without waiting for the msg box, the perl script will terminate once it click the "process" button, but i need it to like go to sleep or something, until the msg box appears.

any thoughts?

thanks monks

Comment on Win32::GuiTest waiting for a window

Replies are listed 'Best First'.
Re: Win32::GuiTest waiting for a window by kelan (Deacon) on Jan 12, 2004 at 18:35 UTC
You're right, you do need to sleep. Here's what I use in one of my programs to wait for a window: `sub WaitFor { my $win; my $title = shift; while (!defined $win) { select(undef,undef,undef,0.1); # sleep for 1/10th of a second ($win) = FindWindowLike(0, $title); } return $win; }` [download] This sub takes the window title as a parameter and then just sleeps until that window appears. It doesn't set it to the active window, but you can do that with something like this: `SetForegroundWindow(WaitFor("Some Title"));` [download] Update: Remember to keep the parentheses around the `$win` in the loop, because `FindWindowLike` returns a list. kelan Perl6 Grammar Student	[reply] [d/l] [select]
Re: Re: Win32::GuiTest waiting for a window by primus (Scribe) on Jan 12, 2004 at 19:27 UTC
thanks! worked like a charm	[reply]


go ahead... be a heretic
	PerlMonks