如何用VB编程实现控制计算机的关机和重起

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:03:17
如何让用户单击关机或重起按钮时无效 (强行控制计算机关机或重起)
用VB编程如何实现啊?
高手大哥们帮帮忙啊? 给我写一段代码好吗?
谢谢了!
不是要关机或重起 的代码, 是怎么控制用户关机或重起计算机
就是说不允许用户执行关机或重起操作 或者当用户单击关机或冲起计算机按钮时计算机不执行任何操作 怎么来强行控制啊!
怎么控制啊?

以上只适用于XP最好用Api实现
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 TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function ExitWindowsEx Lib "USER32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Enum EXITWINDOWSEXENUM
EWX_LogOff = 0
EWX_SHUTDOWN = 1
EWX_REBOOT = 2