Trucos de Visual Basic 6.0 Apagar, reiniciar el ordenador


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

Comentarios sobre Apagar, reiniciar el ordenador

Andy dice:

Gracias, aunque pocas línea pero no buscaba como hacerlo. buen aporte. sigan adelante con la web, esperen aporte mio :)
Comentario publicado 21/01/2010 19:32:00
CosMe 7 dice:

llevo programacion y no me lo sabia jiji si que tienen muchas cosas buenas sigan asi
Comentario publicado 27/08/2010 5:21:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario: