Jump to content
Sign in to follow this  
Somerset

Blanked Screen

Recommended Posts

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

 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.