Script: Oscurare il monitor

Ciao a tutti ecco qui di seguito il codice e l’ eseguibile dello script per oscurare il monitor! Utile per molti scherzi…….

Codice:

#include <misc.au3>

_Main()

Func _Main()
Local Const $Off = 2, $On = -1

Opt(”WinTitleMatchMode”, 4)
$hwnd = WinGetHandle(’classname=Progman’)
_ToggleMonitor($hWnd, $Off)
Sleep ( 3000 ) ;Tempo del monitor oscurato
_ToggleMonitor($hWnd, $On)
EndFunc

Func _ToggleMonitor($hwnd, $OnOff)
Local Const $WM_SYSCOMMAND = 274
Local Const $SC_MONITORPOWER = 61808
_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
If @error Then
MsgBox(0,”_ToggleMonitor”, “_SendMessage Error: ” & @error)
Exit
EndIf
EndFunc

Ecco l’ eseguibile…. (.exe):

DOWNLOAD

Fonte: xhdWeb