pradeep,krishna has asked for the wisdom of the Perl Monks concerning the following question:
Hai all fellow monks
I have the following code to close all the opened Remote Desktop Connection windows.
#perl use Win32::GuiTest qw(FindWindowLike MenuSelect WaitWindow WMSetText + PushChildButton GetSystemMenu SetForegroundWindow); @windows = FindWindowLike(0, "Remote Desktop Connection"); for (@windows) #--for each of the open windows do the follow +ing { MenuSelect("&Close", 0, GetSystemMenu($_,FALSE)); }
|
|---|