Advanced Search

Quickly lock your PC and turn off the screen

/ Published in: AutoIt
Save to your folder(s)
This is a AutoHotKey.com script. It runs on Windows and allows you to lock your computer by simply hitting a single key combination and unlock it with a different one. Download the whole script at the url listed.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. ; Program: LockScreen utility
  2. ; Author:  Dean Householder
  3. ; Website: http://www.deanhouseholder.com/
  4. ; Version: 1.3 9/28/2012
  5. ; Copyright: GPL
  6.  
  7. #SingleInstance, Force
  8. #Persistent
  9.  
  10. IniPath = %A_WorkingDir%\LockScreen.ini
  11.  
  12. If !A_IsCompiled
  13. 	Menu, Tray, Icon, %A_ScriptDir%\LockScreen.ico
  14. Else
  15. 	Menu, Tray, Icon, %A_ScriptName%
  16.  
  17. IfNotExist, %IniPath%
  18. {
  19. 	FileAppend, , %IniPath%, CP0
  20. 	IniWrite, ^6,   %IniPath%, LockScreen, LockHotkeyStart
  21. 	IniWrite, F10,  %IniPath%, LockScreen, LockHotkeyEnd
  22. 	IniWrite, true, %IniPath%, LockScreen, TurnOffScreen
  23. 	IniWrite, true, %IniPath%, LockScreen, RunScreenSaver
  24. 	IniWrite, 1,    %IniPath%, LockScreen, UnlockDuration
  25. }
  26.  
  27. IniRead, LockHotkeyStart, %IniPath%, LockScreen, LockHotkeyStart
  28. IniRead, LockHotkeyEnd,   %IniPath%, LockScreen, LockHotkeyEnd
  29. IniRead, LockHotkeyEnd,   %IniPath%, LockScreen, LockHotkeyEnd
  30. IniRead, TurnOffScreen,   %IniPath%, LockScreen, TurnOffScreen
  31. IniRead, RunScreenSaver,  %IniPath%, LockScreen, RunScreenSaver
  32. IniRead, UnlockDuration,  %IniPath%, LockScreen, UnlockDuration
  33.  
  34. Hotkey, %LockHotkeyStart%, StartLock, UseErrorLevel
  35. Hotkey, %LockHotkeyEnd%, EndLock, UseErrorLevel
  36. Return
  37.  
  38. ~ESC::
  39. 	Reload
  40. Return
  41.  
  42.  
  43. StartLock:
  44. 	IfWinNotExist, BlackScreen1 ahk_class AutoHotkeyGUI
  45. 	{
  46. 		SetFormat Integer, Dec
  47. 		SysGet, Monitors, MonitorCount ; Count monitors
  48. 		Loop, %Monitors% ; Loop through each monitor
  49. 		{
  50. 			SysGet, Mon%A_Index%, Monitor, %A_Index% ; Get this monitor's stats
  51. 			Width := Mon%A_Index%Right - Mon%A_Index%Left
  52. 			Height := Mon%A_Index%Bottom - Mon%A_Index%Top
  53. 			;MsgBox,  % "Left: " Mon%A_Index%Left " | Top: " Mon%A_Index%Top " | Right: " Mon%A_Index%Right " | Bottom: " Mon%A_Index%Bottom "`n" Width "x" Height
  54.  
  55. 			; Create a large black window to cover all other windows for each monitor
  56. 			Gui %A_Index%: -Caption +ToolWindow +AlwaysOnTop
  57. 			Gui %A_Index%: Color, Black
  58. 			Gui %A_Index%: Font, s36 c555555
  59. 			Gui %A_Index%: Add, Text, % "x" Width//2-85 " y" Height//2-80, Locked
  60. 			Gui %A_Index%: Show, % "x" Mon%A_Index%Left " y" Mon%A_Index%Top " w" Width " h" Height Hide, BlackScreen%A_Index%
  61. 			Gui %A_Index%: Show
  62. 		}
  63. 		IfEqual, RunScreenSaver, true
  64. 		{
  65. 			RegRead, ScreenSaver, HKCU, Control Panel\Desktop, SCRNSAVE.EXE
  66. 			If (ScreenSaver != "")
  67. 			{
  68. 				Run, %ScreenSaver% /s ; Start the Screen Saver
  69. 				;SendMessage, 0x112, 0xF140, 0,, Program Manager ; 0x112 is WM_SYSCOMMAND -- 0xF140 is SC_SCREENSAVE
  70. 			}
  71. 		}
  72. 		IfEqual, TurnOffScreen, true
  73. 		{
  74. 			SetFormat Integer, Hex
  75. 			Loop 255 ; Loop through every character
  76. 			{
  77. 				Hotkey % "*vk" SubStr(A_Index+256,4), TurnOffScreen ; Set a hotkey for each character to turn off screen--very annoying
  78. 			}
  79. 		}
  80. 		WinActivate, BlackScreen1 ; Try to cover up the start bar
  81. 	}
  82. Return
  83.  
  84. EndLock:
  85. 	IfWinExist BlackScreen1 ahk_class AutoHotkeyGUI
  86. 	{
  87. 		KeyWait, %LockHotkeyEnd%, T%UnlockDuration% ; Expect the end Lockkey to be pressed for one second
  88. 		If ErrorLevel
  89. 		{
  90. 			SetFormat Integer, Dec
  91. 			SysGet, Monitors, MonitorCount ; Count monitors again in case it changed while locked
  92. 			Loop, %Monitors%
  93. 			{
  94. 				Gui %A_Index%: Destroy ; Kill previous black screen GUI's
  95. 			}
  96. 			SetFormat Integer, Hex
  97. 			Loop 255 ; Loop through every character
  98. 			{
  99. 				Hotkey % "*vk" SubStr(A_Index+256,4), Off
  100. 			}
  101. 			Send, {Shift} ; Press a key to wake up the screensaver
  102. 			Reload
  103. 		}
  104. 	}
  105. Return
  106.  
  107. TurnOffScreen:
  108. 	SendMessage, 0x112, 0xF170, 2,, Program Manager ; Turn off the monitor(s)
  109. Return

URL: http://www.deanhouseholder.com/projects/lockscreen/

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.