Orlando
16 de Mayo del 2004

Pues eso, como se puede apagar un PC desde VB
Pregunto, vale para cualquier version de Windows?.
Gracias de antemano...

Volia
16 de Mayo del 2004

La respuesta anterior es válida, pero a mí no me trabaja con Win XP. Lo que hago es llamar al Shutdown, puedes encontrar su ayuda en el símbolo de comandos Shutdown /?

spieler
16 de Mayo del 2004

Prueba lo siguiente:

Añade 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