关机程序代码运行不了！

Question

use privateConst EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_SHUTDOWN = 1
private Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
使用：
lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭计算机
lresult = ExitWindowsEx(EWX_REBOOT, 0&) '重新启动计算机

Answer 1

呵呵，你声明的不对
Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Answer 2

Option ExplicitDim mDattime As DatePrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) 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 Long, ReturnLength As Long) As Long
Private Declare Function GetTokenInformation Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal TokenInformationClass As Long, TokenInformation As Any, ByVal TokenInformationLength As Long, ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LARGE_INTEGER) As LongPrivate Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const EWX_LOGOFF = 0 '中止进程，然后注销
Private Const EWX_POWEROFF = 8 '关掉系统电源
Private Const EWX_SHUTDOWN = 1 '关闭系统
Private Const EWX_REBOOT = 2 '重新引导系统
Private Const EWX_FORCE = 4 '强迫中止没有响应的进程
Private Const EWX_FORCEIFHUNG = 16 '如果应用程序已挂起，强制关闭Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const SE_PRIVILEGE_ENABLED_BY_DEFAULT = &H1
Private Const SE_PRIVILEGE_USED_FOR_ACCESS = &H80000000Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY_SOURCE = &H10
Private Const TOKEN_QUERY = &H8Private Const ANYSIZE_ARRAY = 1Private Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"Private Const PROCESS_SET_INFORMATION = &H200
Private Const PROCESS_QUERY_INFORMATION = &H400Private Type LARGE_INTEGER
  lowpart As Long
  highpart As Long
End TypePrivate 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(0) As LUID_AND_ATTRIBUTES
End TypeDim Opt As LongPrivate Sub Shutdown(Optional Mode As Long = EWX_POWEROFF)
Dim lAPIReturn As Long
Dim tTOKPRI As TOKEN_PRIVILEGES
Dim tLUID As LUID
Dim tLarInt As LARGE_INTEGER
Dim lRequired As Long
Dim hTokHan As Long
Dim hProcess As LongIf LookupPrivilegeValue(vbNullString, SE_SHUTDOWN_NAME, tLarInt) = 0 Then
  MsgBox "Get LUID error!", vbOKOnly, "Error"
  Exit Sub
End IftLUID.highpart = tLarInt.highpart
tLUID.lowpart = tLarInt.lowparttTOKPRI.PrivilegeCount = 1
tTOKPRI.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
tTOKPRI.Privileges(0).pLuid = tLUIDhProcess = GetCurrentProcess()
lAPIReturn = OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hTokHan)
lAPIReturn = AdjustTokenPrivileges(hTokHan, 0, tTOKPRI, Len(tTOKPRI), 0, 0)
lAPIReturn = ExitWindowsEx(Mode, 0)
If lAPIReturn = 0 Then
  MsgBox "Function calling error!", vbOKOnly, "错误"
End IflAPIReturn = CloseHandle(hTokHan)
Unload Me
End Sub

Answer 3

win2000和xp中要取得进程的优先级。

Answer 4

将：作者 NowCan(能量、激情、雨水、彩虹——雷雨云) 
写的程序的常量定义部分的
Private Const EWX_POWEROFF = 8 '关掉系统电源 
中的8改为5，6，8，7，9，10。每一个都试一下。
保证有一个可以实现！

Answer 5

用vb外挂的API管理器在模块中添加说明,一般都能实现。

Answer 6

申明的地方错了。
你是初学VB的吧那上面的是在Module里面的。你放在了窗体里。所以出问题了关机代码如下：
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
'//上面的部分放在Module里面
'//下面的部分在窗体中定义一个Sub或者Function。要不就放在某个控件的消息处理函数里也可以。
如：
Private sub Command1_Click()
    lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭计算机
    lresult = ExitWindowsEx(EWX_REBOOT, 0&) '重新启动计算机
end sub如果在上面的部分里，将所有的Global改为private，并且在declare语句前也添加prvate，那么上面的部分也可以放在窗体里了