Apagar / Reiniciar Windows 95/98

Puedes utilizar lo siguiente:

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'Apaga el equipo
Resultado = ExitWindowsEx(EWX_SHUTDOWN, 0&)

'Reinicia el equipo
Resultado = ExitWindowsEx(EWX_REBOOT, 0&)

'Apagar el equipo sin pedir confirmación
Resultado = ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0&)

Publicado en microsoft.public.es.vb por Josean Soroa

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s