易语言提升进程令牌模块

系统结构:AdjustProcessPrivilege,LookupPrivilegeValue,OpenProcessToken,AdjustTokenPrivileges,GetLastError,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ AdjustProcessPrivilege
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LookupPrivilegeValue
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   AdjustTokenPrivileges
           |  |
           |  |---[dll]------   GetLastError

调用的DLL命令:

.DLL命令 LookupPrivilegeValue, 整数型, "advapi32.dll", "LookupPrivilegeValueA", , 返回特权名LUID
    .参数 lpSystemName, 文本型
    .参数 lpName, 文本型
    .参数 lpLuid, LARGE_INTEGER

.DLL命令 OpenProcessToken, 整数型, "advapi32.dll", "OpenProcessToken", , 打开过程令牌对象
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型

.DLL命令 AdjustTokenPrivileges, 整数型, "advapi32.dll", "AdjustTokenPrivileges", , 使能/取消令牌特权
    .参数 TokenHandle, 整数型
    .参数 DisableAllPrivileges, 整数型
    .参数 NewState, TOKEN_PRIVILEGES
    .参数 BufferLength, 整数型
    .参数 PreviousState, TOKEN_PRIVILEGES
    .参数 ReturnLength, 整数型

.DLL命令 GetLastError, 整数型, "kernel32", "GetLastError", , 针对之前调用的api函数，用这个函数取得扩展错误信息（在vb里使用：在vb中，用Err对象的GetLastError属性获取GetLastError的值。这样做是必要的，因为在api调用返回以及vb调用继续执行期间，vb有时会重设GetLastError的值）  由api函数决定。请参考api32.txt文件，其中列出了一系列错误常数；都以ERROR_前缀起头。常用的错误代码见下表