哄孩神器 睡前故事
软件截图：
使用说明：
软件用的是微软自带的语音包，在软件压缩包当中附带得有。
我在网上查阅过，都说XP以后都已经支持了，但是不知道你们用的系统是否被删除过相关的语音包，所以附带了微软的。
如何确定自己是否已经安装过语音包？
暂停键旁边有一个下拉框，如果下拉框是空的，那么就说明你没有安装过，需要安装后才能显示，同时软件也会检测并提醒！
由于之前发表一次说我没有相关原创的信息，这次补上！下面是开发截图和版权截图，如果还不够，那么我只剩下开源这样才行了！反正这个软件也不是什么很难写的东西，开源也行！如果大家喜欢的话！
开发截图
备注：如果大家有更好的想法或语音API，请私信我！或者回帖交流！最后我也不知道过不过审核，干脆直接把源代码贴出来吧！
.版本 2
.支持库 RegEx
.支持库 ESpeechEngine
.支持库 internet
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 Json, 类_json
.程序集变量 zz, 正则表达式
.程序集变量 搜索, 搜索结果, , "0"
.程序集变量 jd, 机读文本
.程序集变量 d, 文本型, , "0"
.程序集变量 zt, 标签
.子程序 __启动窗口_创建完毕
页数 ＝ “1”
读取数据 (页数)
初始化朗诵 ()
置托盘图标 (#图标, “睡前故事”)
.子程序 读取数据
.参数 页数, 文本型
.局部变量 返回数据, 文本型
.局部变量 临时变量, 文本型
临时变量 ＝ 子文本替换 (#POST数据, “【页数】”, 页数, , , 真)
返回数据 ＝ 到文本 (HTTP读文件 (临时变量))
返回数据 ＝ 子文本替换 (返回数据, “\/”, “/”, , , 真)
处理数据 (返回数据)
.子程序 下一页
.参数 传递页数, 文本型
页数 ＝ 到文本 (到整数 (传递页数) ＋ 10)
.子程序 处理数据
.参数 传输数据, 文本型
.局部变量 title, 文本型, , "0"
.局部变量 img, 文本型, , "0"
.局部变量 url, 文本型, , "0"
.局部变量 description, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 索引, 整数型
Json.解析 (传输数据)
.计次循环首 (Json.成员数 (), i)
加入成员 (title, Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].title”))
加入成员 (img, Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].img”))
加入成员 (url, Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].url”))
加入成员 (description, Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].description”))
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, title [i])
超级列表框1.置标题 (索引, 2, description [i])
超级列表框1.置标题 (索引, 3, img [i])
超级列表框1.置标题 (索引, 4, url [i])
.计次循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (超级列表框1.现行选中项 ≠ -1)
标签2.标题 ＝ “《” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “》”
标签4.标题 ＝ “ ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
图片框1.图片 ＝ HTTP读文件 (超级列表框1.取标题 (超级列表框1.现行选中项, 3))
获取故事 (超级列表框1.取标题 (超级列表框1.现行选中项, 4))
.否则
信息框 (“无法获取数据”, 0, “请检查网络通信是否正常？”, )
.如果结束
.子程序 获取故事
.参数 url, 文本型
.局部变量 临时数据, 文本型
.局部变量 i, 整数型
临时数据 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (url)))
zz.创建 (#正则方法, )
搜索 ＝ zz.搜索全部 (临时数据)
.判断开始 (取数组成员数 (搜索) ＞ 0)
编辑框1.内容 ＝ 网页_取文本_dom (搜索 [1].取匹配文本 (临时数据, ))
.默认
.判断结束
.子程序 _滑块条2_位置被改变
滑块条2.选择长度 ＝ 滑块条2.位置
标签3.标题 ＝ “音量：” ＋ 到文本 (滑块条2.位置)
jd.设置声音大小 (滑块条2.位置)
.子程序 _滑块条1_位置被改变
标签1.标题 ＝ “语速：” ＋ 到文本 (滑块条1.位置)
jd.设置语速 (滑块条1.位置)
.子程序 _超级列表框1_右键单击表项
弹出菜单 (功能, , )
.子程序 _获取新数据_被选择
下一页 (页数)
读取数据 (页数)
.子程序 初始化朗诵
.局部变量 i, 整数型
d ＝ jd.列举语音库 ()
.如果 (取数组成员数 (d) ＞ 0)
组合框1.刷新显示 ()
.计次循环首 (取数组成员数 (d), i)
组合框1.插入项目 (i － 1, d [i], )
.计次循环尾 ()
组合框1.现行选中项 ＝ 0
jd.设置语音库 (组合框1.被选择文本)
jd.设置语速 (滑块条1.位置)
jd.设置声音大小 (滑块条2.位置)
.否则
信息框 (“请先安装压缩包中的语言包”, 0, “语言包未安装”, )
.如果结束
.子程序 _按钮2_被单击
.如果 (按钮2.标题 ＝ “朗诵”)
按钮2.标题 ＝ “关闭”
.如果真 (编辑框1.内容 ≠ “”)
jd.文本到语音 (0, 编辑框1.内容, , )
.如果真结束
.否则
按钮2.标题 ＝ “朗诵”
jd.停止发音 ()
.如果结束
.子程序 _按钮3_被单击
.如果 (按钮3.标题 ＝ “暂停”)
按钮3.标题 ＝ “恢复”
jd.暂停发音 ()
.否则
按钮3.标题 ＝ “暂停”
jd.恢复发音 ()
.如果结束
.子程序 _超级列表框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #F5键)
_获取新数据_被选择 ()
.如果真结束
.子程序 _版权所有_被选择
信息框 (“软件免费试用 版权所有 Mr.Liu ” ＋ #换行符 ＋ #换行符 ＋ “52破解 作者：djlyr”, 0, “版权信息”, )
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操作类型 ＝ #单击右键)
弹出菜单 (版权, , )
.如果真结束
.版本 2
.全局变量 页数, 文本型
.版本 2
.常量 POST数据, "<文本长度: 94>"
具体内容：https://dynamic.qbaobei.com/dynamic.php?s=/qbaobeimobile/cate_position/cate/1414/star/【页数】
.常量 正则方法, "<文本长度: 36>"
具体内容：<p class="introTit">([\s\S]*?)</div>
如果还缺少东西，麻烦讲清楚具体缺少什么？因为之前的删帖理由我真没搞清楚！也查阅了相关板块说明，也没有具体跟删帖理由相关的！
链接: https://pan.baidu.com/s/1NV9s_bIHGSkdxDmmG2l_CQ 提取码: 6vr8
[复制链接]
发表于 2020-7-23 03:32
|
发表于 2020-7-28 16:44
