Manually Select a Windows Window

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

I have an experimental Perl script that selects a Notepad window and writes some text to it. My code works.

If I have more than one Notepad window open, I would like to be able to manually select which window to write to. Is there a way to do this?

#!/PERL5
use strict;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);


$ARGV[0] =~ s/\[!20\]//g;            #Remove [!20] WinkeySim delays
$ARGV[0] =~ m!\((.*)\)!;            #Grab everything between ( ) put i
+nto $1 
my $EEcorr = "{(}".$1."{)}";            #Parentheses (special characte
+rs) are added

#Write to unit EEPROM
#my @window = FindWindowLike(0, "Terminal", "");
my @window = FindWindowLike(0, "Notepad", "");
SetForegroundWindow($window[0]);
sleep 1;
Win32::GuiTest::SendKeys($EEcorr,20);
[download]

Comment on Manually Select a Windows Window Download Code

Replies are listed 'Best First'.
Re: Manually Select a Windows Window by LanX (Saint) on Feb 21, 2017 at 17:18 UTC
I suppose one of those should do `HWND GetFocus(hwnd) AHWND GetActiveWindow(hwnd) AHWND GetForegroundWindow() *` [download] Did you try? Of course you should check if the result belongs to the set of NotePad windows. Untested! Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply] [d/l]
Re: Manually Select a Windows Window by stevieb (Canon) on Feb 21, 2017 at 17:19 UTC
As you've already found, `FindWindowLike()` returns a list of all open windows of that type, and after a quick test, they are returned in the order of most recently opened to first opened: Code: `my @window = FindWindowLike(0, "Notepad", ""); print "$_\n" for @window;` [download] Open one window: `8455346` [download] 2nd window opened: `7931554 8455346` [download] 3rd: `11731214 7931554 8455346` [download] Differentiating between the windows other than the order they were opened is something I don't have time to review the docs for right now, so you may want to look to see if there are other identifiers or not.	[reply] [d/l] [select]
Re^2: Manually Select a Windows Window by rd48sec (Novice) on Feb 21, 2017 at 17:48 UTC
No way to have Perl wait for a mouse click on any window and then send the data?	[reply]
Re^3: Manually Select a Windows Window by Anonymous Monk on Feb 22, 2017 at 00:15 UTC
No way to have Perl wait for a mouse click on any window and then send the data? See GetAsyncKeyState function (Windows) and https://metacpan.org/pod/Win32::GuiTest::Examples#eg/keypress.pl	[reply]