Помогите перехватить завершение работы Windows

$sTmpFile =  @TempDir & "\MkXXov0P31CQq1o6SBsdw==.tmp" ; путь к файлу, который отслеживаем
If FileExists ($sTmpFile) = 0 Then ; если файл не существует
	; тут делаем что-то, что типа можно вырубать
	; типа Shutdown (1)
	Exit
Else
	$hTmpFile = FileOpen ($sTmpFile, 0); открываем файл для чтения
	$sTmpFileData = FileRead ($hTmpFile) ; читаем файл целиком
	FileClose ($hTmpFile); закрываем файл
	$iPos = StringInStr ($sTmpFileData, "f5kuDrmNRqJO0oTOMVUjhw=="); проверяем наличие строчки в тексте
	If $iPos = 0 Then ; если строка не найдена, то выключать можно
		; тут делаем что-то, что типа можно вырубать
		; типа Shutdown (1)
		Exit
	Else ; иначе нельзя
		MsgBox (0, "Завершение работы", "Выключать нельзя!")
		Exit
	EndIf
EndIf

#Include <WinAPIEx.au3>

$GUI = GUICreate("Test")
GUISetState(@SW_HIDE )

GUIRegisterMsg ( 0x0011, "_Ret" )
_WinAPI_SetProcessShutdownParameters(0x03FF) ; Установить наивысший приоритет на получение сообщения о завершении работы Windows

While 1
    Sleep(100)
WEnd

Func _Ret()
 If FileExists("C:\File.Txt") Then ; Если файл существует, то выключить комп., если нет , то не выкл.
    $i = 1
    Return $i
 Else
    $i = 0
    Return $i
 EndIf
EndFunc

$sTmpFile =  @TempDir & "\MkXXov0P31CQq1o6SBsdw==.tmp" 
If FileExists ($sTmpFile) = 0 Then 
      #Include <Chek.au3>

OnAutoItExitRegister('_Quit')

_WinAPI_EmptyWorkingSet()

While 1
    Sleep(1000)
WEnd
    Exit
Else
    $hTmpFile = FileOpen ($sTmpFile, 0) 
    $sTmpFileData = FileRead ($hTmpFile) 
    FileClose ($hTmpFile)
    $iPos = StringInStr ($sTmpFileData, "f5kuDrmNRqJO0oTOMVUjhw==")
    If $iPos = 0 Then 
  #Include <Chek.au3>

OnAutoItExitRegister('_Quit')

_WinAPI_EmptyWorkingSet()

While 1
    Sleep(1000)
WEnd
        Exit
    Else ; А тут что писать?
        MsgBox (0, "Сообщение от IntServer", "Выключать компьютер в данный момент нельзя, так как к нему ещё подключены пользователи. Подождите, пока они закончат свою работу, или сообщите им, что Вы отключаетесь, потом повторите попытку.")
        Exit
    EndIf
EndIf

#NoTrayIcon ; не показывать иконку в трее
;защита от запуска двух копий 
If WinExists("Zxh3vfjklfjk4lgf4kgf") Then Exit 
AutoItWinSetTitle("Zxh3vfjklfjk4lgf4kgf")
; проверка версии ОС
If @OSVersion <> "WIN_XP" Then ; если не XP, то сообщаем и выходим
	MsgBox (16, "Ошибка!", "Это приложение работает только на Windows XP")
	Exit
EndIf

$sTmpFile = @TempDir & "\MkXXov0P31CQq1o6SBsdw==.tmp" ; путь к файлу, который отслеживаем
$sMsgTxt = "Выключать компьютер в данный момент нельзя, так как к нему ещё подключены пользователи." & @CRLF _ 
& "Подождите, пока они закончат свою работу, или сообщите им, что Вы отключаетесь, потом повторите попытку."
$WM_QUERYENDSESSION = 0x0011 ; сообщение Windows о завершении работы
$FIRST_SHUTDOWN_RANGE = 0x03FF ; значение, наивысший приоритет на получение сообщения о завершении работы
$iMsgFlg = 0 ;флаг, который определяет показывать месаджбок или нет

$hGui = GUICreate ("shutdown_stop"); создаём гуй, который будет ловить сообщение
GUISetState (@SW_HIDE, $hGui); скрываем его, ибо он нам не нужен

GUIRegisterMsg ($WM_QUERYENDSESSION, "_Shutdown"); ожидаем сообщения от системы, и выполняем указанную функцию
_WinAPI_SetProcessShutdownParameters($FIRST_SHUTDOWN_RANGE); устанавливаем приоритет

While 1 ; бесконечный цикл, в ожидании сообщения.
    Sleep(100); пауза, чтобы не грузить процесс
	If $iMsgFlg = 1 Then _msgbox() ; если флаг стал равен 1, запускаем функцию отображения месаджа
WEnd

; наша функция, обрабатывающая сообщение
Func _Shutdown ($hWndGUI, $MsgID)
	If FileExists ($sTmpFile) = 0 Then ; если файл не существует, то
		Return 1 ; возвращаем 1, тоесть разрешаем завершение работы
	EndIf
	$hTmpFile = FileOpen ($sTmpFile, 0); открываем файл для чтения
	$sTmpFileData = FileRead ($hTmpFile) ; читаем файл целиком
	FileClose ($hTmpFile); закрываем файл
	$iPos = StringInStr ($sTmpFileData, "f5kuDrmNRqJO0oTOMVUjhw=="); проверяем наличие строчки в тексте
	If $iPos = 0 Then ; если строка не найдена, то выключать можно
		Return 1 ; возвращаем 1
	EndIf
	$iMsgFlg = 1 ; выставляем флаг месаджбокса 1, значит показать его
	Return 0 ; возвращаем ноль, значит выключать нельзя
EndFunc

; наша функция, отображающая месаджбокс
Func _msgbox()
	MsgBox (48, "Сообщение от IntServer", $sMsgTxt)
	$iMsgFlg = 0 ; после показа месаджа, выставляем флаг опять в ноль
EndFunc

; функция из библиотеки WinAPIEx_3.3 от Yashied
Func _WinAPI_SetProcessShutdownParameters($iLevel, $fDialog = 0)

	Local $Ret = DllCall('kernel32.dll', 'int', 'SetProcessShutdownParameters', 'dword', $iLevel, 'dword', Not $fDialog)

	If (@error) Or (Not $Ret[0]) Then
		Return SetError(1, 0, 0)
	EndIf
	Return 1
EndFunc   ;==>_WinAPI_SetProcessShutdownParameters

;блокировать:
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskMgr', 'REG_DWORD', '1')
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableRegistryTools', 'REG_DWORD', '1')
;разблокировать 1 на 0 поменять