2024年1月24日发(作者：)

VB进程权限提升代码 Attribute VB_Name = " Enable_Privileges "

Option Explicit

Option Base 0'

Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As LongPrivate 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 LongPrivate Declare Function OpenProcessToken Lib "" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Const ANYSIZE_ARRAY = 1Private Const TOKEN_ADJUST_PRIVILEGES = &H20Private Const TOKEN_QUERY = &H8Private Type LUID LowPart As Long HighPart As LongEnd TypePrivate Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As LongEnd TypePrivate Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTESEnd TypePublic Const SE_DEBUG_NAME = "SeDebugPrivilege"Public Const SE_ASSIGNPRIMARYTOKEN_NAME = "SeAssignPrimaryTokenPrivilege"Public Const SE_AUDIT_NAME = "SeAuditPrivilege"Public Const SE_BACKUP_NAME = "SeBackupPrivilege"Public Const SE_CHANGE_NOTIFY_NAME = "SeChangeNotifyPrivilege"Public Const SE_CREATE_PAGEFILE_NAME = "SeCreatePagefilePrivilege"Public Const SE_CREATE_PERMANENT_NAME = "SeCreatePermanentPrivilege"Public Const SE_CREATE_TOKEN_NAME = "SeCreateTokenPrivilege"Public Const SE_INC_BASE_PRIORITY_NAME = "SeIncreaseBasePriorityPrivilege"Public Const SE_INCREASE_QUOTA_NAME = "SeIncreaseQuotaPrivilege"Public Const SE_LOAD_DRIVER_NAME = "SeLoadDriverPrivilege"Public Const SE_LOCK_MEMORY_NAME = "SeLockMemoryPrivilege"Public Const SE_MACHINE_ACCOUNT_NAME = "SeMachineAccountPrivilege"Public Const SE_PROF_SINGLE_PROCESS_NAME = "SeProfileSingleProcessPrivilege"Public Const SE_REMOTE_SHUTDOWN_NAME = "SeRemoteShutdownPrivilege"Public Const SE_RESTORE_NAME = "SeRestorePrivilege"Public Const SE_SECURITY_NAME = "SeSecurityPrivilege"Public Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"Public Const SE_SYSTEM_ENVIRONMENT_NAME = "SeSystemEnvironmentPrivilege"Public Const SE_SYSTEM_PROFILE_NAME = "SeSystemProfilePrivilege"Public Const SE_SYSTEMTIME_NAME = "SeSystemtimePrivilege"Public Const SE_TAKE_OWNERSHIP_NAME = "SeTakeOwnershipPrivilege"Public Const SE_TCB_NAME = "SeTcbPrivilege"Public Const SE_UNSOLICITED_INPUT_NAME = "SeUnsolicitedInputPrivilege"Private Const SE_DACL_DEFAULTED = &H8Private Const SE_DACL_PRESENT = &H4

Private Const SE_ERR_ACCESSDENIED = 5Private Const SE_ERR_ASSOCINCOMPLETE = 27Private Const SE_ERR_DDEBUSY = 30Private Const SE_ERR_DDEFAIL = 29Private Const SE_ERR_DDETIMEOUT = 28Private Const SE_ERR_DLLNOTFOUND = 32Private Const SE_ERR_FNF = 2Private Const SE_ERR_NOASSOC = 31Private Const SE_ERR_OOM = 8Private Const SE_ERR_PNF = 3Private Const SE_ERR_SHARE = 26Private Const SE_GROUP_DEFAULTED = &H2Private Const SE_GROUP_ENABLED = &H4Private Const SE_GROUP_ENABLED_BY_DEFAULT = &H2Private Const SE_GROUP_LOGON_ID = &HC0000000Private Const SE_GROUP_MANDATORY = &H1Private Const SE_GROUP_OWNER = &H8Private Const SE_OWNER_DEFAULTED = &H1Private Const SE_PRIVILEGE_ENABLED = &H2Private Const SE_PRIVILEGE_ENABLED_BY_DEFAULT = &H1Private Const SE_PRIVILEGE_USED_FOR_ACCESS = &H80000000Private Const SE_SELF_RELATIVE = &H8000Private Const SE_SACL_DEFAULTED = &H20Private Const SE_SACL_PRESENT = &H10'***************************************************************************************************************Public Sub EnablePrivileges(hProc As Long, PrivilegeName As String) Dim hToken As Long Dim mLUID As LUID Dim mPriv As TOKEN_PRIVILEGES Dim mNewPriv As TOKEN_PRIVILEGES OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken LookupPrivilegeValue "", PrivilegeName, mLUID egeCount = 1 eges(0).Attributes = SE_PRIVILEGE_ENABLED eges(0).pLuid = mLUID AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * egeCount), mNewPriv, 4 + (12 * egeCount) CloseHandle hTokenEnd Sub