.版本 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)