用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

论坛上有朋友说起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

这个提权比RING3的那堆函数代码要少点,方便....... 

---

★VB部分相关文章推荐：★

---

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 获取汉字拼音的首字母

☆VB 汉字字符串转换成拼音

☆VB判断指定名字的进程是否存在函数

☆VB 两种方法实现热键

☆VB 使用SendMessage枚举文件与目录

☆VB 二进制数组与十六进制字符串相互转换