各WIN2000怎样用ExitWindowsEx函数实现重启计算机和关闭？？？？

Question

ExitWindowsEx里面的参数是什么，各位前蜚指点一下！！！！

Answer 1

'Showdown module
'ﾖﾘﾆeboot False
'ｹﾘｻⅩhutdown False
'ﾇｿﾖﾆﾖﾘﾆeboot True
'ﾇｿﾖﾆｹﾘｻⅩhutdown True
'ﾇｿﾖﾆｲｻﾌ睫ｾｱ｣ｴ・Shutdown falseOption ExplicitDeclare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const EWX_POWEROFF As Long = 8&
Private Const EWX_FORCE As Long = 4&
Private Const EWX_REBOOT As Long = 2&
Private Const EWX_LOGOFF As Long = 0&
Private Const EWX_SHUTDOWN As Long = 1&Private Const ERROR_SUCCESS As Long = 0&
Private Const ERROR_NOT_ALL_ASSIGNED As Long = 1300&Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (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 LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As Any, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Const TOKEN_QUERY As Long = &H8&
Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20&
Private Const SE_PRIVILEGE_ENABLED  As Long = &H2Private Type LUID
   lowpart As Long
   highpart As Long
End TypePrivate Type LUID_AND_ATTRIBUTES
   pLuid As LUID
   Attributes As Long
End TypePrivate Type TOKEN_PRIVILEGES
   PrivilegeCount As Long
   Privileges As LUID_AND_ATTRIBUTES
End TypePublic Sub LogOff()
   Dim p_lngRtn            As Long
   Dim p_lngFlags          As Long
   
   p_lngFlags = EWX_LOGOFF
   p_lngRtn = ExitWindowsEx(p_lngFlags, 0&)End SubPublic Sub Reboot(ByVal xi_blnForce As Boolean)
   Dim p_lngRtn            As Long
   Dim p_lngFlags          As Long
   Dim p_lngToken          As Long
   Dim p_lngBufLen         As Long
   Dim p_lngLastErr        As Long
   Dim p_typLUID           As LUID
   Dim p_typTokenPriv      As TOKEN_PRIVILEGES
   Dim p_typPrevTokenPriv  As TOKEN_PRIVILEGES
   
   p_lngRtn = OpenProcessToken(GetCurrentProcess(), _
                  TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, _
                  p_lngToken)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print ReturnApiErrString(Err.LastDllError)
      Exit Sub
   End If
   
   p_lngRtn = LookupPrivilegeValue(0&, "SeShutdownPrivilege", p_typLUID)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print ReturnApiErrString(Err.LastDllError)
      Exit Sub
   End If
   
   p_typTokenPriv.PrivilegeCount = 1
   p_typTokenPriv.Privileges.Attributes = SE_PRIVILEGE_ENABLED
   p_typTokenPriv.Privileges.pLuid = p_typLUID
   
   p_lngRtn = AdjustTokenPrivileges(p_lngToken, False, _
                     p_typTokenPriv, Len(p_typPrevTokenPriv), _
                     p_typPrevTokenPriv, p_lngBufLen)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print Err.LastDllError, ReturnApiErrString(Err.LastDllError)
      Exit Sub
   Else
      p_lngLastErr = Err.LastDllError
      If p_lngLastErr = ERROR_SUCCESS Then
         ' Everything is OK
      ElseIf p_lngLastErr = ERROR_NOT_ALL_ASSIGNED Then
         Debug.Print "Not all privileges assigned."
      Else
         Debug.Print p_lngLastErr, ReturnApiErrString(p_lngLastErr)
      End If
   End If
                     
   If xi_blnForce = False Then
      p_lngFlags = EWX_REBOOT
   Else
      p_lngFlags = EWX_REBOOT Or EWX_FORCE
   End If
   
   p_lngRtn = ExitWindowsEx(p_lngFlags, 0&)
   
End SubPublic Sub Shutdown(ByVal xi_blnForce As Boolean)
   Dim p_lngRtn            As Long
   Dim p_lngFlags          As Long
   Dim p_lngToken          As Long
   Dim p_lngBufLen         As Long
   Dim p_lngLastErr        As Long
   Dim p_typLUID           As LUID
   Dim p_typTokenPriv      As TOKEN_PRIVILEGES
   Dim p_typPrevTokenPriv  As TOKEN_PRIVILEGES
   
   p_lngRtn = OpenProcessToken(GetCurrentProcess(), _
                  TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, _
                  p_lngToken)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print ReturnApiErrString(Err.LastDllError)
      Exit Sub
   End If
   
   p_lngRtn = LookupPrivilegeValue(0&, "SeShutdownPrivilege", p_typLUID)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print ReturnApiErrString(Err.LastDllError)
      Exit Sub
   End If
   
   p_typTokenPriv.PrivilegeCount = 1
   p_typTokenPriv.Privileges.Attributes = SE_PRIVILEGE_ENABLED
   p_typTokenPriv.Privileges.pLuid = p_typLUID
   
   p_lngRtn = AdjustTokenPrivileges(p_lngToken, False, _
                     p_typTokenPriv, Len(p_typPrevTokenPriv), _
                     p_typPrevTokenPriv, p_lngBufLen)
   If p_lngRtn = 0 Then
      ' Failed
      Debug.Print Err.LastDllError, ReturnApiErrString(Err.LastDllError)
      Exit Sub
   Else
      p_lngLastErr = Err.LastDllError
      If p_lngLastErr = ERROR_SUCCESS Then
         ' Everything is OK
      ElseIf p_lngLastErr = ERROR_NOT_ALL_ASSIGNED Then
         Debug.Print "Not all privileges assigned."
      Else
         Debug.Print p_lngLastErr, ReturnApiErrString(p_lngLastErr)
      End If
   End If
                     
   If xi_blnForce = False Then
      p_lngFlags = EWX_SHUTDOWN Or EWX_POWEROFF
   Else
      p_lngFlags = EWX_SHUTDOWN Or EWX_POWEROFF Or EWX_FORCE
   End If
   
   p_lngRtn = ExitWindowsEx(p_lngFlags, 0&)
End Sub