安居客登录例子源码
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)
.子程序 _按钮1_被单击
.局部变量 token, 文本型
.局部变量 token2, 文本型
.局部变量 str, 文本型
.局部变量 ck, 文本型
.局部变量 数据, 文本型
数据 = 网页_访问S (“https://login.anjuke.com/login/iframeform?style=1&forms=11&third_parts=111&other_parts=111&history=aHR0cDovL3d3dy5hbmp1a2UuY29t&check_bind_phone=1&t=”, 0, , , ck, , , , )
token = 文本_取出中间文本 (数据, #常量3, #常量4)
调试输出 (token, ck)
token2 = 校验_取sha1 (到字节集 (token))
str = 编码_URL解码 (到文本 (网页_访问_对象 (“https://login.anjuke.com/login/submit?hidehead=0”, 1, “username=” + 编辑框1.内容 + “&password=” + 编辑框2.内容 + “&captcha=&style=1&third_parts=111&other_parts=111&forms=11&login_type=2&history=aHR0cDovL3d3dy5hbmp1a2UuY29t&check_bind_phone=&token=” + token + “&token2=” + token2 + “&multi_form=0”, ck, , , #常量2, )), 真)
调试输出 (str)
.子程序 __启动窗口_创建完毕
安居客 源码