http://www.perlmonks.org?node_id=1174278


in reply to Win32::GuiTest module application problem

The issue is that you only search for the window once. $window[0] doesn't automatically update as the window state changes. You need to test each time through the loop. The test code cleans up a little by putting it in a sub:

use strict;
use warnings;
use Win32::GuiTest;

while (my $window = findWindow("Calculator")) {
    print("calculator window is open\n");
    sleep 2;
}

print "Calculator window closed\n";


sub findWindow {
    my ($caption) = @_;
    my @windows = Win32::GuiTest::FindWindowLike(undef, "Calculator");

    return $windows[0];
}

[download]

Prints (for my test):

calculator window is open
calculator window is open
calculator window is open
calculator window is open
Calculator window closed

[download]
Premature optimization is the root of all job security

Replies are listed 'Best First'.
Re^2: Win32::GuiTest module application problem
by ankit.tayal560 (Beadle) on Oct 19, 2016 at 10:13 UTC

    got my mistake. Thanks a lot for you guidance and help

[reply]

In Section Seekers of Perl Wisdom