免下载的语音库33种语音读文本模块

支持朗读英文，中文，有卡通声音，和男女声音。

喜欢的直接下载吧，加在软件启动事件里一条朗读版权还是很牛的。

.子程序 语音读文本, , 公开
.参数 要读的文本, 文本型
.参数 播音员名称, 文本型, 可空, 播音员id，在这里选择，右击审查网页元素，speakerno后就是i
.参数 播音速度, 整数型, 可空, 0：正常速度，100 200对应1.2和1.4倍加速，-100 -200对应1.2和1.4倍减速
.参数 播音音量, 整数型, 可空, 0：正常音量，-20到20由最低到最高
.局部变量 str, 文本型
.局部变量 exchange, 文本型
.局部变量 body, 文本型
.局部变量 req, 文本型
.局部变量 js, 脚本类
.局部变量 md5, 文本型
.局部变量 json, 文本型
.局部变量 ts, 文本型
.局部变量 sign, 文本型

.如果真 (播音员名称 ＝ “”)
播音员名称 ＝ “65090”
.如果真结束
exchange ＝ 编码_Utf8到Ansi (网页访问对象 (“http://www.peiyinge.com/web-server/exchange”, 1, , , , , , , , , , , , , ))
js.执行 (#常量_js)
md5 ＝ js.运行 (“md5”, 要读的文本, , , , )
json ＝ 子文本替换 (“{^channel^: ^40000001^,^synth_text_hash_code^:^” ＋ md5 ＋ “^}”, “^”, #引号, , , 真)
req ＝ js.运行 (“getReq”, json, exchange, , , )
body ＝ 子文本替换 (“{^req^:^” ＋ req ＋ “^}”, “^”, #引号, , , 真)
str ＝ 编码_Utf8到Ansi (网页访问对象 (“……………………”, 1, body, , , #常量_header, , , , , , , , , ))
body ＝ 文本_取出中间文本 (str, 子文本替换 (“body^:^”, “^”, #引号, , , 真), #引号, , )
body ＝ js.运行 (“getSign”, body, exchange, , , )
ts ＝ 文本_取出中间文本 (body, 子文本替换 (“time_stamp^:^”, “^”, #引号, , , 真), #引号, , )
sign ＝ 文本_取出中间文本 (body, 子文本替换 (“sign_text^:^”, “^”, #引号, , , 真), #引号, , )
写到文件 (“1.mp3”, 网页访问对象 (“http://proxy.peiyinge.com:17063/synth?ts=” ＋ ts ＋ “&sign=” ＋ sign ＋ “&vid=” ＋ 播音员名称 ＋ “&volume=” ＋ 到文本 (播音音量) ＋ “&speed=” ＋ 到文本 (播音速度) ＋ “&content=” ＋ 编码_URL编码 (要读的文本, 真, 真), , , , , , , , , , , , , , ))
播放MP3 (1, “1.mp3”)