Hosting domitienda.com
MisTrucos.Net - El rincón de los trucos informáticos El rincón de los trucos informáticos
Trucos 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