[Мышь, клавиатура] Не срабатывают горячие клавиши

HotKeySet("#q","DATETIME")
 HotKeySet("#!f","FAR")
 HotKeySet("#x","HIBERNATE")
 HotKeySet("#c","HIBERNATE30")
 HotKeySet("#z","LOCK")
 HotKeySet("#d","NOTE")
 HotKeySet("#e","VIEWEVENT")

#Include <HotKey.au3>
#Include <vkConstants.au3>

;HotKeySet("#q", "DATETIME")
;HotKeySet("#!f", "FAR")
;HotKeySet("#x", "HIBERNATE")
;HotKeySet("#c", "HIBERNATE30")
;HotKeySet("#z", "LOCK")
;HotKeySet("#d", "NOTE")
;HotKeySet("#e", "VIEWEVENT")

_HotKeyAssign(BitOR($CK_WIN, $VK_Q), 'DATETIME')
_HotKeyAssign(BitOR($CK_WIN, $CK_ALT, $VK_F), 'FAR')
_HotKeyAssign(BitOR($CK_WIN, $VK_X), 'HIBERNATE')
_HotKeyAssign(BitOR($CK_WIN, $VK_C), 'HIBERNATE30')
_HotKeyAssign(BitOR($CK_WIN, $VK_Z), 'LOCK')
_HotKeyAssign(BitOR($CK_WIN, $VK_D), 'NOTE')
_HotKeyAssign(BitOR($CK_WIN, $VK_E), 'VIEWEVENT')

$POL="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies"
RegWrite($POL&"\Explorer","NoWinKeys","REG_DWORD","1")

HotKeySet("#e","VIEWEVENT")

; НАЧАЛО

 HotKeySet("+!d","DATETIME")

 while true
  Sleep(100)
 wend

 Func DATETIME()
  ClipPut(@YEAR&"-"&@MON&"-"&@MDAY&"-"&@HOUR&"-"&@MIN&"-"&@SEC)
  MsgBox(0,"Диагностика","Дата и время в буфере обмена")
 EndFunc

; КОНЕЦ

$VK_D = 0x44

$MOD_ALT = 0x0001
$MOD_CONTROL = 0x0002
$MOD_SHIFT = 0x0004
$MOD_WIN = 0x0008

$hWnd = GUICreate('')
GUIRegisterMsg(0x0312, "MY_WM_HOTKEY") ; WM_HOTKEY

; Set ALT-SHIT-D
DllCall('user32.dll', 'int', 'RegisterHotKey', 'hwnd', $hWnd, 'int', '0', 'uint', BitOR($MOD_ALT, $MOD_SHIFT), 'uint', $VK_D)

While 1
	Sleep(100)
WEnd

Func MY_WM_HOTKEY($hWnd, $Msg, $wParam, $lParam)
	MsgBox(0, '', 'You pressed ALT-SHIFT-D')
EndFunc   ;==>MY_WM_HOTKEY

; НАЧАЛО

 HotKeySet("+!d","DATETIME")
 HotKeySet("+!в","DATETIME")

 while true
  Sleep(100)
 wend

 Func DATETIME()
  ClipPut(@YEAR&"-"&@MON&"-"&@MDAY&"-"&@HOUR&"-"&@MIN&"-"&@SEC)
  MsgBox(0,"Диагностика","Дата и время в буфере обмена")
 EndFunc

; КОНЕЦ