360官方账号POST登陆易语言源码

.版本 2
.支持库 dp1
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 cookies360, 文本型
.程序集变量 是否需要, 逻辑型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

登录360 ()

.子程序 登录360
.局部变量 局_地址, 文本型
.局部变量 局_返回, 文本型
.局部变量 登录结果, 文本型
.局部变量 password, 文本型
.局部变量 token, 文本型
.局部变量 提交数据, 文本型
.局部变量 cookies, 文本型

网页_清除Cookie (“360.cn”)
password ＝ 取数据摘要 (到字节集 (编辑框2.内容))
是否需要 ＝ 检测验证码360 ()
.如果真 (是否需要 ＝ 真)
    程序_延时 (5000)
.如果真结束
局_返回 ＝ 到文本 (网页_访问_对象 (“https://login.360.cn/?func=jQuery1113001242242593506121_” ＋ 时间_取现行时间戳 () ＋ “&src=pcw_wan&from=pcw_wan&charset=utf-8&requestScema=https&o=sso&m=getToken&userName=” ＋ 编辑框1.内容 ＋ “&_=” ＋ 时间_取现行时间戳 (), , , cookies360, , #协议d, , , ))
token ＝ 文本_取出中间文本 (局_返回, #引号 ＋ “token” ＋ #引号 ＋ “:” ＋ #引号, #引号)
输出调试文本 (局_返回)
输出调试文本 (cookies)
输出调试文本 (token)
提交数据 ＝ “src=pcw_wan&from=pcw_wan&charset=utf-8&requestScema=https&o=sso&m=login&lm=0&captFlag=1&rtype=data&validatelm=0&isKeepAlive=1&captchaApp=i360&userName=” ＋ 编辑框1.内容 ＋ “&smDeviceId=&type=normal&account=” ＋ 编辑框1.内容 ＋ “&password=” ＋ password ＋ “&captcha=” ＋ 编辑框3.内容 ＋ “&token=” ＋ token ＋ “&proxy=http%3A%2F%2Fwan.360.cn%2Fpsp_jump.html&callback=QiUserJsonp430388184&func=QiUserJsonp430388184”
局_返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://login.360.cn/”, 1, 提交数据, cookies360, , #协议e, , , , , , , , , , , , , )), 真)
输出调试文本 (局_返回)
输出调试文本 (cookies)
.如果 (寻找文本 (局_返回, “&errno=0&errmsg=&”, , 假) ≠ -1)
    登录结果 ＝ “登录成功”
.否则
    登录结果 ＝ “登录失败”
.如果结束


.子程序 检测验证码360, 逻辑型
.局部变量 局_地址, 文本型
.局部变量 局_返回, 文本型
.局部变量 验证码, 文本型
.局部变量 bin, 字节集

局_地址 ＝ “http://login.360.cn/?callback=jQuery1113001242242593506121_” ＋ 时间_取现行时间戳 () ＋ “&src=pcw_wan&from=pcw_wan&charset=utf-8&requestScema=http&o=sso&m=checkNeedCaptcha&account=” ＋ 编辑框1.内容 ＋ “&captchaApp=i360&_=” ＋ 时间_取现行时间戳 ()
网页_访问 (“https://i.360.cn/login/”, , , , cookies360, #协议a)
输出调试文本 (“cookie1:” ＋ cookies360)
局_返回 ＝ 编码_usc2到ansi (到文本 (网页_访问 (局_地址, , , cookies360, , #协议a)))
输出调试文本 (局_返回)
.如果 (寻找文本 (局_返回, “captchaFlag” ＋ #引号 ＋ “:true”, , 假) ≠ -1)
    局_返回 ＝ 编码_usc2到ansi (到文本 (网页_访问 (“http://i.360.cn/QuCapt/getQuCaptUrl?callback=jQuery112105170541645846577_” ＋ 时间_取现行时间戳 () ＋ “&src=pcw_wan&from=pcw_wan&charset=utf-8&requestScema=http&captchaScene=login&captchaApp=i360&_=” ＋ 时间_取现行时间戳 (), , , cookies360, , #协议b)))
    输出调试文本 (局_返回)
    输出调试文本 (“cookie2:” ＋ cookies360)
    验证码 ＝ 文本_取出中间文本 (局_返回, #引号 ＋ “captchaUrl” ＋ #引号 ＋ “:” ＋ #引号, #引号)
    输出调试文本 (验证码)
    bin ＝ 网页_访问 (验证码 ＋ “&_=” ＋ 时间_取现行时间戳 (), , , cookies360, cookies360, #协议c, , , )
    输出调试文本 (“cookie3:” ＋ cookies360)
    图片_转换 (bin, 1, , bin)
    图片框1.图片 ＝ bin
    延迟 (1000)
    返回 (真)
.否则
    返回 (假)
.如果结束

@sha188188