易语言其他用户令牌执行源码

系统结构:取最近执行程序路径,LogonUser,ImpersonateLoggedOnUser,GetLastError,RevertToSelf,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取最近执行程序路径
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LogonUser
           |  |
           |  |---[dll]------   ImpersonateLoggedOnUser
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   RevertToSelf

调用的DLL命令:

.DLL命令 LogonUser, 整数型, "ADVAPI32.DLL", "LogonUserA"
    .参数 lpszUsername, 文本型
    .参数 lpszDomain, 整数型
    .参数 lpszPassword, 文本型
    .参数 dwLogonType, 整数型, , LOGON32_LOGON_INTERACTIVE=2
    .参数 dwLogonProvider, 整数型, , LOGON32_PROVIDER_DEFAULT=0
    .参数 phToken, 整数型, 传址

.DLL命令 ImpersonateLoggedOnUser, 整数型, "ADVAPI32.DLL", "ImpersonateLoggedOnUser"
    .参数 phToken

.DLL命令 GetLastError, 整数型, , "GetLastError"

.DLL命令 RevertToSelf, 整数型, "advapi32.dll", "RevertToSelf"