人民网POST登录源码

.版本 2
.支持库 dp1

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 编码账号, 文本型
.局部变量 发送地址, 文本型
.局部变量 发送数据, 文本型
.局部变量 返回数据, 文本型
.局部变量 token, 文本型
.局部变量 cookies, 文本型
.局部变量 动态密码, 文本型
.局部变量 CS, 文本型
.局部变量 CC, 文本型

编码账号 ＝ 编码_URL编码 (邮箱编辑框.内容, 真, 真)
返回数据 ＝ 网页_访问S (“http://sso.people.com.cn/getRandomCode?userName=” ＋ 编码账号 ＋ “&_r=” ＋ 时间_取随机时间戳 () ＋ “&callback=rmwsso_getscript_callback_155992”, 0, , , cookies, )
token ＝ 文本_取出中间文本 (返回数据, #token前边, #token后边)
CS ＝ 文本_取出中间文本 (返回数据, #CSQ, #CSH)
CC ＝ 文本_取出中间文本 (返回数据, #CCQ, #CCH)
动态密码 ＝ 取数据摘要 (到字节集 (密码编辑框.内容)) ＋ CS
动态密码 ＝ 取数据摘要 (到字节集 (动态密码)) ＋ CC
动态密码 ＝ 取数据摘要 (到字节集 (动态密码))
发送地址 ＝ “http://sso.people.com.cn/login”
发送数据 ＝ “loginName=” ＋ 编码账号 ＋ “&password=” ＋ 动态密码 ＋ “&token=” ＋ token ＋ “&appCode=&remember=1”
返回数据 ＝ 网页_访问S (发送地址, 1, 发送数据, , cookies, )
.如果真 (寻找文本 (返回数据, “success”, , 假) ＝ -1)
    信息框 (“POST登录失败！”, 64, “提示信息”, )
    返回 ()
.如果真结束
cookies ＝ “Cookie: sso_c=1; sso_l=AgiQb+C/A+dLz76fiQUm; Hm_lvt_6c9d36ce5aedec13e82ce83d08e26937=1501424710,1501495622,1501509615; wdcid=5f5fb320f0dfc943; wdlast=1501509986; Hm_lpvt_6c9d36ce5aedec13e82ce83d08e26937=1501509985; wdses=41f7dc6e80e0a8aa; sso_u=Aqa8bgzZtNLnAgiQb+C/A+dLz76fiQUmsISHmkI9PkS3okBZDK6/bqb_; sso_s=” ＋ 文本_取出中间文本 (返回数据, #SSO_SQ, #SSO_SH)
返回数据 ＝ 到文本 (网页_访问 (“http://sso.people.com.cn/u/basicinfo”, 0, , cookies, , ))
返回数据 ＝ 编码_URL解码 (返回数据, 真)
输出调试文本 (返回数据)
.判断开始 (寻找文本 (返回数据, 用户名编辑框.内容, , 假) ≠ -1)
    信息框 (“登录成功！”, 1, “提示信息”, )
    编辑框3.内容 ＝ 返回数据
.默认
    信息框 (“登录失败！”, #错误图标, “提示信息”, )
    返回 ()

@三叶资源网