apagar equipo con xp desde visual

kinoscar
28 de Julio del 2005
alguien sabe como se puede apagar un equipo con windows xp desde visual, yo hice uno con una api pero funciona sobre windows 98 y windows me, pero no sobre xp

de antemano gracias

CarlosNorb
28 de Julio del 2005
Yo tengo un código que funciona en XP mediante API, pero en este momento no lo recuerdo exactamente, asi que te lo enviaré a tu correo luego; mientras tanto consegui este otro código que talvez te sirva:

Apagar el equipo, reiniciar Windows, reiniciar el Sistema:

'Abra un nuevo proyecto, añada tres botones y escriba 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