Phony Windows Lock-Out

[archrival]

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

[MSLx Fanboy]

Figured out why bitmaps weren't displaying, updated archrival code for *some* optimizations (Objects take a long time apparently).

Enjoy

FakeLock.zip

[MSLx Fanboy]

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....

[random667]

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

[random667]

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.

[ioliver]

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

[random667]

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

Thanks 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

[ioliver]

Sorry, I didn't read your code completly.

I thought,

;*********

; Screen Saver is running

;*********

was a placeholder, but I was mistaken.

Good job.

Ian

[random667]

Sorry, I didn't read your code completly.

I thought,

was a placeholder, but I was mistaken.

Good job.

Ian

AH..

[random667]

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

[ioliver]

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

[random667]

Great job. But, I don't understand how it gets my Password? Can you explain that to me?

Thanks,

Ian

it passes the password you enter to the system for verification.

Edited October 25, 2005 by random667

[MSLx Fanboy]

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.

[random667]

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 it

look over the code and fix it up if you want, i am sure it could be better.

Edited October 25, 2005 by random667

[MSLx Fanboy]

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

[random667]

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 file

i 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 keys

also i get errors when i try to run your script:

Edited October 25, 2005 by random667

[random667]

What was the reson for puting the images in seperate folders?

Edited October 25, 2005 by random667

[MSLx Fanboy]

Do you have the most recent version of the beta?

[random667]

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\Lock

It will put shortcuts in the start menu and desktop

Source for lock and installer will both be put into C:\Program Files\Lock

here is the latest:

Edited October 25, 2005 by random667

[MSLx Fanboy]

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.