AutoHotkey Community

#notrayicon
#singleinstance,Force

;***********************************
; Change the "C:\Temp" directory to what ever active window you use everyday
; Or set to blank to enforce the "LastWindowFound"

WinWait, C:\temp\AutoHotkey\Scripts
IfWinNotActive, C:\temp\AutoHotkey\Scripts, ,
WinActivate, C:\temp\AutoHotkey\Scripts
WinSet,Transparent, 10, C:\temp\AutoHotkey\Scripts
winset,AlwaysOnTop,ON

;**********************************
; Loops the Window to keep it on top

loop
{
   ifwinnotactive,C:\temp\AutoHotkey\Scripts
   {
      winactivate,C:\temp\AutoHotkey\Scripts
   }
}
return

#persistent
#singleinstance force
#notrayicon
setbatchlines, -1
SetWinDelay, -1

; ********** Variables

Title = Break me!

; changing the transparency to 0 will send all
; keystrokes/mouseclicks thru the window to the
; window behind. For security, set it to atleast 1 (max 255)
setTrans = 1

; Size adaptations for screen dimensions, might need adaptation
sh = %a_screenheight%
;sh -= 24
sw = %a_screenwidth%
;sw -= 5

; ********** SECURITY SETTINGS ON: **********

/*
; Hide the Desktop/Taskbar:
DetectHiddenWindows, on
WinHide, Program Manager
WinHide, ahk_class Shell_TrayWnd
DetectHiddenWindows, off

; Minimize all:
Send, #m

; Disable them Windows Security Screen (Ctrl + Alt + Delete Screen) buttons:
WinSecurityButtons("off")
*/

; ********** Create the Gui
Gui, +alwaysontop -sysmenu -resize +owner
Gui, Show, x0 y0 h%sh% w%sw%, %Title%
WinSet, Transparent, %setTrans%, %Title%
Gui, -Caption
WinActivate, %Title%
Return

; ********** Disable them 'specific' keycombos:

#b::
#l::
#p::
#c::
#v::
#k::
#i::
#a::
#Space::
#u::
^q::
^w::
!F4::
^F4::
#d::
#e::
#f::
#F3::
#^f::
F3::
#m::
#+m::
#r::
#F1::
!TAB::
!+TAB::
LWin::
RWin::
#ESC::
^ESC::
^+ESC::
AppsKey::
#TAB::
#+TAB::
#PAUSE::
!ESC::
#+ESC::
F11::
return

; Catch mouse
LButton::
RButton::
MButton::
WheelDown::
WheelUp::
XButton1::
XButton2::
return

; ********** Disable gui actions
GuiClose:
GuiEscape:
GuiSize:
GuiContextMenu:
GuiDropFiles:
return

; ********** This should be the only way to stop it:
F1:: ; press F1
:*:stop:: ; type "stop"

; ********** SECURITY SETTINGS OFF: **********
/*
; Enable buttons
WinSecurityButtons("")

; Enable Desktop
DetectHiddenWindows, on
WinShow, Program Manager
WinShow, ahk_class Shell_TrayWnd

; Minimize all undo:
Send, #+m
*/
; **********

; Done, so exit...
ExitApp

; ********** Functions - Routines **********

; --- Disable/enable Windows Security Window buttons...
WinSecurityButtons(toggle)
{
   If toggle = off
   {
      SetTo = 1
   }
   else
      SetTo = 0
   ; Edit Registry
   Keys1 = NoBlock,NoRun,NoSMHelp,NoChangeStartMenu,NoClose,NoLogoff
   Loop, PARSE, Keys1,`,
   {
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, %A_LoopField%, %SetTo%
   }
   Keys2 = DisableTaskMgr,DisableChangePassword,DisableLockWorkstation
   Loop, PARSE, Keys2,`,
   {
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Policies\System, %A_LoopField%, %SetTo%
   }
   return
}

/*
Bugs...
* 1 keypress gets thru, that press is sent to the active window, if someone can compromise security in one keypress then more power to them...to disable this 1 press, you can create a transparent window over the screen to catch keys or enable BlockInput below, if you enable that, then mouse movement won't turn off the screen saver, any keypress will tho & that press won't go to any window.
*/
/*
CoordMode, Tooltip
   TrayTip, , % A_TimeIdlePhysical
*/
if A_TimeIdlePhysical<319
   Sleep, 1000
/*
else
   TrayTip, , No Sleep
*/
;BlockInput, on            ; use keyboard to remove screen saver
A_TimeIdlePhysical_Last=0
Loop
{
   if (A_TimeIdlePhysical<A_TimeIdlePhysical_Last)
      break
   A_TimeIdlePhysical_Last:=A_TimeIdlePhysical
/*
A_TimeIdle_Last:=A_TimeIdle
Tooltip, % A_TimeIdlePhysical " < " A_TimeIdlePhysical_Last "`n" A_TimeIdle " < " A_TimeIdle_Last ;, 640, 480
*/
Sleep, 10               ; without this it eats 50% CPU!?!
}
;msgbox, Lock Workstation!
DllCall("LockWorkStation")