VB里的AdjustTokenPrivileges快把我弄疯了

来源：百度知道 编辑：UC知道 时间：2024/06/27 15:54:15
能给个经测可以使用的源码的,赠200分

睡觉!

冷门问题,暂不设分!

复制者闪,要原创能用的!

Dim hProc As Long
Dim OldTokenStuff As TOKEN_PRIVILEGES
Dim OldTokenStuffLen As Long
Dim NewTokenStuff As TOKEN_PRIVILEGES
Dim NewTokenStuffLen As Long
Dim pSize As Long

If OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hProc) = 0 Then'打开本进程
MsgBox "OpenProcessToken Error: " & GetLastError()
Exit Function
End If
If LookupPrivilegeValue(vbNullString, SE_DEBUG_NAME, OldTokenStuff.Privileges(0).pLuid) = 0 Then'提升调试权限
MsgBox "LookupPrivilegeValue Error: " & GetLastError()
Exit Function
End If
NewTokenStuff.PrivilegeCount = 1'提升一个权限
NewTokenStuff.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
NewTokenStuffLen = Len(NewTokenStuff)
pSize = Len(NewTokenStuff)
If AdjustTokenPrivileges(hProc, False, NewTok