모니터만 끄기(Off) 시키는 프로그램
모니터만 Off 시킵니다.
실행시키면 바로 작동을 하게 됩니다.
어디서 가져온것인데 정확히 기억이 나질 않아. 링크는 걸어 드리지 못합니다.
그리고 실행 파일을 올리고 싶어도 AutoIT의 특성상 악성코드로 오해를 받을 수 있어 소스만 올립니다.
혹시 필요하신 분은 직접 컴파일 하여 사용하시면 됩니다.
#include <File.au3>
Global Const $lciWM_SYSCommand = 274
Global Const $lciSC_MonitorPower = 61808
Global Const $lciPower_Off = 2
Global Const $lciPower_On = -1
Global $LogFileName = @ScriptDir & "\MonitorOffTest.log"
;HotKeySet("^q", "QuitScript")
;WriteLog("Start script")
;Sleep(5000)
_Monitor(0)
;WriteLog("Monitor off")
;$Run = True
;While $Run
; WriteLog("Main loop")
; Sleep(5000)
;WEnd
Func WriteLog($logtext)
Local $hFile = FileOpen($LogFileName, 1)
_FileWriteLog($hFile, $logtext)
FileClose($hFile)
EndFunc
Func _Monitor($run = 1)
Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')
If $run = 0 Then
; BlockInput(1)
DllCall('user32.dll', 'int', 'SendMessage', _
'hwnd', $Progman_hwnd, _
'int', $lciWM_SYSCommand, _
'int', $lciSC_MonitorPower, _
'int', $lciPower_Off)
Return 1
ElseIf $run = 1 Then
; BlockInput(0)
DllCall('user32.dll', 'int', 'SendMessage', _
'hwnd', $Progman_hwnd, _
'int', $lciWM_SYSCommand, _
'int', $lciSC_MonitorPower, _
'int', $lciPower_On)
Return 1
EndIf
Return 0
EndFunc
Func QuitScript()
WriteLog("Quit script")
$Run = False
EndFunc
첨부파일
- 모니터-oFF.au3 (1.6K) 16회 다운로드 | DATE : 2021-03-20 20:20:24