Ticket #732: guitest.pl

    #!perl -w
    # If you have a notepad window open this prints the contents.
    
    use strict;
    
    use Win32::GuiTest qw(FindWindowLike WMGetText);
    
    my @windows = FindWindowLike(0, "", "Notepad");
    die "More than one notepad open\n" if @windows > 1;
    die "No notepad is running, please open one with some text in it.\n" if not @windows;
    
    my $notepad = $windows[0];
    my @edits = FindWindowLike($notepad, "", "Edit");
    die "More than one edit inside notepad: " .  @edits . "\n" if @edits > 1;
    die "No edit window found inside notepad\n" if not @edits;
    
    print "----------------------------------------------------------\n";
    print WMGetText($edits[0]);
    print "\n";
    print "----------------------------------------------------------\n";