RtlAdjustPrivilege提升权限

mengl520

Option Explicit   
  
Private 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  

xxhaishixx

测试无效