On 19 September 2011 10:20, Edwards, Mark (CXO) <mark.r.edwa...@hp.com>wrote:
> > I have a simple Win32::GuiTest example where I find a Notepad window, print > its handle and title and then send some keys to it. When I open Notepad > and the run the script I see... > > 4915356: Untitled - Notepad > Notepad pops up on top of other windows and "Testing 123" shows up in > Notepad as expected. > > Here's the problem. I need this to work with the screen locked. When I > lock the screen and give it time to run, I still get the handle and window > title but no keys get sent to Notepad. It seems like it never get set as > the foreground window since it's not on top after I unlock the screen. > > I tried SetForegroundWindow, SetActiveWindow and SetFocus but none seems to > make it the current window. > > Any suggestions? > > > ################################################################################# > use warnings; > use strict; > use Win32::GuiTest qw(SetFocus SetActiveWindow FindWindowLike > SetForegroundWindow SendKeys GetWindowText); > > sleep 15; #Give me time to lock the screen > my ($winid)=FindWindowLike(0, "Notepad"); > print "$winid: ", GetWindowText($winid), "\n"; > #SetForegroundWindow($wind); > #SetActiveWindow($winid); > SetFocus($winid); > sleep 3; > SendKeys("Testing 123~"); > > Based on what I googled it seems that when the screen is locked no window can be set to active - it's a security feature. I guess for the sake of this post you've dumbed it down, but what exactly are you trying to do? There may be other ways rather than GuiTest . . . Just in
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs