明朝时代页游脱机易语言源码

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 cookies, 文本型

.子程序 _按钮1_被单击
.局部变量 返回数据, 文本型
.局部变量 提取链接, 文本型
.局部变量 SESSION, 文本型
.局部变量 systime, 文本型

返回数据 ＝ AMF.HTTP读文本 (“http://web.4399.com/webStatic/?_a=getSystime&jsoncallback=jQuery1720000015559780836227333_1568781305729&_=” ＋ 时间_取现行时间戳 (), , )
调试输出 (返回数据)
systime ＝ 文本_取出中间文本 (返回数据, #常量1, #常量2, , )
调试输出 (systime)
返回数据 ＝ 编码_usc2到ansi (网页_访问_对象u (“http://web.4399.com/user/?_c=login&user=” ＋ 编辑框_账号.内容 ＋ “&pwd=” ＋ 密码加密 () ＋ “&code=” ＋ 编辑框_验证码.内容 ＋ “&jsoncallback=jQuery1720000015559780836227333_1568781305728&systime=” ＋ 编码_URL编码 (systime, 真, 真) ＋ “&_=” ＋ 时间_取现行时间戳 (), , , cookies, , , , , , , , , , , , , ))
调试输出 (返回数据)
.判断开始 (寻找文本 (返回数据, #登录状态, , 假) ＝ -1)
    调试输出 (“登录失败！”)
    返回 ()
.默认
    调试输出 (“登录成功”)
.判断结束
返回数据 ＝ 网页_访问_对象u (“http://web.4399.com/stat/togame.php?target=mcsd&server_id=S328”, , , cookies, , , , , , , , , , , , , )
' 置剪辑板文本 (返回数据)
' 输出调试文本 (返回数据)
正则.创建 (#提取链接, 返回数据, , , , )
.判断开始 (正则.取子匹配数量 () ≠ 0)
    提取链接 ＝ 正则.取子匹配文本 (1, 1, )
    输出调试文本 (提取链接)
.默认
    输出调试文本 (“正则提取链接失败！”)
.判断结束
返回数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (提取链接, , , , , , , , , , , , , , , , ))
' 返回数据 ＝ AMF.HTTP读文本 (提取链接)
' 输出调试文本 (返回数据)
' so.addVariable("WEB_SESSION", "08bed887a9e49cc7b2da29c5d9666f79");
SESSION ＝ 文本_取出中间文本 (返回数据, #SESSION左边, #SESSION右边, , )
' 输出调试文本 (SESSION)
AMF.初始化连接 (“http://s328.mingchaoonline.com/ming2/gateway.php”, , , , )
AMF.设置Cookie (“http://s328.mingchaoonline.com/”, “m2_session”, SESSION)
载入 (窗口1, , 假)
_启动窗口.可视 ＝ 假

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

显示验证码图片 ()

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

显示验证码图片 ()

.子程序 显示验证码图片
.局部变量 图片字节集, 字节集
.局部变量 url, 文本型

url ＝ 到文本 (网页_访问_对象 (“http://web.4399.com/user/?_c=login&_a=checkUser&user=” ＋ 编辑框_账号.内容 ＋ “&jsoncallback=jQuery17206695839618837203_1568858631083&_=” ＋ 时间_取现行时间戳 (), , , cookies, , , , , , , , , , , , , ))
url ＝ 子文本替换 (文本_取出中间文本 (url, #data右边, #常量3, , ), “”, “”, , , 真)
调试输出 (url)
图片框1.图片 ＝ 网页_访问_对象 (url, , , cookies, , , , , , , , , , , , , )

.子程序 密码加密, 文本型
.局部变量 返回数据, 文本型
.局部变量 Key, 文本型
.局部变量 脚本组件, 类_脚本组件

返回数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://web.4399.com/user/?_c=login&_a=checkUser&user=” ＋ 编辑框_账号.内容 ＋ “&jsoncallback=jQuery17208286160802268849_1568782462167&_=” ＋ 时间_取现行时间戳 (真), , , , , , , , , , , , , , , , ))
' 输出调试文本 (返回数据)
调试输出 (返回数据)
Key ＝ 文本_取出中间文本 (返回数据, #data左边, #data右边, , )
' 输出调试文本 (Key)
调试输出 (Key)
脚本组件.运行 (“Jscript”, , , , , , )
脚本组件.属性_超时 (-1)
脚本组件.执行 (#密码加密)
返回 (脚本组件.运行 (“encode_4399”, 编辑框_密码.内容, Key))

@Lunction