QQ在对讲模式下发语音

之前已经发过一篇在录音模式下的发送语音的文章《》,这一期是在对讲模式下的。

其实原理完全一样,也是替换文件的方式。

QQ在对讲模式下发语音

如果你没看过之前的那篇文章,建议先看看。

说几点修改的地方:

1、修复一处bug,日期中只能是10号以前,超过10号报错
Dim ri=cstr(datearr(2)*1)&”/”,这是修复后的代码
2、用touchdown 按下命令,代替点击,所有的对讲模式都是一样。

3、加了一个5秒钟的延迟,考虑到我测试的电脑配置比较低。

4、去掉其他多余的延迟,全部都是直接运行,不加延迟。

经测试,生成音频缓存文件也是可以直接用预先准备的音频替换。当替换完成后,立刻松开对讲按钮,即可发送语音文件给对方。

目前我测试是可用,其他app,大家按照这个原理测试一下。

代码如下

Import “shanhai.lua”
Dim datearr=split(date(),”/”)
Dim yue=datearr(0)&datearr(1)&”/”
Dim ri=cstr(datearr(2)*1)&”/”
TracePrint yue,ri
Dim 文件路径3
Dim path=”/sdcard/tencent/MobileQQ/767894495/ptt/”&yue&ri
Dim 文件路径1=path&”stream_2019033011330407.slk”
Dim 文件路径2=”/sdcard/pictures/stream_2019033011330407.slk”
TracePrint dir.Copy(文件路径2,文件路径1)
TouchDown 362, 1069,1
Delay 5000
dim a=ShanHai.ScanPath(path)
Dim n=UBound(a)
TracePrint a(n)
文件路径3=path&a(n)
TracePrint 文件路径3
Dir.Rename 文件路径1, 文件路径3
TouchUp 1

原文始发于微信公众号(3分钟学堂):

除特别注明外,本站文章均为原创,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/825.html
Pumpkin  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注