###############
sub getWindowText{
	my $hwnd = shift || return;
	$GetWindowText ||= new Win32::API("user32", "GetWindowText", ['N', 'P', 'N'], 'N') || return;
    my $title = " " x 1024;
    my $titleLen = 1024;
    my $result = $GetWindowText->Call($hwnd, $title, $titleLen);
    if($result){return substr($title, 0, $result);}
    #if no result send a WM_GetText message to the window
    $WmSendMessage ||= new Win32::API("user32", "SendMessageA", [N, N, N, P],'N') || return;
	my $WM_GETTEXT=13;
	my $text = " " x 2048;
    my $textLen = 2048;
    my $result = $WmSendMessage->Call($hwnd,$WM_GETTEXT, $textLen, $text);
	if($result){return substr($text, 0, $result);}
	}