Мне нужно только выключить монитор... и чтоб не включался при движении мышью!Shutdown()
Этот Re: Отключение\Включение питания монитора отключает монитор перманентно, пока не нажмешь хоткей
А если нажать CTRL+ALT+DELETE то и мышка и клавиатура разблокируетсяBlockInput мышь блокирует
С BlockInputEx тоже, однако ввод обратно блокируется при закрытии диалога выбора задач.если нажать CTRL+ALT+DELETE то и мышка и клавиатура разблокируется
#include <SendMessage.au3>
#RequireAdmin
_Main()
Func _Main()
Local Const $Off = 2, $On = -1
Opt("WinTitleMatchMode", 4)
$hwnd = WinGetHandle('classname=Progman')
_ToggleMonitor($hWnd, $Off)
BlockInput(1)
Sleep ( 30000 ) ;- на 30 секунд
BlockInput(0)
_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
Монитор и так не включается если ввод заблокирован, но преимущество данной функции в том, что после нажатия «Ctrl + Alt + Del» и закрытия диалога, ввод обратно блокируется, что позволяет отслеживать нажатие этих клавиш и выключать монитор снова.А c помощью BlockInputEx можно ли заблокировать мышь так, чтоб при ее движении не включался монитор, если он предварительно был отключен?
Ну так монитор всё равно включается при «Ctrl + Alt + Del».ребят вы хоть справку то читайте вот пример из справки
Где там? :-\так там только про движение мышкой написано
Очень нужен скрипт для выключение ТОЛЬКО монитора для win7, но без возможности включения движением мыши.Подскажите, пожалуйста, информацию по этому вопросу
BlockInput Блокировать, то блокирует, да, но если нажать на любую клавишу, то монитор Включается, а если двигать и кликать мышкой то он остается без питания, что и просил автор темы.BlockInput блокирует и мышь и клавиатуру, а кстати BlockInputEx может и раздельно.
Это настраивается системно, зачем для этого скрипт?Чтобы мышка не работала при ВЫКЛюченном мониторе
#NoTrayIcon
#include <SendMessage.au3>
#include <UserInput.au3>
HotKeySet('{Esc}', _Exit)
Sleep(1000)
While 1
_Monitor_Switch(True)
$aRead = _UserInput_Read('[:ALLKEYS:]')
If $aRead[0] > 0 Then
ConsoleWrite('Key Pressed: ' & _UserInput_GetKeyString($aRead[1]) & @CRLF)
_Exit()
EndIf
Sleep(10)
WEnd
Func _Monitor_Switch($bOff)
Local $hWnd = WinGetHandle('[CLASS:Progman]')
Local Const $WM_SYSCOMMAND = 274
Local Const $SC_MONITORPOWER = 61808
Local Const $iOff = 2, $iOn = -1
_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, ($bOff ? $iOff : $iOn))
EndFunc
Func _Exit()
_Monitor_Switch(False)
Exit
EndFunc