彩虹秒赞网登陆易语言源码

彩虹秒赞网登陆易语言源码

@你爸爸来啦

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 Cookies, 文本型

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

子_秒赞登录 ()

.子程序 子_秒赞登录, 逻辑型
.局部变量 临时_文本返回, 文本型
.局部变量 临时_请求Cookies, 文本型
.局部变量 临时_请求sec_defend, 文本型
.局部变量 临时_响应Cookies, 文本型
.局部变量 临时, 文本型
.局部变量 临时_账号, 文本型
.局部变量 临时_密码, 文本型

V8调试初始化 (取运行目录 () ＋ 取执行文件名 ())
临时_账号 ＝ “”
临时_密码 ＝ “”
临时_文本返回 ＝ 网页_访问S (“http://mn.77kp.cn/index.php?mod=login”, 0, , , 临时_请求Cookies, , )
临时_请求sec_defend ＝ 文本_取出中间文本 (临时_文本返回, “setCookie('sec_defend',”, “);setCookie”)
临时_请求sec_defend ＝ V8JS调试 (子文本替换 (#js, “[代码]”, 删全部空 (临时_请求sec_defend), , , 真), “a”, )
临时_请求Cookies ＝ 临时_请求Cookies ＋ “;sec_defend=” ＋ 临时_请求sec_defend
临时_文本返回 ＝ 网页_访问S (“http://mn.77kp.cn/index.php?my=login&user=” ＋ 编码_URL编码 (临时_账号, , 真) ＋ “&pass=” ＋ 临时_密码 ＋ “&ctime=2592000”, 0, , 临时_请求Cookies, 临时_响应Cookies, , , 真, , )
临时_文本返回 ＝ 网页_访问S (“http://mn.77kp.cn/index.php?mod=user”, 0, , 临时_响应Cookies, , )
.如果 (寻找文本 (临时_文本返回, 临时_账号, , 假) ≠ -1)
    调试输出 (“登录成功”)
    Cookies ＝ 临时_响应Cookies
    返回 (真)
.否则
    调试输出 (“登录失败”)
    返回 (假)
.如果结束

' http://api.odata.cc/qq/getsid/login.php?do=getqrpic&r=0.5394460377980126  获取二维码 添加QQ
' http://api.odata.cc/qq/getsid/login.php?do=qrlogin&qrsig=geUwYdXUR468yfUna3rv9PfW*3B7y7o5Gb5zd7pXik18*EAhmSqySns7VyXAHNED&r=0.5730057652960854 校验二维码是否有效
V8调试销毁 ()
结束 ()