同程APP登录源码

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

@玄冰