需要的可以看看
.版本 2
.支持库 eAPI
.支持库 iext
.支持库 iconv
.支持库 internet
.支持库 xplib
.支持库 spec
.支持库 HtmlView
.程序集 窗口程序集_启动窗口
.程序集变量 记住账号, 逻辑型
.程序集变量 当前版本, 整数型
.程序集变量 最新版本, 整数型
.程序集变量 最新版本更新内容, 文本型
.程序集变量 局部_记住账号, 文本型
.程序集变量 代码, 文本型
.程序集变量 i, 整数型
.程序集变量 数量, 整数型
.程序集变量 进程, 进程信息, , "0"
.子程序 __启动窗口_创建完毕
当前版本 = 到整数 (标签1.标题)
最新版本 = 到整数 (文本_取出中间文本 (到文本 (编码转换 (HTTP读文件 (“
http://diaodiao228.bokee.com/508282418.html”), #编码_UTF_8, #编码_GBK, )), “<title>”, “</title>”, ))
最新版本更新内容 = 文本_取出中间文本 (到文本 (编码转换 (HTTP读文件 (“
http://diaodiao228.bokee.com/508282418.html”), #编码_UTF_8, #编码_GBK, )), “,-”, “-”, )
.如果 (最新版本 > 当前版本)
标签6.标题 = 最新版本更新内容
写配置项 (取运行目录 () + “\更新.exe”, “下载更新”, “更新”, 标签6.标题)
载入 (提示, , 真)
销毁 ()
.否则
.如果结束
进程 = 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程), i)
.如果真 (i > 1)
.如果真 (进程 [i].进程名称 = 取执行文件名 ())
数量 = 数量 + 1
.如果真结束
.如果真结束
.计次循环尾 ()
.如果真 (数量 ≥ 2)
信息框 (“插件已经存在,,不能重复运行”, #警告图标, “__An哯状、提示”, )
结束 ()
.如果真结束
播放音乐 (#配音1, )
置外形图片 (#登陆, #黑色)
时钟1.时钟周期 = 1000
XP风格 (3)
.如果真 (文件是否存在 (取运行目录 () + “\配置.ini”))
图片框_选择框.图片 = #选择框选中
记住账号 = 真
局部_记住账号 = 到文本 (读入文件 (取运行目录 () + “\配置.ini”))
编辑框账号.内容 = 文本_取左边 (局部_记住账号, “|”)
编辑框密码.内容 = 文本_取右边 (局部_记住账号, “|”)
.如果真结束
.子程序 文本_取出中间文本, 文本型, 公开
.参数 欲取全文本, 文本型
.参数 前面文本, 文本型
.参数 后面文本, 文本型
.参数 起始搜寻位置, 整数型, 可空
.参数 是否不分大小写, 逻辑型, 可空
.局部变量 局_前面文本位置, 整数型
.局部变量 局_后面文本位置, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型
局_前面文本 = 子文本替换 (前面文本, “#引号”, , , , 真)
局_后面文本 = 子文本替换 (后面文本, “#引号”, , , , 真)
局_前面文本位置 = 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不分大小写)
.如果真 (局_前面文本位置 ≠ -1)
局_前面文本位置 = 局_前面文本位置 + 取文本长度 (局_前面文本)
局_后面文本位置 = 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不分大小写)
.如果真 (局_后面文本位置 ≠ -1)
返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 - 局_前面文本位置))
.如果真结束
.如果真结束
返回 (“”)
.子程序 __窗口注册_将被销毁
_启动窗口.可视 = 真
.子程序 _超级按钮1_被单击
打开指定网址 (“
https://jq.qq.com/?_wv=1027&k=IZMJTfpG”)
.子程序 _时钟1_周期事件
.局部变量 日期, 文本型
时间.标题 = 到文本 (取现行时间 ()) + “ ” + 日期
.子程序 _编辑框账号_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = 229)
信息框 (“暂时不支持汉字”, 0, “系统提示”, )
返回 (假)
.如果真结束
.子程序 _选择框1_被单击
播放音乐 (#我的配音, )
.子程序 _透明标签_忘记密码_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放音乐 (#我的配音, )
载入 (修改密码, , 假)
_启动窗口.可视 = 假
.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (位置 ≠ 3)
_启动窗口.发送信息 (161, 2, 0)
.否则
.如果结束
.子程序 _透明标签_标题_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (位置 ≠ 3)
_启动窗口.发送信息 (161, 2, 0)
.否则
.如果结束
.子程序 _编辑框账号_获得焦点
图片框_账号框.图片 = #编辑框有焦点
.子程序 _编辑框账号_失去焦点
图片框_账号框.图片 = #编辑框无焦点
.子程序 _图片框_账号框_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框账号.获取焦点 ()
.子程序 _编辑框密码_获得焦点
图片框_密码框.图片 = #编辑框有焦点
.子程序 _编辑框密码_失去焦点
图片框_密码框.图片 = #编辑框无焦点
.子程序 _图片框_密码框_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框密码.获取焦点 ()
.子程序 _透明标签_记住帐号_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放音乐 (#我的配音, )
图片框_选择框.获取焦点 ()
.如果真 (记住账号)
图片框_选择框.图片 = #选择框未选中
记住账号 = 假
返回 ()
.如果真结束
图片框_选择框.图片 = #选择框选中
记住账号 = 真
.子程序 _透明标签_去注册_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放音乐 (#我的配音, )
透明标签_去注册.获取焦点 ()
载入 (注册, , 假)
_启动窗口.可视 = 假
.子程序 _编辑框密码_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_图形按钮_登录_被单击 ()
.如果真结束
.子程序 是否保存密码
.子程序 以上可不修改
.子程序 _图形按钮_登录_被单击
.局部变量 获取账号, 文本型
.局部变量 分割帐号, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 登录状态, 整数型
播放音乐 (#我的配音, )
.判断开始 (编辑框账号.内容 = “”)
标签2.可视 = 真
标签2.标题 = “请你输入账号后再登录!”
播放音乐 (#配音2, )
延迟 (2000)
标签2.可视 = 假
编辑框账号.获取焦点 ()
返回 ()
.判断 (编辑框密码.内容 = “”)
标签3.可视 = 真
标签3.标题 = “请你输入密码后再登录!”
播放音乐 (#配音, )
延迟 (2000)
标签3.可视 = 假
编辑框密码.获取焦点 ()
返回 ()
.判断 (取文本长度 (编辑框账号.内容) < 8)
标签2.可视 = 真
标签2.标题 = “账号长度不符!”
延迟 (2000)
标签2.可视 = 假
编辑框账号.内容 = “”
编辑框账号.获取焦点 ()
返回 ()
.判断 (取文本长度 (编辑框密码.内容) < 6)
标签3.可视 = 真
标签3.标题 = “密码长度不符!”
延迟 (2000)
标签3.可视 = 假
编辑框密码.内容 = “”
编辑框密码.获取焦点 ()
返回 ()
.默认
.判断结束
获取账号 = 到文本 (读入文件 (取运行目录 () + “\Sea King.exe”))
分割帐号 = 分割文本 (获取账号, #换行符, )
.计次循环首 (取数组成员数 (分割帐号), i)
.如果 (编辑框密码.内容 = 文本_取出中间文本 (分割帐号 [i], “-”, “-”))
登录状态 = 1
跳出循环 ()
.否则
登录状态 = 2
跳出循环 ()
.如果结束
登录状态 = 3
.计次循环尾 ()
.判断开始 (登录状态 = 3)
标签2.可视 = 真
标签2.标题 = “你账号不存在!”
.判断 (登录状态 = 2)
标签3.可视 = 真
标签3.标题 = “你的密码不正确重新输入!”
播放音乐 (#配音3, )
延迟 (2000)
标签3.可视 = 假
编辑框密码.内容 = “”
编辑框密码.获取焦点 ()
.判断 (登录状态 = 1)
信息框 (“账号” + “【” + 编辑框账号.内容 + “】” + “密码” + “【” + 编辑框密码.内容 + “】” + “登录成功”, #信息图标, “__An哯状、提示”, )
载入 (功能, , 假)
_启动窗口.销毁 ()
.如果 (记住账号 = 真)
写到文件 (取运行目录 () + “\配置.ini”, 到字节集 (编辑框账号.内容 + “|” + 编辑框密码.内容))
.否则
删除文件 (取运行目录 () + “\配置.ini”)
.如果结束
返回 ()
.默认
信息框 (“登录失败”, #警告图标, “__An哯状、提示”, )
.判断结束
.子程序 _图形按钮_关闭_被单击
播放音乐 (#我的配音, )
结束 ()
.子程序 _显示_被单击
播放音乐 (#我的配音, )
编辑框密码.输入方式 = 0
显示.左边 = 592
显示.顶边 = 200
隐藏.左边 = 282
隐藏.顶边 = 196
.子程序 __启动窗口_首次激活
.如果真 (文件是否存在 (“背景音乐.ini”) = 假)
写配置项 (取运行目录 () + “\背景音乐.ini”, “音乐”, “开关”, “开”)
.如果真结束
音乐开关 = 读配置项 (取运行目录 () + “\背景音乐.ini”, “音乐”, “开关”, )
输出调试文本 (音乐开关)
.判断开始 (音乐开关 = “开”)
超文本浏览框1.地址 = “
https://www.kugou.com/song/#hash=1FF76836559910E431275447F08AFAE4&album_audio_id=312430730&fm_id=3&fm_name=中文DJ”
音乐.标题 = “停止音乐”
.判断 (音乐开关 = “关”)
超文本浏览框1.地址 = “
https://y.qq.com/n/ryqq/player”
音乐.标题 = “播放音乐”
.默认
.判断结束
.子程序 _音乐_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 开, 文本型
.局部变量 关, 文本型
.局部变量 播放内容, 文本型
音乐开关 = 读配置项 (取运行目录 () + “\背景音乐.ini”, “音乐”, “开关”, )
.判断开始 (音乐开关 = “开”)
超文本浏览框1.地址 = “
https://y.qq.com/n/ryqq/player”
音乐.标题 = “播放音乐”
写配置项 (取运行目录 () + “\背景音乐.ini”, “音乐”, “开关”, “关”)
.判断 (音乐开关 = “关”)
超文本浏览框1.地址 = “
https://www.kugou.com/song/#hash=1FF76836559910E431275447F08AFAE4&album_audio_id=312430730&fm_id=3&fm_name=中文DJ”
音乐.标题 = “停止音乐”
写配置项 (取运行目录 () + “\背景音乐.ini”, “音乐”, “开关”, “开”)
.默认
.判断结束
.子程序 _隐藏_被单击
播放音乐 (#我的配音, )
编辑框密码.输入方式 = 2
隐藏.左边 = 592
隐藏.顶边 = 200
显示.左边 = 282
显示.顶边 = 196
.子程序 _超级按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“
https://jq.qq.com/?_wv=1027&k=IZMJTfpG”)
.子程序 _编辑框账号_内容被改变
.局部变量 账号, 文本型
.子程序 _按钮1_被单击
.局部变量 获取账号, 文本型
.局部变量 分割帐号, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 登录状态, 整数型
播放音乐 (#我的配音, )
.判断开始 (编辑框账号.内容 = “”)
标签2.可视 = 真
标签2.标题 = “请你输入账号后再登录!”
播放音乐 (#配音2, )
延迟 (2000)
标签2.可视 = 假
编辑框账号.获取焦点 ()
返回 ()
.判断 (编辑框密码.内容 = “”)
标签3.可视 = 真
标签3.标题 = “请你输入密码后再登录!”
播放音乐 (#配音, )
延迟 (2000)
标签3.可视 = 假
编辑框密码.获取焦点 ()
返回 ()
.判断 (取文本长度 (编辑框账号.内容) < 8)
标签2.可视 = 真
标签2.标题 = “账号长度不符!”
延迟 (2000)
标签2.可视 = 假
编辑框账号.内容 = “”
编辑框账号.获取焦点 ()
返回 ()
.判断 (取文本长度 (编辑框密码.内容) < 6)
标签3.可视 = 真
标签3.标题 = “密码长度不符!”
延迟 (2000)
标签3.可视 = 假
编辑框密码.内容 = “”
编辑框密码.获取焦点 ()
返回 ()
.默认
.判断结束
获取账号 = 到文本 (读入文件 (取运行目录 () + “\Sea King.exe”))
分割帐号 = 分割文本 (获取账号, #换行符, )
.计次循环首 (取数组成员数 (分割帐号), i)
.如果 (编辑框密码.内容 = 文本_取出中间文本 (分割帐号 [i], “-”, “-”))
登录状态 = 1
跳出循环 ()
.否则
登录状态 = 2
跳出循环 ()
.如果结束
登录状态 = 3
.计次循环尾 ()
.判断开始 (登录状态 = 3)
标签2.可视 = 真
标签2.标题 = “你账号不存在!”
.判断 (登录状态 = 2)
标签3.可视 = 真
标签3.标题 = “你的密码不正确重新输入!”
播放音乐 (#配音3, )
延迟 (2000)
标签3.可视 = 假
编辑框密码.内容 = “”
编辑框密码.获取焦点 ()
.判断 (登录状态 = 1)
信息框 (“账号” + “【” + 编辑框账号.内容 + “】” + “密码” + “【” + 编辑框密码.内容 + “】” + “登录成功”, #信息图标, “__An哯状、提示”, )
载入 (功能, , 假)
_启动窗口.销毁 ()
.如果 (记住账号 = 真)
写到文件 (取运行目录 () + “\配置.txt”, 到字节集 (编辑框账号.内容 + “|” + 编辑框密码.内容))
.否则
删除文件 (取运行目录 () + “\配置.txt”)
.如果结束
返回 ()
.默认
信息框 (“登录失败”, #警告图标, “__An哯状、提示”, )
.判断结束
.子程序 _图片框_选择框_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放音乐 (#我的配音, )
图片框_选择框.获取焦点 ()
.如果真 (记住账号)
图片框_选择框.图片 = #选择框未选中
记住账号 = 假
返回 ()
.如果真结束
图片框_选择框.图片 = #选择框选中
记住账号 = 真
.子程序 _时间_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
信息框 (“账号【” + 文本_取左边 (局部_记住账号, “|”) + “】” + “密码【” + 文本_取右边 (局部_记住账号, “|”) + “】” + “找回密码成功”, #信息图标, “__An哯状、提示”, )