Reiniciar o apagar pc forzadamente

[tepitenio]

Se me ocurre que lo que quieres es que no se detenga a salvar archivos. Pues el siguiente codigo puede ayudarte:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1

Private Sub cmdShutDown()
ExitWindowsEx EWX_SHUTDOWN, 0
End Sub


Creo que para forzar el cierre CAIGA QUIEN CAIGA, debes usar el FORCE como parametro.