小吳 VBQA 程式設計討論

你必須使用ExitWindowsEx這個API。若你是在Windows NT下使用此指令，你還必須取得特殊的權限才行。範例程式我要找看看。

程式如下，程式中有個全域變數 gblnIsWinNT，取得此值的程式就自己寫吧! Option Explicit 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 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 ' ==== ExitWindowsEx ==== Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long 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 ' 關閉 Windows Public Sub ExitWindows(lngFlags As Long) ' Windows NT 要先調整權限才能關機 　　If gblnIsWinNT Then AdjustToken 　　ExitWindowsEx lngFlags, 0 End Sub