Sign in to follow this  
Followers 0
iHonda

Zmasters computer lock

11 posts in this topic

#1 ·  Posted (edited)

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

#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 by Zmaster

A great place to start Autoit 1-2-3

Share this post


Link to post
Share on other sites



Nice.

i542


I can do signature me.

Share this post


Link to post
Share on other sites

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

If $1 == "Zmaster"
instead


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

its easy to get passed of this :D

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 :wacko:

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 by nitekram

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by imbatmo

Share this post


Link to post
Share on other sites

its easy to get passed of this :D

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 :wacko:

Share this post


Link to post
Share on other sites

@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


A great place to start Autoit 1-2-3

Share this post


Link to post
Share on other sites

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")

Share this post


Link to post
Share on other sites

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.

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

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


A great place to start Autoit 1-2-3

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0