¿Sabes apagar o reiniciar la pc con visual basic 6?

Hola a todos!, antes de empezar el post quisiera dejarles un mensaje:

>-- Si quieres saber todo sobre informatica, programacion, windows, mac, linux, entre otros. ¡Seguime no lo dudes!



Comenzemos...

Introducción:

Este codigo funciona en Windows XP, y puede ser adaptado para que se ejecute en Visual Basic.net (2002...2010)

Codigo:

Usaremos la API "ExitWindowsEx", la declaramos asi:

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

¿Facil no? Continuemos...

Muchas veces en las API se usan constantes (const) para definir un valor que puede ser cierto "ITEM".
Aca declaramos los nuestros:

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

En un boton o cualquier public o private, etc, podemos colocar este codigo, esta es la verdadera parte funcional.
Bueno dejemos de hablar y vallamos al codigo:

'Cerrar Session
ExitWindowsEx EWX_LOGOFF, 0 'Cierra sesión en Win 98, 2000, XP
'Reiniciar PC
ExitWindowsEx EWX_REBOOT, 0 'Reinicia el Sistema
Shell "shutdown -r -f -t 0" 'Reinicia el equipo en Win XP
'Apagar PC
ExitWindowsEx EWX_SHUTDOWN, 0 'Apaga el equipo en Win 98, 2000
Shell "shutdown -s -t 0" 'Apaga el equipo en Win XP

Aqui hemos terminado, esto es un code snippet, y espero que les sirve, cualquier duda mandan MP. Saludos!

PD: Hoy es mi cumpleaños