Thank you. That is moderately helpful information, especially the forepart. I'm not a Win32 guru or even very much adept in Perl anymore. So I'm back to making newbie errors. Embarrassing, but there it is.
Still I like to update my old scripts if folks (expecially myself) still find them useful. And this one apparently other people even besides myself still do. The whole reason for this particular script is to defeat the IT admin mandated screensaver policy of every few minutes requiring activity or a screen lock. They cannot be made to understand that while it is right and proper for the CAD designers to not leave their IP up while going on break it is a whole different story for us test engineers who have to go into the test cells to turn a valve, measure a voltage and so forth while expecting to come back after two minutes to the PC controlling our test to that we might adjust a pressure or flow...or to hit pause (not E-stop) in a semi- (but not all out) emergency. Having to constantly be re-logging in can upset the timing of a test and adversely affect the result.
In short, I have to do it with Perl, not via the regular Windows way (because that is disabled by default). Local IT admins in my last two jobs have sagely understood and not very loudly objected to sparing use of a screensaver defeat script (mine, in fact, at both places) for some years now. But neither have either of them been willing to fight the good fight to push this issue with their own higher-ups out-of-state or overseas.
Now the same script which has worked for years is only semi-reliable on Win7 while it was fine on Vista, XP and 2000. I added in Tye's mouse-jiggle function to no additional increase of reliability. So I'm still wanting to make it wholly reliable again. I want to do that for myself and everyone who seems to like it. I need to do it in Perl. Anyone with a helpful example to offer will be very appreciated. Thank you.
|