按键精灵_API关机、重启、注销操作

最新推荐文章于 2024-10-02 12:12:31 发布

原创最新推荐文章于 2024-10-02 12:12:31 发布 · 1.8k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#按键精灵

本文介绍了一个使用VBA进行系统操作的脚本，包括注销、关机和重启等常见操作。通过调整系统权限并调用系统API，脚本能够实现对Windows系统的高级控制。

Option Explicit
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0
Private Const EWX_POWEROFF = 8
Public Const WM_SYSCOMMAND = &H112&
Public Const SC_SCREENSAVE = &HF140&
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 TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'
Public Sub QuitSystemWin(Index)
Dim i
Select Case Index
Case 0 '注销
AdjustToken
i = ExitWindowsEx((EWX_FORCE Or EWX_LOGOFF), &HFFFF)
Case 1 '关机
AdjustToken
i = ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), &HFFFF)
Case 2 '重启
AdjustToken
i = ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF)
End Select
End Sub
'
QuitSystemWin 1 '0注销 1关机 2重启