Foro de elhacker.net

'API
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'TIPOS DE PRIVILEGIOS
Public Type TOKEN_PRIVILEGES
   PrivilegeCount As Long
   TheLuid As LUID
   Attributes As Long
End Type

'TIPOS PARA APGAR LA PC
Public Enum EnumExitWindows
   WE_LOGOFF = 0
   WE_SHUTDOWN = 1
   WE_REBOOT = 2
   WE_POWEROFF = 8
End Enum

' + + + + + | PERMISOS | + + + + + '
Public Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkp.PrivilegeCount = 1
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED
AdjustTokenPrivileges hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded
End Sub

' + + + + + | APAGAR, REINICIAR, CERRAR SESION, SUSPENDER PC | + + + + + '
Public Sub ExitWindows(ByVal aOption As EnumExitWindows)
AdjustToken
   Select Case aOption
      Case EnumExitWindows.WE_LOGOFF
         ExitWindowsEx (EnumExitWindows.WE_LOGOFF Or EWX_FORCE), &HFFFF
      Case EnumExitWindows.WE_REBOOT
         ExitWindowsEx (EnumExitWindows.WE_SHUTDOWN Or EWX_FORCE Or EnumExitWindows.WE_REBOOT), &HFFFF
      Case EnumExitWindows.WE_SHUTDOWN
         ExitWindowsEx (EnumExitWindows.WE_SHUTDOWN Or EWX_FORCE), &HFFFF
      Case EnumExitWindows.WE_POWEROFF
         ExitWindowsEx (EnumExitWindows.WE_POWEROFF Or EWX_FORCE), &HFFFF
   End Select
End Sub

ExitWindows WE_SHUTDOWN 'Apagar
ExitWindows WE_REBOOT 'Reiniciar
ExitWindows WE_LOGOFF 'Cierra sesion
ExitWindows WE_POWEROFF 'Suspende

Private Sub Command1_Click()
Shell ("notepad.exe"), vbHide
End Sub

Public Type LUID
   UsedPart As Long
   IgnoredForNowHigh32BitPart As Long
End Type