/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
儿童睡前故事电脑版是一款热门的生活工具软件,功能齐全,操作简单流畅,具备良好的用户体验。本站提供儿童睡前故事精选电脑版下载。宝宝的专属睡前故事,享受属于您的亲子时光。
软件用的是微软自带的语音包,在软件压缩包当中附带得有。
在网上查阅过,都说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>