| Pregunta: | 53730 - FUNCIONES PARA APAGAR ,CERRAR SESION, Y REINICIAR EN UN XP |
| Autor: | PIero Ormeño |
| Hola , les escribo porque quisiera una ayuda en una tarea de investigacion, me dijeron que podia llamar funciones externas para poder apagar ,reiniciar y cerrar sesion desde un sistema operativo xp, eh encontrado otras funciones similares que funcionan en W95/98 pero para NT/xp me resulta dificil encontrar alguna, gracias por la respuesta q podrian ofrecerme ,salu2. | |
| Respuesta: | Jorge Ramirez |
| Para obtener a API de ExitWindowsEx que reinicie el sistema en Windows NT o Windows 2000, se debe establecer el privilegio SE_SHUTDOWN_NAME. Los pasos siguientes describen cómo obtener al API de ExitWindowsEx que funcione en Windows NT y Windows 2000.
1. Cree un EXE estándar nuevo en Visual Basic. Se creará Form1 de manera predeterminada 2. Vea el código de Form1. En la sección de Declaraciones, agregue el código siguiente: Private Type LUID UsedPart As Long IgnoredForNowHigh32BitPart As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_FORCE As Long = 4 Private Const EWX_REBOOT = 2 Private Declare Function ExitWindowsEx Lib "user32" (ByVal _ dwOptions As Long, ByVal dwReserved As Long) As Long 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 3. Agregue un procedimiento llamado a AdjustToken con el código siguiente: Private Sub AdjustToken() Const TOKEN_ADJUST_PRIVILEGES = &H20 Const TOKEN_QUERY = &H8 Const SE_PRIVILEGE_ENABLED = &H2 Dim hdlProcessHandle As Long Dim hdlTokenHandle As Long Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES Dim lBufferNeeded As Long hdlProcessHandle = GetCurrentProcess() OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _ TOKEN_QUERY), hdlTokenHandle ' Get the LUID for shutdown privilege. LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid tkp.PrivilegeCount = 1 ' One privilege to set tkp.TheLuid = tmpLuid tkp.Attributes = SE_PRIVILEGE_ENABLED ' Enable the shutdown privilege in the access token of this process. AdjustTokenPrivileges hdlTokenHandle, False, _ tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded End Sub 4. Agregue un CommandButton al formulario. En el evento Click, agregue el código siguiente: Private Sub Command1_Click() AdjustToken ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF End Sub 5. Guarde el proyecto y genere una ejecutable. Cuando ejecuta el ejecutable y hace clic en el control CommandButton, el equipo se reiniciará como se espera. y si lo utilizas en otro lenguaje de programacion.. Tambien Espero que te sirva o solucione tu busqueda Atte. SystemGDS | |