AutoHotkey Community

       WinGetPos, , , Width, Height, ahk_class Progman
       SplashTextOn, %Width%, %Height%, Lock SCREEN
       WinSet, Transparent, 250, Lock SCREEN

       WinGetPos, , , Width, Height, ahk_class Progman
       SplashTextOn, %Width%, %Height%, Lock SCREEN
       WinSet, Transparent, 250, Lock SCREEN
       WinSet, TransColor, 000000, Lock SCREEN ; Something like this

#SingleInstance, Force
#NoEnv
SetBatchLines, -1
; Uncomment if Gdip.ahk is not in your standard library
#Include, Gdip.ahk


If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}


Width := A_ScreenWidth, Height := A_ScreenHeight


Gui, 1: -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs
Gui, 1: Show, NA


hwnd1 := WinExist()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pBrush := Gdip_BrushCreateSolid(0x04000000)
Gdip_FillRectangle(G, pBrush, 0, 0, Width, Height)
Gdip_DeleteBrush(pBrush)

Font = Arial

If !Gdip_FontFamilyCreate(Font)
{
   MsgBox, 48, Font error!, The font you have specified does not exist on the system
   ExitApp
}

Options = x10p y30p w80p Centre cbb000000 r4 s50 Underline Italic
Gdip_TextToGraphics(G, "Screen Locked click to end", Options, Font, Width, Height)
UpdateLayeredWindow(hwnd1, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width, Height)
OnMessage(0x201, "WM_LBUTTONDOWN")
SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
Return

WM_LBUTTONDOWN()
{
   msgbox,262148,, escape lock?
   IfMsgBox yes
   gosub Exit
}

!Esc::
gosub Exit

Exit:
Gdip_Shutdown(pToken)
MsgBox,,, bye bye,2
ExitApp
Return

WinGetPos, , , Width, Height, ahk_class Progman
Splashimage,,b w%width% h%height%  CW000000 ,,,lock screen
WinSet, transparent,200,lock screen
sleep 10000
SplashImage, off
return