AutoHotkey Community

#NoTrayIcon
START:
gui,2:destroy
gui,destroy
Gui, Font, S8 CDefault, tahoma
Gui, Add, Text, x26 y20 w80 h20 ,Name:
Gui, Add, Text, x26 y40 w80 h20 ,Password:
Gui, Add, Text, x26 y60 w80 h20 ,Repeat it:
Gui, Add, Edit, x116 y20 w140 h20 vNume,
Gui, Add, Edit, x116 y40 w140 h20 vParola +Password,
Gui, Add, Edit, x116 y60 w140 h20 vParola2 +Password,
Gui, Add, Button, x100 y87 w86 h27 gBLOCARE, Lock
Gui, Show,center h128 w320, Lock computer
Return


Blocare:
gui,submit
if NOT(Nume<>)
{
msgbox 16,Error,You must write a type or a nickname.
goto START
}
if parola<>%parola2%
{
msgbox 16,Error,The passwords do not match.
goto START
}
gui,2:color, black
gui,2:show, center h2024 w2000
gui,destroy
Gui, Font, S8 CBlack, tahoma
Gui, Add, Text, x16 y10 w250 h40 vMSJ,%Nume% locked the computer using a password. Only %Nume% (or someone else who knows the password) can unlock it.
Gui, Add, Button, x92 y51 w87 h26 gDEBLOCARE, Unlock
gui,-sysmenu +alwaysontop +WS_EX_TOPMOST -caption
gui,show
loop
{
IfWinExist ahk_class #32770
{
winkill,ahk_class #32770
GuiControl,,MSJ,No cheating please!
sleep 5000
GuiControl,,MSJ,%Nume% locked the computer using a password. Only %Nume% (or someone else who knows the password) can unlock it.
}
}
return

DEBLOCARE:
gui,destroy
gui,+alwaysontop -caption
Gui, Font, S8 CDefault, tahoma
Gui, Add, Text, x16 y10 w50 h20 , Password:
Gui, Add, Edit, x66 y10 w380 h20 vParolaNoua +Password,
Gui, Add, Button, x452 y9 w101 h23 vMSJ2 gVER, Enter
Gui, Show, center h40 w561, Parola
loop
{
IfWinExist ahk_class #32770
{
winkill,ahk_class #32770
GuiControl,,MSJ2,No cheating!
sleep 5000
GuiControl,,MSJ2,Enter
}
}
Return

VER:
gui,submit
if ParolaNoua<>%parola%
{
msgbox 16,Error,Incorrect password.
goto BLOCARE
return
}
else
exitapp

GuiClose:
ExitApp

#UseHook
#NoTrayIcon
#WinActivateForce

gui,2:color, black
gui,2:show, center h2024 w2000
gui,destroy
Gui, Font, S8 CBlack, tahoma
Gui, Add, Text, x16 y10 w250 h40 vMSJ,This Computer is locked.
gui,-sysmenu +alwaysontop +WS_EX_TOPMOST -caption
gui,show

loop
{
   WinActivate, %A_ScriptName%
   IfWinExist ahk_class #32770
      winkill,ahk_class #32770
   SendInput {LAlt Down}{RShift Down}{LCtrl Down}
}

#UseHook
#NoTrayIcon
#WinActivateForce

myPassword = lucky
myName = Someone

START:
   Gui, Font, S8 CDefault, tahoma
   Gui, Add, Text, x26 y20 w80 h20 ,Name:
   Gui, Add, Text, x26 y40 w80 h20 ,Password:
   Gui, Add, Text, x26 y60 w80 h20 ,Repeat it:
   Gui, Add, Edit, x116 y20 w140 h20 vmyName, %myName%
   Gui, Add, Edit, x116 y40 w140 h20 vmyPassword +Password, %myPassword%
   Gui, Add, Edit, x116 y60 w140 h20 vmyPassword2 +Password, %myPassword%
   Gui, Add, Button, x100 y87 w86 h27 gTESTDATA +default, Lock
   Gui, Show,center h128 w320, Lock computer
Return


TESTDATA:
   gui,submit
   if (myName == "") {
      msgbox 16,Error,You must write a type or a nickname.
      goto START
   } else if (myPassword <> myPassword2 ) {
      msgbox 16,Error,The passwords do not match.
      goto START
   }
   SetTimer, MoveToForeground, 10
   informationText = %myName% locked the computer using a password. Only %myName% can unlock it (password: %myPassword%).
   goto LOCKED
return




LOCKED:
   gui, 2:color, black
   gui, 2:show, center h2024 w2000
   gui, destroy
   Gui, Font, S8 CBlack, tahoma
   Gui, Add, Text, x16 y10 w550 h40, %informationText%
   Gui, Add, Text, x16 y30 w50 h20 , Password:
   Gui, Add, Edit, x66 y30 w380 h20 vTypedPswd +Password,
   Gui, Add, Button, x452 y30 w101 h23 gVERIFY +default, Enter
   gui, -sysmenu +alwaysontop +WS_EX_TOPMOST -caption
   Gui, Show, center h60 w561, %A_ScriptName%enterPswd
return

VERIFY:
   Gui, Submit
   if (TypedPswd <> myPassword) {
      informationText = Incorrect password.
      tooltip, %TypedPswd% <> %myPassword%
      goto LOCKED
      return
   } else {
      exitapp
   }
return

MoveToForeground:
   WinActivate, %A_ScriptName%
   WinActivate, %A_ScriptName%enterPswd
   IfWinExist ahk_class #32770
      winkill, ahk_class #32770
return

*LCtrl::return
*RCtrl::return
*LAlt::return
*RAlt::return
*LWin::return
*RWin::return