✅是否为管理员+以管理员运行=管理员拉起自身

莫小乐

系统_是否为管理员（Vista/10/11 全兼容）

  

DLL命令名	返回值类型	公开	备 注
GetTokenInformation_是否为管理员	整数型
DLL库文件名:
在DLL库中对应命令名:
GetTokenInformation
参数名	类 型	传址	数组	备 注
TokenHandle	整数型
TokenInformationClass	整数型
TokenInformation	TOKEN_ELEVATION
TokenInformationLength	整数型
ReturnLength	整数型

DLL命令名	返回值类型	公开	备 注
GetVersion_是否为管理员	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetVersion
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
GetCurrentProcess_是否为管理员	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetCurrentProcess
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
OpenProcessToken_是否为管理员	整数型
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
OpenProcessToken
参数名	类 型	传址	数组	备 注
ProcessHandle	整数型			进程句柄
DesiredAccess	整数型			权限
TokenHandle	整数型			令牌句柄

DLL命令名	返回值类型	公开	备 注
CloseHandle_是否为管理员	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
CloseHandle
参数名	类 型	传址	数组	备 注
hObject	整数型

数据类型名	公开	备 注
TOKEN_ELEVATION
成员名	类 型	传址	数组	备 注
TokenIsElevated	整数型

常量名称	常量值	公 开	备 注
TOKEN_QUERY	8		是否为管理员
TokenElevation	20		是否为管理员

子程序名	返回值类型	公开	备 注
系统_是否为管理员	逻辑型		判断当前程序是否以管理员身份运行

变量名	类 型	静态	数组	备 注
WinVer	短整数型
hToken	整数型
te	TOKEN_ELEVATION
dwReturnLength	整数型
bIsElevated	逻辑型
Bin	字节集

WinVer ＝ 位与 (GetVersion_是否为管理员 (), 65535)  ' 获取Windows 版本
Bin ＝ 到字节集 (WinVer)
WinVer ＝ Bin [1]
Bin [1] ＝ Bin [2]
Bin [2] ＝ WinVer
WinVer ＝ 取字节集数据 (Bin, #短整数型, )
如果真 (WinVer ＜ 1536)  ' 如果当前系统木有 以管理员身份运行 介个功能
返回 (假)
如果真 (OpenProcessToken_是否为管理员 (GetCurrentProcess_是否为管理员 (), #TOKEN_QUERY, hToken) ≠ 0)  ' 打开访问令牌
GetTokenInformation_是否为管理员 (hToken, #TokenElevation, te, 4, dwReturnLength)  ' 获取令牌信息
如果真 (dwReturnLength ＝ 4)
bIsElevated ＝ te.TokenIsElevated ≠ 0
CloseHandle_是否为管理员 (hToken)  ' 关闭句柄
返回 (bIsElevated)

.版本 2<br /> <br /> .DLL命令 GetTokenInformation_是否为管理员, 整数型, , "GetTokenInformation"<br />     .参数 TokenHandle, 整数型<br />     .参数 TokenInformationClass, 整数型<br />     .参数 TokenInformation, TOKEN_ELEVATION<br />     .参数 TokenInformationLength, 整数型<br />     .参数 ReturnLength, 整数型, 传址<br /> <br /> .DLL命令 GetVersion_是否为管理员, 整数型, "kernel32", "GetVersion"<br /> <br /> .DLL命令 GetCurrentProcess_是否为管理员, 整数型, "kernel32.dll", "GetCurrentProcess"<br /> <br /> .DLL命令 OpenProcessToken_是否为管理员, 整数型, "advapi32.dll", "OpenProcessToken"<br />     .参数 ProcessHandle, 整数型, , 进程句柄<br />     .参数 DesiredAccess, 整数型, , 权限<br />     .参数 TokenHandle, 整数型, 传址, 令牌句柄<br /> <br /> .DLL命令 CloseHandle_是否为管理员, 整数型, "kernel32", "CloseHandle"<br />     .参数 hObject, 整数型<br /> <br /> .版本 2<br /> <br /> .数据类型 TOKEN_ELEVATION<br />     .成员 TokenIsElevated, 整数型<br /> <br /> <br /> .版本 2<br /> <br /> .常量 TOKEN_QUERY, "8", , 是否为管理员<br /> .常量 TokenElevation, "20", , 是否为管理员<br /> <br /> <br /> .版本 2<br /> <br /> <br /> <br /> .子程序 系统_是否为管理员, 逻辑型, 公开, 判断当前程序是否以管理员身份运行<br /> .局部变量 WinVer, 短整数型<br /> .局部变量 hToken, 整数型<br /> .局部变量 te, TOKEN_ELEVATION<br /> .局部变量 dwReturnLength, 整数型<br /> .局部变量 bIsElevated, 逻辑型<br /> .局部变量 Bin, 字节集<br /> <br /> WinVer ＝ 位与 (GetVersion_是否为管理员 (), 65535)  ' 获取Windows 版本<br /> Bin ＝ 到字节集 (WinVer)<br /> WinVer ＝ Bin [1]<br /> Bin [1] ＝ Bin [2]<br /> Bin [2] ＝ WinVer<br /> WinVer ＝ 取字节集数据 (Bin, #短整数型, )<br /> .如果真 (WinVer ＜ 1536)  ' 如果当前系统木有 以管理员身份运行 介个功能<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (OpenProcessToken_是否为管理员 (GetCurrentProcess_是否为管理员 (), #TOKEN_QUERY, hToken) ≠ 0)  ' 打开访问令牌<br />     GetTokenInformation_是否为管理员 (hToken, #TokenElevation, te, 4, dwReturnLength)  ' 获取令牌信息<br />     .如果真 (dwReturnLength ＝ 4)<br />         bIsElevated ＝ te.TokenIsElevated ≠ 0<br />     .如果真结束<br />     CloseHandle_是否为管理员 (hToken)  ' 关闭句柄<br /> .如果真结束<br /> 返回 (bIsElevated)

系统_以管理员运行

  

DLL命令名	返回值类型	公开	备 注
LocalSize_以管理员运行	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
LocalSize
参数名	类 型	传址	数组	备 注
hMem	SHELLEXECUTEINFOA			0

DLL命令名	返回值类型	公开	备 注
ShellExecuteExA_以管理员运行	整数型
DLL库文件名:
shell32
在DLL库中对应命令名:
ShellExecuteExA
参数名	类 型	传址	数组	备 注
lpExecInfo	SHELLEXECUTEINFOA			0

数据类型名	公开	备 注
SHELLEXECUTEINFOA
成员名	类 型	传址	数组	备 注
cbSize	整数型
fMask	整数型
hwnd	整数型
lpVerb	文本型
lpFile	文本型
lpParameters	文本型
lpDirectory	文本型
nShow	整数型
hInstApp	整数型
lpIDList	整数型
lpClass	文本型
hkeyClass	整数型
dwHotKey	整数型
hIcon	整数型
hProcess	整数型

常量名称	常量值	公 开	备 注
SW_SHOWDEFAULT	10		, 以管理员运行
SEE_MASK_FLAG_DDEWAIT	256		, 以管理员运行

子程序名	返回值类型	公开	备 注
系统_以管理员运行	逻辑型		警告：请勿放在 窗口创建完毕/首次激活/死循环中
参数名	类 型	参考	可空	数组	备 注
进程路径	文本型				留空默认启动自身进程
运行参数	文本型				命令行参数

变量名	类 型	静态	数组	备 注
sei	SHELLEXECUTEINFOA

如果 (是否为空 (进程路径) 或 进程路径 ＝ “”)
sei.lpFile ＝ 取运行目录 ()
如果真 (取文本右边 (sei.lpFile, 1) ≠ “\”)
sei.lpFile ＝ sei.lpFile ＋ “\”
sei.lpFile ＝ sei.lpFile ＋ 取执行文件名 ()
sei.lpFile ＝ 进程路径
sei.lpParameters ＝ 运行参数
sei.lpVerb ＝ “runas”
sei.nShow ＝ #SW_SHOWDEFAULT
sei.fMask ＝ #SEE_MASK_FLAG_DDEWAIT
sei.cbSize ＝ LocalSize_以管理员运行 (sei)
返回 (ShellExecuteExA_以管理员运行 (sei) ≠ 0)

.版本 2<br /> <br /> .DLL命令 LocalSize_以管理员运行, 整数型, "kernel32", "LocalSize"<br />     .参数 hMem, SHELLEXECUTEINFOA, , 0<br /> <br /> .DLL命令 ShellExecuteExA_以管理员运行, 整数型, "shell32", "ShellExecuteExA"<br />     .参数 lpExecInfo, SHELLEXECUTEINFOA, , 0<br /> .版本 2<br /> <br /> .数据类型 SHELLEXECUTEINFOA<br />     .成员 cbSize, 整数型<br />     .成员 fMask, 整数型<br />     .成员 hwnd, 整数型<br />     .成员 lpVerb, 文本型<br />     .成员 lpFile, 文本型<br />     .成员 lpParameters, 文本型<br />     .成员 lpDirectory, 文本型<br />     .成员 nShow, 整数型<br />     .成员 hInstApp, 整数型<br />     .成员 lpIDList, 整数型<br />     .成员 lpClass, 文本型<br />     .成员 hkeyClass, 整数型<br />     .成员 dwHotKey, 整数型<br />     .成员 hIcon, 整数型<br />     .成员 hProcess, 整数型<br /> .版本 2<br /> <br /> .常量 SW_SHOWDEFAULT, "10", , , 以管理员运行<br /> .常量 SEE_MASK_FLAG_DDEWAIT, "256", , , 以管理员运行<br /> .版本 2<br /> <br /> .子程序 系统_以管理员运行, 逻辑型, 公开, 警告：请勿放在 窗口创建完毕/首次激活/死循环中<br /> .参数 进程路径, 文本型, 可空, 留空默认启动自身进程<br /> .参数 运行参数, 文本型, 可空, 命令行参数<br /> .局部变量 sei, SHELLEXECUTEINFOA<br /> <br /> .如果 (是否为空 (进程路径) 或 进程路径 ＝ “”)<br />     sei.lpFile ＝ 取运行目录 ()<br />     .如果真 (取文本右边 (sei.lpFile, 1) ≠ “\”)<br />         sei.lpFile ＝ sei.lpFile ＋ “\”<br />     .如果真结束<br />     sei.lpFile ＝ sei.lpFile ＋ 取执行文件名 ()<br /> .否则<br />     sei.lpFile ＝ 进程路径<br /> .如果结束<br /> sei.lpParameters ＝ 运行参数<br /> sei.lpVerb ＝ “runas”<br /> sei.nShow ＝ #SW_SHOWDEFAULT<br /> sei.fMask ＝ #SEE_MASK_FLAG_DDEWAIT<br /> sei.cbSize ＝ LocalSize_以管理员运行 (sei)<br /> 返回 (ShellExecuteExA_以管理员运行 (sei) ≠ 0)

调用两个实现  如果不是管理员拉起管理员自己！

  

子程序名	返回值类型	公开	备 注
系统_识别拉起管理员

标签_Result.标题 ＝ 选择 (系统_是否为管理员 (), “管理员身份运行”, “普通身份”)
如果真 (标签_Result.标题 ＝ “普通身份”)
判断 (是否为调试版 ())
信息框 (“程序在调试模式，不能重新打开程序哦~”, #信息图标, “温馨提示”, 取窗口句柄 ())
信息框 (“结束自身、拉起管理员模式运行”, 0, , )
系统_以管理员运行 (, )
_启动窗口.销毁 ()

.版本 2<br /> <br /> .子程序 系统_识别拉起管理员<br /> <br /> 标签_Result.标题 ＝ 选择 (系统_是否为管理员 (), “管理员身份运行”, “普通身份”)<br /> .如果真 (标签_Result.标题 ＝ “普通身份”)<br />     .判断开始 (是否为调试版 ())<br />         信息框 (“程序在调试模式，不能重新打开程序哦~”, #信息图标, “温馨提示”, 取窗口句柄 ())<br />     .默认<br />         信息框 (“结束自身、拉起管理员模式运行”, 0, , )<br />         系统_以管理员运行 (, )<br />         _启动窗口.销毁 ()<br />     .判断结束<br /> <br /> .如果真结束

游客，如果您要查看本帖隐藏内容请回复

莫小乐

  

子程序名	返回值类型	公开	备 注
博乐_识别拉起管理员

如果真 (博乐_是否为管理员 () ＝ 假)
判断 (是否为调试版 ())
信息框 (“程序在调试模式，不能重新打开程序”, #信息图标, “温馨提示”, )
博乐_以管理员运行 (, )
结束 ()

.版本 2<br /> <br /> .子程序 博乐_识别拉起管理员<br /> <br /> .如果真 (博乐_是否为管理员 () ＝ 假)<br />     .判断开始 (是否为调试版 ())<br />         信息框 (“程序在调试模式，不能重新打开程序”, #信息图标, “温馨提示”, )<br />     .默认<br />         博乐_以管理员运行 (, )<br />         结束 ()<br />     .判断结束

编译权限说明：

1. 易语言 编译设置
不勾选编译=普通模式
勾选编译=管理员模式

2. 补充说明部分复杂代码、特殊系统环境下，即便勾选管理员编译，程序仍可能无管理员权限，本代码检测提权逻辑用于兜底补救。

xiaoxiao2

感谢分享

myl1712

调用两个实现  如果不是管理员拉起管理员自己

lm88818

        感谢分享，很给力！~

wmv520

#在这里快速回复#支持开源~！感谢分享

痴情公子

支持开源~！感谢分享

200812620

感谢分享，支持一下

15158930038

非常支持

宁静清澈

支持开源~！感谢分享

1184798949

感谢分享