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