做⼀个QQ⾃动发送语⾳的脚本（源码分享）
免费分享网站源码总收到⼀些“⼩”的语⾳信息，⽽且声⾳特别甜，特别好听，是不是觉得很激动，以为⼩想勾搭你了，其实不然那些只是营销⼩号发给你的录⾳，很可能对⽅就是抠脚⼤汉。
先来看看QQ⾃动发送语⾳效果啊：
通过上⾯动态图⽚可以看到我录制的语⾳只有3秒钟，但是发送的语⾳却可以播放10多秒钟（虽然显⽰时间是3秒钟），很明显两者不是同⼀个⾳频，这是因为我在录制完⾳频之后，⽤了⼀个预先准备好的10多秒⾳频替换录制的⾳频，然后才去发送出去，这种操作就是偷梁换柱了。
接下来我以雷电模拟器发送QQ录⾳为例，来讲解⼀下具体的操作过程。
⼀、到录⾳⽂件存放在哪⾥。
上图是⾳频⽂件路径的截图，⼤家可以根据这个⾳频的属性来查到对应的路径。我这⾥把路径写出来：
/sdcard/tencent/MobileQQ/767894495/ptt/201904/3/
需要注意⼏点：
①.截图中/storage/emulated/0⽤/sdcard替换了，这个我不只说过⼀遍了，还是有很多朋友不知道，其实⼤多数⼿机上遇到路径中有/0/，也是这样替换的。
②.767894495是我的测试QQ号，你在使⽤的时候必须要换成你⾃⼰当前操作的QQ号
③.路径中201904/3/是当前的⽇期，属于动态变化的内容，可以通过获取当前⽇期得到。
Dim datearr=split(date(),"/")
Dim yue=datearr(0)&datearr(1)
Dim ri=right(datearr(2),1)
TracePrint yue,ri
下⼀步是获取⾳频⽂件的名称：
这⾥⽤的⼭海插件的遍历⽂件命令，也就是把你写的路径⽂件夹⾥⾯的⽂件名称全部获取出来，然后选择最新的那个⽂件。
Import "shanhai.lua"
dim a=ShanHai.ScanPath(path)
Dim n=UBound(a)
TracePrint a(n)
得到的QQ录⾳⽂件是slk后缀的。
⼆、脚本的重点替换⾳频⽂件。
在上⼀步已经获取到录制⽂件了，接下来我们⽤预先准备好的⽂件替换它。使⽤到的命令是dir.Copy，关于这个命令的使⽤⽅法⾃⼰去查看命令介绍，另外⾃⼰要发送的⽂件也是slk格式，不是常见的MP3，⼀般我是⼿动⽤QQ录制⼀段，格式⼀样可以直接使⽤。（源代码中⽂件路径1就是我准备的⾳频⽂件）
这个脚本基本就是这些内容，唯⼀的难点可能就是获取最新的录制⾳频⽂件路径了。
源⽂件在下⾯我会提供，使⽤的时候不要⽆脑复制，不同设备、不同分辨率都不能直接⽤，你⾃⼰把每⼀⾏代码都看明⽩了再去使⽤。
这⾥⽤的是QQ发送录⾳功能⽽不是对讲功能，因为录⾳是⽣成⾳频和发送⾳频分离的，这样我们就可以在发送之前有时间替换⽂件，这点也⾮常重要。
源代码分享：
Import "shanhai.lua"
Dim datearr=split(date(),"/")
Dim yue=datearr(0)&datearr(1)&"/"
Dim ri=right(datearr(2),1)&"/"
TracePrint yue,ri
Dim path="/sdcard/tencent/MobileQQ/767894495/ptt/"&yue&ri
Dim ⽂件路径1="/sdcard/pictures/stream_2019033011330407.slk"
Tap 362, 1069
Delay 3000
Tap 362, 1069
Delay 1000
dim a=ShanHai.ScanPath(path)
Dim n=UBound(a)
TracePrint a(n)
Dim ⽂件路径2=path&a(n)
Delay 100
TracePrint dir.Copy(⽂件路径1,⽂件路径2) Delay 100
Tap 515,1242

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。