马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 jcrain123 于 2019-11-22 20:02 编辑
[按键精灵] 纯文本查看 复制代码 Import "rmyzm.luae"
Call rmyzm.SoudInit(语音路径) //此函数只需要脚本开头调用一次
Dim ret
Dim 待替换语音路径="..."
ret= rmyzm.SoudExe(待替换语音路径,100,100,5)
If ret Then
TracePrint "替换成功"
Else
TracePrint "替换失败"
End If
/* 仔细阅读以下说明
0. SoudFind是语音替换的关键,只需要找出路径,后面就不需要再调用它了[调用时,启动应用到发语音的界面,设置按压坐标]
SoudFind会返回多个路径,需要从里面筛选出语音编码格式的路径
例:
安卓----SoudFind返回的语音路径是 "/sdcard/test/a.mp3",语音路径="/sdcard/test/"
IOS----SoudFind返回的语音路径是 "/private/var/mobile/Containers/Data/Application/xxx/.../a.mp3"
语音路径=rmyzm.T_IOSGetAppDataPath()&"/.../"
路径说明:像QQ这种类型的APP,路径中间是可变的,比如"/sdcard/tencent/../QQ号/日期/语音文件",
那么我们的路径设置到不会变化的那一部分既可,"/sdcard/tencent/../"
调用 Call rmyzm.SoudInit(语音路径) ,之后就可以进行语音替换了rmyzm.SoudExe
1. 有的APP会检测语音文件编码,如果不统一一样的编码的话 会造成语音发不出去
因此尽量使用该APP录制的语音文件进行替换,有的APP也可以直接使用mp3等格式替换
2. 转格式需要注意:1.格式要相同 2.采样频率要一致
3. APP检测发送相同语音 这种没有治基本放弃使用替换
4. 格式转换工具>格式转换工厂[百度很多]
5. 语音替换部分平台可能会封号,自行测试
*/
话不多说,自行测试,不懂的可以问我
==========================
| 
发表于 2019-11-22 17:18:53
发表于 2019-11-22 18:05:08
