Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apagar
End Sub

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reiniciar el Sistema
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 23 votaciones| Nota media: 7Selecciona tu Puntuación: