archrival Posted October 24, 2005 Share Posted October 24, 2005 (edited) Here's the latest in a zip file including au3 file, bitmaps, icon and a precompiled version for testing. The latest things I am working on are to possibly get the GUI windows set to always on top and still disable keyboard shortcuts. I also fixed the login screen for non-domain PCs (Does not ask to hit Ctrl-Alt-Delete, nor ask for computer to login to). Edited October 25, 2005 by archrival Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 24, 2005 Share Posted October 24, 2005 Figured out why bitmaps weren't displaying, updated archrival code for *some* optimizations (Objects take a long time apparently). EnjoyFakeLock.zip Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 24, 2005 Share Posted October 24, 2005 I had worked with the last posts script, I just made changes to allow for the optimizations I've been working on, but I see that we still aren't using that code.... Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 (edited) Here is what ive got on the screensaver bit so far: Func ScreenSaverCheck() While 1 Dim $SCR_DETECTED = 0 $list = ProcessList() For $i = 1 to $list[0][0] If StringInStr($list[$i][0], ".scr") Then ;********* ; Screen Saver is running ;********* ;Unset login box on top WinSetOnTop("Unlock Computer", "", 0) $SCR_DETECTED = 1 EndIf Next If Not $SCR_DETECTED Then ;********* ; Screen Saver is not running ;********* ;Keep login box on top WinSetOnTop("Unlock Computer", "", 1) EndIf WEnd EndFunc Edited October 24, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 I had worked with the last posts script, I just made changes to allow for the optimizations I've been working on, but I see that we still aren't using that code....When i started this morning the gui in your script was messed up so i started from the last post from archrival. It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
ioliver Posted October 24, 2005 Share Posted October 24, 2005 (edited) This isn't much help, but...I think if you could read (maybe a registry value) for the wait time before the screensaver comes on. Then have your script set the fake logon window to 'not always on top' right before the screen saver is started.I did a Google search on screensaver registry settings, but I didn't find what I was looking for.Anyway, I hope this at least can get you in the right direction.Thanks for reading,Ian Edited October 24, 2005 by ioliver "Blessed be the name of the Lord" - Job 1:21Check out Search IMF Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 (edited) This isn't much help, but...I think if you could read (maybe a registry value) for the wait time before the screensaver comes on. Then have your script set the fake logon window to 'not always on top' right before the screen saver is started.I did a Google search on screensaver registry settings, but I didn't find what I was looking for.Anyway, I hope this at least can get you in the right direction.Thanks for reading,IanThanks but i got the code to check if the screen saver is going:Func ScreenSaverCheck() While 1 Dim $SCR_DETECTED = 0 $list = ProcessList() For $i = 1 to $list[0][0] If StringInStr($list[$i][0], ".scr") Then ;********* ; Screen Saver is running ;********* ;Unset login box on top WinSetOnTop("Unlock Computer", "", 0) $SCR_DETECTED = 1 EndIf Next If Not $SCR_DETECTED Then ;********* ; Screen Saver is not running ;********* ;Keep login box on top WinSetOnTop("Unlock Computer", "", 1) EndIf WEnd EndFunc Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
ioliver Posted October 24, 2005 Share Posted October 24, 2005 Sorry, I didn't read your code completly.I thought,;********* ; Screen Saver is running ;*********was a placeholder, but I was mistaken.Good job.Ian "Blessed be the name of the Lord" - Job 1:21Check out Search IMF Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 Sorry, I didn't read your code completly.I thought,was a placeholder, but I was mistaken.Good job.IanAH.. It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 (edited) Here is an updated screensaver check code: Func _ScreenSaverCheck() $SCR_DETECTED = 0 While 1 $list = ProcessList() For $i = 1 to $list[0][0] $SCR_DETECTED = StringInStr($list[$i][0], ".scr") Next Select Case $SCR_DETECTED = 1 WinSetOnTop("Unlock Computer", "", 0) Case $SCR_DETECTED = 0 WinSetOnTop("Unlock Computer", "", 1) EndSelect WEnd EndFunc Edited October 24, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
ioliver Posted October 24, 2005 Share Posted October 24, 2005 (edited) Great job. But, I don't understand how it gets my Password? Can you explain that to me? Thanks, Ian Edited October 24, 2005 by ioliver "Blessed be the name of the Lord" - Job 1:21Check out Search IMF Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 (edited) Great job. But, I don't understand how it gets my Password? Can you explain that to me?Thanks,Ianit passes the password you enter to the system for verification. Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 24, 2005 Share Posted October 24, 2005 Well let me know if this is the 'final' version or not, and I'll go through and see what I can do to clean up any code. Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
random667 Posted October 24, 2005 Share Posted October 24, 2005 (edited) Well let me know if this is the 'final' version or not, and I'll go through and see what I can do to clean up any code. I'm done with itlook over the code and fix it up if you want, i am sure it could be better. Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 25, 2005 Share Posted October 25, 2005 Updated code. Works fine. My only question is, for Win_XP high resolution, does the stripe seem to break near the right end of the image?ScreenLock.zip Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
random667 Posted October 25, 2005 Share Posted October 25, 2005 (edited) Updated code. Works fine. My only question is, for Win_XP high resolution, does the stripe seem to break near the right end of the image?yep, i had an updated version of the stripe in my zip filei just noticed that this bit of code HotKeySet('{Enter}', '_Auth') appears multiple times through the script, instead of at the front of the script with the other hot keysalso i get errors when i try to run your script: Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
random667 Posted October 25, 2005 Share Posted October 25, 2005 (edited) What was the reson for puting the images in seperate folders? Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 25, 2005 Share Posted October 25, 2005 Do you have the most recent version of the beta? Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
random667 Posted October 25, 2005 Share Posted October 25, 2005 (edited) Do you have the most recent version of the beta?yea got it a few days ago,the errors i got from your script are syntax errors.I fixed the extra hotkey calls in my script, and made an installer to go with this.It will install to C:\Program Files\LockIt will put shortcuts in the start menu and desktopSource for lock and installer will both be put into C:\Program Files\Lockhere is the latest: Edited October 25, 2005 by random667 It is really sad to see a family torn apart by something as simple as a pack of wolves. Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted October 25, 2005 Share Posted October 25, 2005 If you would post the syntax errors, I ran it through Scite and generated no syntax or runtime errors (only the stripe issue). If anything I might have an idea of what it might be, however its doubtful. Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now