VBNet - Форум - И еще раз про перезагрузку

Вопрос: И еще раз про перезагрузку Добавлено: 08.12.02 22:02

Автор вопроса: paul_sn | Web-сайт: sergeyev.zzn.com

Каким образом можно перезагрузить, выключить и т.д. комп в Windows 2000? В описании функции ExitWindowsEx сказано, что она должна работать в NT, но у запускающего эту функцию процесса должны быть определенные привилегии. Как и где можно указать эти привилегии?

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | | #1

Добавлено: 09.12.02 19:38

Дамммммммм-с

Вот те пример:

' В модуле
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
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
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
' Проверить, если программа запущена под WindowsNT
Public Function IsWinNT() As Boolean
    Dim myOS As OSVERSIONINFO
    myOS.dwOSVersionInfoSize = Len(myOS)
    GetVersionEx myOS
    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
    AdjustTokenPrivileges hToken, False, mPriv, _
       4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + _
       (12 * mNewPriv.PrivilegeCount)
End Sub
' Выключение NT
Public Sub ShutDownNT(Force As Boolean)
    Dim ret As Long
    Dim Flags As Long
    Flags = EWX_SHUTDOWN
    If Force Then Flags = Flags + EWX_FORCE
    If IsWinNT Then EnableShutDown
    ExitWindowsEx Flags, 0
End Sub
' Перезагрузка NT
Public Sub RebootNT(Force Ответить

Номер ответа: 2
Автор ответа:
paul_sn

Вопросов: 16
Ответов: 164
Web-сайт: sergeyev.zzn.com
Профиль | | #2 Добавлено: 10.12.02 19:00

Спасибо
Ответить

Страница: 1 |

Поиск по форуму