Need help with script

[philo]

Hi

I am making a script.

HotKeySet("{ESC}", "Terminate")


;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;


Func Terminate()
    Exit 0
EndFunc

I need a command so my screen turns black.

Than i press esc end the script ends so its back to normal

Thanks

[/dev/null]

I need  a command so my screen turns black.

Than i press esc end the script ends so its back to normal

a quick shot.... At the moment the taskbar is always on top (as configured on my system). I Haven't yet figured out how to overcome this.

#include <GUIConstants.au3>

global $visible = 0

HotKeySet("{ESC}", "ToggleScreen"); Set Boss Key

$gui=GUICreate("Boss Key", @DesktopWidth,@DesktopHeight, -1 ,-1 , $WS_BORDER, $WS_EX_TOPMOST)
GUISetBkColor (0x00000000)


do
    $msg = GUIGetMsg()
until $msg = $GUI_EVENT_CLOSE

func ToggleScreen ()

   if $visible = 1 then
      GUISetState(@SW_SHOW,$gui)
      $visible = 0
   else 
      GUISetState(@SW_HIDE,$gui)
      $visible = 1
   endif   
endfunc

Cheers

Kurt

Edited May 28, 2005 by /dev/null

[philo]

a quick shot.... At the moment the taskbar is always on top (as configured on my system). I Haven't yet figured out how to overcome this.

#include <GUIConstants.au3>

global $visible = 0

HotKeySet("{ESC}", "ToggleScreen"); Set Boss Key

$gui=GUICreate("Boss Key", @DesktopWidth,@DesktopHeight, -1 ,-1 , $WS_BORDER, $WS_EX_TOPMOST)
GUISetBkColor (0x00000000)
do
    $msg = GUIGetMsg()
until $msg = $GUI_EVENT_CLOSE

func ToggleScreen ()

   if $visible = 1 then
      GUISetState(@SW_SHOW,$gui)
      $visible = 0
   else    
      GUISetState(@SW_HIDE,$gui)
      $visible = 1
   endif   
endfunc

Cheers

Kurt

<{POST_SNAPBACK}>

But there is a box around the black area

I have This now.

How do i get the background black.

HotKeySet("{ESC}", "Terminate")


SplashTextOn("", "", 1500, 1500, -1, -1, 4, "", 24)
;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;


Func Terminate()
    Exit 0
EndFunc

Edited May 28, 2005 by philo

[MarkMarkMark]

You can also let your monitor go into stand-by mode... thats pretty black

[buzz44]

#include <GUIConstants.au3>

GUICreate("My GUI", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP,$WS_EX_TOPMOST)
GUISetBkColor (0x000000)
GUISetState ()

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

Edited May 29, 2005 by Burrup