Truco de Visual Basic 6.0 - Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Truco para apagar, reiniciar, o apagar Windows.

Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario:

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

Private Sub Command1_Click()

Dim i as integer i = ExitWindowsEx(1, 0&) 'Apaga el equipo

End Sub

Private Sub Command2_Click()

Dim i as integer i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario

End Sub

Private Sub Command3_Click()

Dim i as integer i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema

End Sub

 Pon el truco en tus favoritos