精易论坛

标题: VX2.9.0.123发送文件及视频call 有网友要的现在发上来一起学习 [打印本页]

作者: cf2006a 时间: 2020-5-19 12:48
标题: VX2.9.0.123发送文件及视频call 有网友要的现在发上来一起学习
.版本 2
.支持库 spec

.子程序发送文件, , , 发送文件
.参数 VXID, 字节集
.参数文件路径, 字节集
.局部变量 pushadd, 整数型, , , 4
.局部变量 Calladd0, 整数型, , , 8
.局部变量 Calladd1, 整数型, , , c
.局部变量 Calladd2, 整数型, , , 10
.局部变量 Calladd3, 整数型, , , 14
.局部变量 Wxid, 整数型, , , 18
.局部变量 Wxidp, 整数型, , , 1c
.局部变量 Filep, 整数型, , , 20
.局部变量 Filepp, 整数型, , , 24
.局部变量 Buff, 整数型, , , 28

.如果真 (VXID ＝ {  } 或文件路径＝ {  })
返回 ()
.如果真结束
pushadd ＝ WeChatWin_基址＋进制_任意到十 (“14A58C8”)
Calladd0 ＝ WeChatWin_基址＋进制_任意到十 (“5084E0”)  ' 1
Calladd1 ＝ WeChatWin_基址＋进制_任意到十 (“508520”)  ' 2-3
Calladd2 ＝ WeChatWin_基址＋进制_任意到十 (“55130”)  ' 4
Calladd3 ＝ WeChatWin_基址＋进制_任意到十 (“27D1E0”)  ' 5
Wxid ＝申请内存 (1024, 真)
写到内存 (VXID, Wxid, 取字节集长度 (VXID))
Wxidp ＝申请内存 (1024, 真)
写到内存 (Wxid, Wxidp, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (VXID)), Wxidp ＋ 4, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (VXID)), Wxidp ＋ 8, 4)
Filep ＝申请内存 (1024, 真)
写到内存 (文件路径, Filep, 取字节集长度 (文件路径))
Filepp ＝申请内存 (1024, 真)
写到内存 (Filep, Filepp, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (文件路径)), Filepp ＋ 4, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (文件路径)), Filepp ＋ 8, 4)
Buff ＝申请内存 (1116, 真)
置入代码 ({ 96, 131, 236, 20, 137, 225, 139, 69, 216, 80, 255, 85, 244, 106, 0, 131, 236, 20, 137, 225, 106, 255, 255, 117, 252, 255, 85, 248, 131, 236, 20, 137, 225, 139, 93, 220, 83, 255, 85, 244, 131, 236, 20, 137, 225, 255, 117, 228, 255, 85, 244, 139, 69, 216, 80, 255, 85, 240, 137, 193, 255, 85, 236, 97 })
释放内存 (Wxid)
释放内存 (Wxidp)
释放内存 (Filep)
释放内存 (Filepp)
释放内存 (Buff)

作者: 杨明煜 时间: 2020-5-19 20:23
谢谢，真好.................

作者: kevines 时间: 2020-5-20 15:35
谢谢，不错的东西

作者: 1aa82e 时间: 2020-5-20 16:58
不是说有视频吗？

作者: 软件定制开发 时间: 2020-5-20 17:19
感谢分享

作者: rainbird 时间: 2020-5-20 20:05
不错不错感谢分享

作者: xtavoxing 时间: 2020-5-21 16:27
有自动下载图片的教学案例吗?

作者: 天涯阿肯 时间: 2020-5-23 10:20

xtavoxing 发表于 2020-5-21 16:27
有自动下载图片的教学案例吗?

同问，自动接收VX好友或VX群里的图片并下载保存

作者: zzc168 时间: 2020-7-27 13:48
6666668888

作者: 晨晨88 时间: 2020-8-20 16:36
大哥请问有无获取群成员的call?

作者: 元寅虎 时间: 2020-9-2 14:25
大佬特征码能发下吗

作者: 春林 时间: 2020-9-3 15:36
发xml消息的有吗

欢迎光临精易论坛 (https://125.confly.eu.org/)