Brethern --

Do any of you know how to get all the text (or more than the title) from a windows application?

I can issue the following code but it just gets me the title:

use Win32::GuiTest qw(FindWindowLike GetWindowText 
    SetForegroundWindow SendKeys SendMouse 
MouseMoveAbsPix GetDesktopWindow);

my $rhapsodyHandle = GetWindow("rhapsody");
my $windowText = GetWindowText($rhapsodyHandle);
print $windowText . "\n";
 
 
sub GetWindow{
    my($windowName) =  @_;
    my @windows = FindWindowLike(0, "^$windowName", "");
    my $matchingWindow;
    for (@windows) {
          if($_){
               $matchingWindow = $_;
          }
     }
     return $matchingWindow;
}
[download]

Many thanks,
mdog