Windows身份验证易语言源码

Windows身份验证易语言源码

@先锋小七

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

调试输出 (Windows身份验证 (“s”, “s”, ))
调试输出 (Windows身份验证_Ex (“s”, “1”, ))

返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 Windows身份验证, 逻辑型
.参数 User, 文本型
.参数 Password, 文本型, 可空
.参数 Domain, 文本型, 可空
.局部变量 hToken
.局部变量 ret, 逻辑型

ret ＝ LogonUserA (User, Domain, Password, #LOGON32_LOGON_INTERACTIVE, #LOGON32_PROVIDER_DEFAULT, hToken)
CloseHandle (hToken)
返回 (ret)


.子程序 Windows身份验证_Ex, 逻辑型
.参数 User, 文本型
.参数 Password, 文本型, 可空
.参数 Domain, 文本型, 可空
.局部变量 hToken
.局部变量 QuotaLimits, QUOTA_LIMITS
.局部变量 ret, 逻辑型
.局部变量 LogonSid
.局部变量 ProfileBuffer
.局部变量 ProfileLength

ret ＝ LogonUserExA (User, Domain, Password, #LOGON32_LOGON_INTERACTIVE, #LOGON32_PROVIDER_DEFAULT, hToken, LogonSid, ProfileBuffer, ProfileLength, QuotaLimits)
CloseHandle (hToken)
.如果真 (取反 (ret))
    返回 (ret)
.如果真结束

调试输出 (hToken, 指针到整数 (LogonSid), ProfileLength, 指针到字节集 (ProfileBuffer, ProfileLength))
调试输出 (QuotaLimits.TimeLimit, QuotaLimits.PagefileLimit, QuotaLimits.PagedPoolLimit, QuotaLimits.NonPagedPoolLimit, QuotaLimits.MinimumWorkingSetSize ÷ 1024, QuotaLimits.MaximumWorkingSetSize ÷ 1024)
返回 (ret)