如何监听显示器关闭这个消息?
我用下面的这个代码可以让显示器关闭,用的是 sendmessage,但是我却无法监听到这一事件,怎么回事?如果有知道的帮忙解答下,谢谢。按道理说,显示器在关闭时候,会广播这个消息,我的程序应该能够接受到这个消息才对,可是Notify这个程序一直不执行。
参考此帖子:http://www.autoitx.com/forum.php?mod=viewthread&tid=38887
关闭显示器的代码:Global Const $lciWM_SYSCommand = 274
Global Const $lciSC_MonitorPower = 61808
Global Const $lciPower_Off = 2
Global Const $lciPower_On = -1
Global $MonitorIsOff = False
HotKeySet("{F11}", "_Monitor_OFF")
HotKeySet("{F10}", "_Monitor_ON")
HotKeySet("{Esc}", "_Quit")
While 1
Sleep(10)
WEnd
Func _Monitor_ON()
$MonitorIsOff = False
Local $Progman_hwnd = WinGetHandle('')
DllCall('user32.dll', 'int', 'SendMessage', _
'hwnd', $Progman_hwnd, _
'int', $lciWM_SYSCommand, _
'int', $lciSC_MonitorPower, _
'int', $lciPower_On)
EndFunc
Func _Monitor_OFF()
$MonitorIsOff = True
Local $Progman_hwnd = WinGetHandle('')
While $MonitorIsOff = True
DllCall('user32.dll', 'int', 'SendMessage', _
'hwnd', $Progman_hwnd, _
'int', $lciWM_SYSCommand, _
'int', $lciSC_MonitorPower, _
'int', $lciPower_Off)
_IdleWaitCommit(0)
Sleep(20)
WEnd
EndFunc
Func _IdleWaitCommit($idlesec)
Local $iSave, $LastInputInfo = DllStructCreate ("uint;dword")
DllStructSetData ($LastInputInfo, 1, DllStructGetSize ($LastInputInfo))
DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
Do
$iSave = DllStructGetData ($LastInputInfo, 2)
Sleep(60)
DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
Until (DllStructGetData ($LastInputInfo, 2)-$iSave) > $idlesec Or $MonitorIsOff = False
Return DllStructGetData ($LastInputInfo, 2)-$iSave
EndFunc
Func _Quit()
_Monitor_ON()
Exit
EndFunc我的监听代码:
#include <GUIConstants.au3>
#include <FILE.AU3>
#include <date.au3>
#include <process.au3>
#include-once
Global $WM_SYSCOMMAND = 0x0112
Global $SC_CLOSE=0xF060
Global $SC_CONTEXTHELP=0xF180
Global $SC_DEFAULT=0xF160
Global $SC_HOTKEY= 0xF150
Global $SC_HSCROLL=0xF080
Global $SCF_ISSECURE = 0x00000001
Global $SC_KEYMENU=0xF100
Global $SC_MAXIMIZE = 0xF030
Global $SC_MINIMIZE=0xF030
Global $SC_MONITORPOWER = 0xF170
Global $SC_MOVE=0xF010
Global $SC_NEXTWINDOW = 0xF040
Global $fp_log = @ScriptDir & "\Test.log"
$hGUI = GUICreate("Test", 100, 100,1,1)
GUIRegisterMsg(274, "Notify")
While 1
Sleep(100)
WEnd
Func Notify($hWnd, $Msg, $wParam, $lParam)
Select
Case $wParam = $SC_MONITORPOWER
_FileWriteLog($fp_log,"$lParam" & $lParam & @CRLF)
Case $wParam = $SC_CLOSE
_FileWriteLog($fp_log,"Closes the window" & @CRLF)
Case
_FileWriteLog($fp_log,"Changes the cursor to a question mark with a pointer." & @CRLF)
Case
_FileWriteLog($fp_log,"Activates the window associated with the application-specified hot key. The lParam parameter identifies the window to activate." & @CRLF)
Case Else
_FileWriteLog($fp_log,"unknown Power settings"& @CRLF)
EndSelect
EndFunc
页:
[1]