VX2.9.0.123发送文件及视频call 有网友要的现在发上来一起学习

cf2006a · 发表于 2020-5-19 12:48:25

.版本 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)