mengl520 发表于 2011-9-12 23:51

RtlAdjustPrivilege提升权限

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 发表于 2012-12-26 17:57

测试无效
页: [1]
查看完整版本: RtlAdjustPrivilege提升权限