Blanked Screen

[Somerset]

Tired of over the shoulder jockeys being nosie.. i created this..

something stupid..

#include <GUIConstants.au3>
HotKeySet("{ESC}", "Terminate")
;pick a random color
$zeda=random(0,16777215,1)
;create window
GUICreate("Blank out",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
$backdrop=GUICtrlCreateLabel ("", 0,0,@DesktopWidth,@DesktopHeight)
GUICtrlSetBkColor($backdrop,$zeda)
;create a label
$button=GUICtrlCreateLabel ("Blanked Screen", round((@DesktopWidth - 345) /2 ),round((@DesktopHeight - 210) /2),345,210)
;set the invert of the background color of the window 
$grand = 16777215 - $zeda
GUICtrlSetColor($button,$grand)
GUICtrlSetBkColor($button,round((16777215-$zeda) /2 +$zeda))
GUICtrlSetFont ($button, 72)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
sleep(3000)

$zeda=random(0,16777215,1)
GUICtrlSetBkColor($backdrop,$zeda)
$grand = 16777215 - $zeda
GUICtrlSetColor($button,$grand)
GUICtrlSetBkColor($button,round((16777215-$zeda) /2 +$zeda))

Wend

Func Terminate()
    Exit 0
EndFunc