Sección de códigos , trucos y ejemplos para visual basic

82 - Apagar, reiniciar y logout en windows NT

Contenido

Reiniciar y apagar usando el api
Proyecto para reiniciar, apagar y otras opciones
Shut It Off ( Programa )
Enlaces relacionados

1 - Ejemplo del Apiguide que nos permite reiniciar, cerrar sesión y apagar el equipo, inclusive en plataformas NT

En el código fuente hay 3 funciones (LogoffNT, RebootNT y ShutDownNT), y las tres tienen un parámetro de tipo Boolean para determinar si se fuerza el cierre de aplicaciones que puedan estar abiertas antes de cerrar el sistema

También hay una función de tipo Boolean llamada IsWinNt, que detecta si se está corriendo el programa sobre dicha plataforma, si está corriendo sobre un NT, se llama a la función EnableShutDown, que ajusta los privilegios para que no de error

Para poder probar el ejemplo agregar los siguientes controles:

En un Formulario colocar 3 CommandButton ( Command1, Command2 y Command3 )

formulario con los CommandButton para el ejemplo

El command1 permite loguearse, el command2 reiniciar el equipo y el Command3 Apagar el sistema.

Código fuente en un form:

Option Explicit 'Loguearse '************************** Private Sub Command1_Click() Call LogOffNT(True) End Sub 'Reiniciar el sistema '************************** Private Sub Command2_Click() Call RebootNT(True) End Sub 'Apagar el sistema '************************** Private Sub Command3_Click() Call ShutDownNT(True) End Sub Private Sub Form_Load() Command1.Caption = "Loguearse" Command2.Caption = "reiniciar NT" Command3.Caption = "Apagar NT" End Sub

Código fuente en un módulo bas

'******************************************************* ' Constantes '******************************************************* Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Const TOKEN_ADJUST_PRIVILEGES = &H20 Private Const TOKEN_QUERY = &H8 Private Const SE_PRIVILEGE_ENABLED = &H2 Private Const ANYSIZE_ARRAY = 1 Private Const VER_PLATFORM_WIN32_NT = 2 '******************************************************* ' Estructura para obtener información de Windows '******************************************************* Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Type LUID LowPart As Long HighPart As Long End Type Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type '******************************************************* ' Funciones Api '******************************************************* Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" ( _ ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, _ TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue _ Lib "advapi32" _ Alias "LookupPrivilegeValueA" ( _ ByVal lpSystemName As String, _ ByVal lpName As String, _ lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges _ Lib "advapi32" ( _ ByVal TokenHandle As Long, _ ByVal DisableAllPrivileges As Long, _ NewState As TOKEN_PRIVILEGES, _ ByVal BufferLength As Long, _ PreviousState As TOKEN_PRIVILEGES, _ ReturnLength As Long) As Long Private Declare Function ExitWindowsEx Lib "user32" ( _ ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long Private Declare Function GetVersionEx _ Lib "kernel32" _ Alias "GetVersionExA" ( _ ByRef lpVersionInformation As OSVERSIONINFO) As Long '******************************************************************** ' Mediante esta función detectamos si estamos corriendo sobre un NT '******************************************************************** Public Function IsWinNT() As Boolean Dim myOS As OSVERSIONINFO myOS.dwOSVersionInfoSize = Len(myOS) Call GetVersionEx(myOS) 'Retorna si es un NT o no IsWinNT = (myOS.dwPlatformId = VER_PLATFORM_WIN32_NT) End Function Private Sub EnableShutDown() Dim hProc As Long Dim hToken As Long Dim mLUID As LUID Dim mPriv As TOKEN_PRIVILEGES Dim mNewPriv As TOKEN_PRIVILEGES hProc = GetCurrentProcess() OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID mPriv.PrivilegeCount = 1 mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED mPriv.Privileges(0).pLuid = mLUID Call AdjustTokenPrivileges(hToken, False, mPriv, 4 + _ (12 * mPriv.PrivilegeCount), _ mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)) End Sub '******************************************************* ' Función para apagar, la variable Force obliga _ a cerrar todos los programas si se pasa como True '******************************************************* Public Sub ShutDownNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_SHUTDOWN If Force Then Flags = Flags + EWX_FORCE End If If IsWinNT Then EnableShutDown End If Call ExitWindowsEx(Flags, 0) End Sub '******************************************************* ' Función para reiniciar, la variable Force obliga a _ cerrar todos los programas si se pasa como True '******************************************************* Public Sub RebootNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_REBOOT If Force Then Flags = Flags + EWX_FORCE End If If IsWinNT Then EnableShutDown End If Call ExitWindowsEx(Flags, 0) End Sub '******************************************************* ' Función para loguearse, la variable Force obliga a _ cerrar todos los programas si se pasa como True '******************************************************* Public Sub LogOffNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_LOGOFF If Force Then Flags = Flags + EWX_FORCE End If Call ExitWindowsEx(Flags, 0) End Sub

Nota . el siguiente enlace es un artículo traducido de la web de Microsoft sobre la Api ExitWindowsEx desde visual basic, (incluye un ejemplo de código)

Proyecto para reiniciar, apagar el equipo y otras opciones

Este otro proyecto fue programado por Helmuth Campos, y es un formulario que permite cambiar de sesión en windows, apagar el sistema, reiniciar, y obligar el forzado de cierre de las aplicaciones abiertas

También una opción para cambiar la resolución del monitor, y el programa te dice si esa resolución esta disponible, y sino se puede cambiar lo notifica.

Descargar proyecto

Shut it Off - Programa

Programa realizado y enviado por José Luis Bejarano V, con las siguietnes opciones

Apagar el equipo
Reiniciar el equipo
Cerrar sesión de usuario
Apagar el monitor
Bloquear el equipo
Ejecutar una aplicación en un tiempo determinado

El formulario permite indicar el tiempo para cada opción, como muestra la siguiente captura de pantalla

Una ves configurada la opción, se visualiza en el systray o en el área de notificación de windows, un formulario que muestra el tiempo restante

También permite establecer y crear una contraseña para entrar al programa

Descargar Shut it Off

Recursos visual basic 6.0 - Enlaces relacionados

Reiniciar y cerrar windows usando cuadro de diálogos

Buscar en Recursos vb