.版本 2 .支持库 dp1 .支持库 spec .程序集 程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 Http, WinHttpR .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 登录同程 () 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 登录同程 .局部变量 Url, 文本型 .局部变量 Body, 文本型 .局部变量 Header, 文本型 .局部变量 AccountID, 文本型 .局部变量 MD5, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 ReqTime, 文本型 .局部变量 Version, 文本型 .局部变量 digitalSign, 文本型 .局部变量 Json, zyJsonValue .局部变量 reqdata, 文本型 .局部变量 memberId, 文本型 Url ＝ “https://tcmobileapi.17usoft.com/member/MembershipHandler.ashx” ReqTime ＝ GetTime () Body ＝ #常量1 Body ＝ 子文本替换 (Body, “1587913726185”, ReqTime, , , 真) digitalSign ＝ 取数据摘要 (到字节集 (“AccountID=c26b007f-c89e-431a-b8cc-493becbdd8a2&ReqTime=” ＋ ReqTime ＋ “&ServiceName=Loginv2&Version=201111281029128874d8a8b8b391fbbd1a25bda6ecda11”)) Body ＝ 子文本替换 (Body, “7d8cfd6814d7bc9ad5e8b70cb8a69359”, digitalSign, , , 真) reqdata ＝ 取数据摘要 (到字节集 (Body ＋ “4957CA66-37C3-46CB-B26D-E3D9DCB51535”)) 调试输出 (reqdata) Http.POST (Url, Body, , Header) 调试输出 (Http.GetResponseTextU2A ())