RtlAdjustPrivilege提升权限
Option ExplicitPrivate Declare Function RtlAdjustPrivilege Lib "ntdll.dll" ( _
ByVal Privilege As String, _
ByVal bEnable As Long, _
ByVal bCurrentThread As Long, _
ByRef bEnabled As Long) As Long
Private Const SE_DEBUG_PRIVILEGE As Long = 20
Private Sub Form_Load()
Dim I As Long
Debug.Print RtlAdjustPrivilege(SE_DEBUG_PRIVILEGE, 0, 0, I)
End Sub
测试无效
页:
[1]