前沿拓展：

幫忙關注一下我，以后可以為你分享更多的代碼Private Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As LongPrivate 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

Const TOKEN_ADJUST_PRIVILEGES = &H20Const TOKEN_QUERY = &H8Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUIDUsddpart As Longlgnoredfornowhigh32bitpart As LongEnd Type

Private Type TOKEN_PRIVILEGESPrivilegeCount As LongTheLuid As LUIDAttributes As LongEnd Type

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst HELP_CONTENTS = &H3&Const EWX_WAIT = 16Const EWX_FORCE = 4 ' 終止沒有響應的進程Const EWX_SHUTDOW = 8 ' 關機Const EWX_REBOOT = 2 ' 重啟Const EWX_LOGOFF = 0 ' 注銷

' 關機代碼+++++++++++Dim hprocessHandle As LongDim hTokenHandle As LongDim tmpluid As LUIDDim tkpNew As TOKEN_PRIVILEGESDim tkpPrevious As TOKEN_PRIVILEGESDim lBufferNeeded As Long' 關機代碼+++++++++++

Private Sub Form_Load()

' 關機代碼+++++++++++hprocessHandle = GetCurrentProcess()OpenProcessToken hprocessHandle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hTokenHandleLookupPrivilegeValue "", "SeShutdownprivilege", tmpluidtkpNew.PrivilegeCount = 1tkpNew.TheLuid = tmpluidtkpNew.Attributes = SE_PRIVILEGE_ENABLEDlBufferNeeded = 0AdjustTokenPrivileges hTokenHandle, False, tkpNew, Len(tkpPrevious), tkpPrevious, lBufferNeeded

' 關機代碼+++++++++++'關機代碼++++++++++ExitWindowsEx EWX_FORCE Or EWX_SHUTDOW, 0'關機代碼++++++++++

End Sub

拓展知識：