待機怎么輸入代碼(待機怎么弄)

前沿拓展：

幫忙關注一下我，以后可以為你分享更多的代碼Private Declare Function GetCurrentProcess Lib &34;kernel32&34; () As LongPrivate Declare Function OpenProcessToken Lib &34;advapi32.dll&34; (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Declare Function LookupPrivilegeValue Lib &34;advapi32.dll&34; Alias &34;LookupPrivilegeValueA&34; (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As LongPrivate Declare Function AdjustTokenPrivileges Lib &34;advapi32.dll&34; (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 &34;user32&34; (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst HELP_CONTENTS = &H3&Const EWX_WAIT = 16Const EWX_FORCE = 4 &39; 終止沒有響應的進程Const EWX_SHUTDOW = 8 &39; 關機Const EWX_REBOOT = 2 &39; 重啟Const EWX_LOGOFF = 0 &39; 注銷

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

Private Sub Form_Load()

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

&39; 關機代碼+++++++++++&39;關機代碼++++++++++ExitWindowsEx EWX_FORCE Or EWX_SHUTDOW, 0&39;關機代碼++++++++++

End Sub

拓展知識：