La Web del Programador: Comunidad de Programadores
 
    Pregunta:  29515 - ¿COMO APAGAR ORDENADOR EN XP?
Autor:  JOSE MARIA LOPEZ LOPEZ
Tengo un programa que me apaga el ordenador a una hora y me funciona perfectamente en win98, pero no lo hace en XP. La forma en que lo tengo programado es la siguiente:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Sub ApagarPc()
Dim lResp As Integer
lResp = ExitWindowsEx(1, 0&)
End Sub

Agradeceria cualquier ayuda.

  Respuesta:  SuNcO
Mi chavo, yo utilizo lo mismo en Win98 y WinXP, la unica diferencia es que yo lo uso sin el & y si me funciona

Bye = ExitWindowsEx(1, 0)