Imports System
Imports System.Text
Imports System.Diagnostics
Imports System.Runtime.InteropServices

    Public Class WindowsController
        Public Enum RestartOptions
            LogOff = 0
            PowerOff = 8
            Reboot = 2
            ShutDown = 1
            Suspend = -1
            Hibernate = -2
        End Enum

        Public Structure LUID
            Dim LowPart As Integer
            Dim HighPart As Integer
        End Structure

        Public Structure LUID_AND_ATTRIBUTES

            Dim pLuid As LUID

            Dim Attributes As Integer
        End Structure


        Public Structure TOKEN_PRIVILEGES

            Dim PrivilegeCount As Integer

            Dim Privileges As LUID_AND_ATTRIBUTES
        End Structure

        Private Const TOKEN_ADJUST_PRIVILEGES = &H20
        Private Const TOKEN_QUERY = &H8
        Private Const SE_PRIVILEGE_ENABLED = &H2
        Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
        Private Const EWX_FORCE = 4
        Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As IntPtr
        Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As IntPtr) As Integer
        Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr
        Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer