Cómo utilizar la programación VB para controlar el apagado y reinicio de la computadora

Lo anterior solo es aplicable a XP y se implementa mejor usando Api

Función de declaración privada GetCurrentProcess Lib "kernel32" () siempre que

Función de declaración privada OpenProcessToken Lib "advapi32 " (ByVal ProcessHandle mientras, ByVal DesiredAccess mientras, TokenHandle mientras) Mientras

Función de declaración privada LookupPrivilegeValue Lib "advapi32" Alias ​​​​"LookupPrivilegeValueA" (ByVal lpSystemName como cadena, ByVal lpName Como cadena, lpLuid como LUID) mientras

Función de declaración privada AjustarTokenPrivileges Lib "advapi32" (ByVal TokenHandle mientras, ByVal DisableAllPrivileges mientras, NewState como TOKEN_PRIVILEGES, ByVal BufferLength mientras, PreviousState como TOKEN_PRIVILEGES, ReturnLength como Long) As Long

Función de declaración privada ExitWindowsEx Lib "USER32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Enum EXITWINDOWSEXENUM

EWX_LogOff = 0

EWX_SHUTDOWN = 1

EWX_REBOOT = 2

EWX_FORCE = 4

EWX_POWEROFF = 8

Fin enumeración