Мне нужно только выключить монитор... и чтоб не включался при движении мышью!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