'*******************************************************************
'Запрет выключения Windows
'http://kbyte.ru
'*******************************************************************
 
'константы
Private Const WM_QUERYENDSESSION As System.Int32 = &H11
Private Const WM_CANCELMODE As System.Int32 = &H1F
 
'процедура перехвата сообщений Windows
Protected Overrides Sub WndProc(ByRef ex As Message)
 If ex.Msg = WM_QUERYENDSESSION Then
 'отменить сообщений
 Dim MyMsg As New Message
 MyMsg.Msg = WM_CANCELMODE
 MyBase.WndProc(MyMsg)
 Else
 'ничего не делать
 MyBase.WndProc(ex)
 End If
End Sub