Zmasters computer lock

[iHonda]

this just produces a GUI that covers the desktop, hides ur task bar and covers everything that is open this window cannot be closed minimized or its size changed, the only way to close it is with the correct password, you can change the password

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:         Zmaster <zmaster01@gmail.com>



#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#cs
;uncomment if you dont think you will be able to remember you password or if u want to find out wut happens when u have the wrong password
Func shit()
    Exit
EndFunc

HotKeySet("{DELETE}", "shit")
#ce


RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce");comment this line if u do not want it to run on the next restart

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

#include <GuiConstants.au3>

GuiCreate("Zmaster's Lock", 1018, 671,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Input_1 = GuiCtrlCreateInput("", 100, 30, 240, 20, $ES_PASSWORD)
$Button_2 = GuiCtrlCreateButton("Ok", 400, 30, 80, 20)
$Group_3 = GuiCtrlCreateGroup("Input Password and press Ok", 70, 10, 430, 60)
$Date_4 = GuiCtrlCreateDate("Date4", 620, 30, 210, 20)

GUISetState()
GuiSetState(@SW_MAXIMIZE)
Opt ("WinTitleMatchMode", 4)
GUISetBkColor (0x000000); this line is optional u can delete it or comment it if u want it only makes the gui black

Winsetstate("classname=Shell_TrayWnd","",@SW_HIDE)
WinSetOnTop("Zmaster's Lock", "", 1)
SoundSetWaveVolume(0)
While 1
    
    WinClose("Windows Task Manager")
    
    $msg = GuiGetMsg()
    Select
        
        
    Case $msg = $Button_2
        $1 = GUICtrlRead(3)
        If $1 = "Zmaster" Then; you can can zmaster to any thing you would like just be sure to have the " and " around it
            ToolTip("Good")
            Winsetstate("classname=Shell_TrayWnd","",@SW_Show)
            ExitLoop
        Else
            SoundSetWaveVolume(100)
            Beep(1500, 10000)
            ToolTip("oops")
            
            ProgressOn("Shut Down", "Shuting Down", "0 percent")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " percent")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()
Shutdown(5)
        EndIf
        
        
    Case $msg = $GUI_EVENT_MINIMIZE
        GUISetState(@SW_MAXIMIZE)
        GUISetState()
        
    Case $msg = $GUI_EVENT_RESTORE
        GUISetState(@SW_MAXIMIZE)
        GUISetState()
        
        
    Case $msg = $GUI_EVENT_CLOSE
        
    Case Else
    ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

Thank you to every1 that helped me with this script. can u guys tell me if i got the regwrite correct for the run with restart feed back is much appreciated

Edited July 16, 2006 by Zmaster

[i542]

Nice.

i542

[RazerM]

It Works well but i noticed the password isn't case sensitive, use

If $1 == "Zmaster"

instead

[nitekram]

its easy to get passed of this

when asking the pass just press alt+ctrl+delete

run a new task (cmd.exe) and type kill nameoffile.exe

of you can just kill the proces

How? When I press task manager comes up for a brief second and then disappears.

@Zmasters - maybe make the gui with $DS_SETFOREGROUND to take away the minimize and close icon?

EDIT - like this: GuiCreate("Zmaster's Lock", 1018, 671,-1, -1 , $DS_SETFOREGROUND)

Edited July 16, 2006 by nitekram

[imbatmo]

i would solve it this way:

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Opt("TrayIconHide", 1)

Global $password = "password"

HotkeySet("{ESC}", "_exit")

$gui = GUICreate("Lock", @DesktopWidth, @DesktopHeight)
$pwinput = GUICtrlCreateInput("", @DesktopWidth/2-100, @DesktopHeight/2-10, 200, 20, $SS_CENTER)
$label = GUICtrlCreateLabel("Insert Password and press ESC.", @DesktopWidth/2-100, @DesktopHeight/2-35, 200, 20, $SS_CENTER)

GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

GUISetState()

While 1
    Sleep(0)
    If ProcessExists("taskmgr.exe") Then
         ProcessClose("taskmgr.exe")
    EndIf

    If not WinActive("Lock") Then
       WinActivate("Lock")
    EndIf
WEnd

Func _exit()
    $prompt = GUICtrlRead($pwinput)
    If $prompt = $password Then
         Exit
     Else
         GUICtrlSetData($label, "Wrong Password. Try again.")
    EndIf
EndFunc

Edited July 17, 2006 by imbatmo

[{NL}--Xantios---]

its easy to get passed of this

when asking the pass just press alt+ctrl+delete

run a new task (cmd.exe) and type kill nameoffile.exe

of you can just kill the proces

[iHonda]

@imbatmo thats a good script i was tryin to do something like that but i couldnt get my variables to work correctly

thanx for the input all

[jvanegmond]

Taskmanager is called in Dutch 'Taakbeheer' so i can get around this ^^. Very nice lock !

[imbatmo]

Taskmanager is called in Dutch 'Taakbeheer' so i can get around this ^^. Very nice lock !

yeah thats why i'd use ProcessClose("taskmgr.exe") instead of WinClose("Windows Task Manager")

[nitekram]

yeah thats why i'd use ProcessClose("taskmgr.exe") instead of WinClose("Windows Task Manager")

Is there anyway when this LOCK is running to stop any new process from running. When you press windows key + 'E' - the window flashes up and is there when the LOCK goes away. Also there is something else that I did last night, but cannot remember it today with windows key + 'R' (I think) that brought up a "restrictions" pop saying that user did not have rights - could not find the process name, tried the gui name and it did not remove it - maybe have to send a key press of !O for OK to get rid of it.

[iHonda]

vaulters computer lock thingy is way better than this i just made this 1 to see if i could actually do it and so i would be able to set my own password