JellyFish666 Posted February 28, 2008 Share Posted February 28, 2008 I see many of theses but wanted to make my own and I will use mine since I got people coming in my room without knocking. expandcollapse popup#include <Misc.au3> #include <GUIConstants.au3> Global $Panic , $GUIHide , $FakePic , $SS_REALSIZEIMAGE _Singleton(@ScriptName ,0) $FakePic = FileOpenDialog("Select Image." , @ScriptDir , "Images (*.bmp;*.jpg;*.gif;*.png)") If @Error Then MsgBox(4096,"","No File Chosen") Exit Else HotKeySet("{HOME}" , "_Panic") EndIf While 1 Sleep(1000) WEnd Func _Panic() If $Panic = 0 Then $Panic = 1 _FakeDesktop() Else $Panic = 0 GUIDelete($GUIHide) SoundSetWaveVolume(100) EndIf EndFunc Func _FakeDesktop() SoundSetWaveVolume(0) $GUIHide = GUICreate("" , @DesktopWidth , @DesktopHeight , 0 , 0 , $WS_POPUP) $Picture = GUICtrlCreatePic($FakePic , 0 , 0 , 0 , 0 ,$SS_REALSIZEIMAGE) $HideMenu = GUICtrlCreateContextMenu() $MenuExit = GUICtrlCreateMenuitem("Exit...", $HideMenu) GUISetState(@SW_SHOW) WinSetOnTop($GUIHide , "" , 1) While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit Case $MenuExit GUIDelete($GUIHide) SoundSetWaveVolume(100) ExitLoop EndSwitch WEnd EndFunc Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now