vb6 的关机代码

Public Const SE_PRIVILEGE_ENABLED As Integer = &H2
Public Const
TOKEN_QUERY As Integer = &H8
Public Const TOKEN_ADJUST_PRIVILEGES As
Integer = &H20
Public Const SE_SHUTDOWN_NAME As String =
"SeShutdownPrivilege"
Public Const EWX_LOGOFF As Integer = &H0
'注销计算机
Public Const EWX_SHUTDOWN As Integer = &H1 '关闭计算机
Public Const
EWX_REBOOT As Integer = &H2 '重新启动计算机
Public Const EWX_FORCE As Integer =
&H4 '关闭所有进程，注销计算机
Public Const EWX_POWEROFF As Integer =
&H8
Public Const EWX_FORCEIFHUNG As Integer = &H10
Public Const
SPI_GETWORKAREA = &H30

Private Type Luid
dwLowPart As Long
dwHighPart As Long
End
Type

Private Type LUID_AND_ATTRIBUTES
udtLUID As Luid
dwAttributes
As Long
End Type

Private Type TokPriv1Luid
Count As Integer
Luid As Luid

Attr As Integer
End Type

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
TokPriv1Luid, _
ByVal BufferLength As Long, _
PreviousState As Any,
_
ReturnLength As Long) As Long

Private Sub DoExitWin(ByVal flg As Integer)
Dim xc As Boolean
'判断语句
Dim tp As TokPriv1Luid
Dim hproc As Long
hproc =
GetCurrentProcess()

'调用进程值
Dim htok As Long
htok =
0

xc = OpenProcessToken(hproc, TOKEN_ADJUST_PRIVILEGES Or
TOKEN_QUERY, htok)
tp.Count = 1
tp.Attr =
SE_PRIVILEGE_ENABLED

xc = LookupPrivilegeValue(vbNullString,
SE_SHUTDOWN_NAME, tp.Luid)
xc = AdjustTokenPrivileges(htok, False, tp,
ByVal 0&, ByVal 0&, ByVal 0&)
xc = ExitWindowsEx(flg,
0)
End Sub

Public Sub Reboot()
Dim flg As Integer
flg = EWX_FORCE Or
EWX_REBOOT
DoExitWin flg '重新启动计算机
End Sub

Public Sub PowerOff()
Dim flg As Integer
flg = EWX_FORCE Or
EWX_POWEROFF
DoExitWin flg '关闭计算机
End Sub

Public Sub Logout()
Dim flg As Boolean
flg = EWX_FORCE Or
EWX_LOGOFF
DoExitWin flg '注销计算机
End Sub