vx 最新版2.9.5.56发图片和文件消息

春林

之前发了 发文本消息 看见网友们回复 想要发图片和发文件 就直接一起分享给大家吧 本人不是什么大牛 也只是菜鸟一个 希望大牛勿喷 谢谢.版本 2
.支持库 spec

.子程序 发送图片消息, , , 发送图片
.参数 VID, 字节集
.参数 image, 字节集
.局部变量 Calladd, 整数型, , , 4
.局部变量 Ediadd, 整数型, , , 8
.局部变量 Wxid, 整数型, , , c
.局部变量 Wxidp, 整数型, , , 10
.局部变量 lmg, 整数型, , , 14
.局部变量 lmgp, 整数型, , , 18
.局部变量 Buff, 整数型, , , 1c

.如果真 (VID ＝ {  } 或 image ＝ {  })
    返回 ()
.如果真结束
Calladd ＝ 基址 ＋ 十六进制 (“367350”)
Ediadd ＝ 基址 ＋ 十六进制 (“1774598”)
Wxid ＝ 申请内存 (1024, 真)
写到内存 (VID, Wxid, 取字节集长度 (VID))
Wxidp ＝ 申请内存 (1024, 真)
写到内存 (Wxid, Wxidp, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (VID)), Wxidp ＋ 4, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (VID)), Wxidp ＋ 8, 4)
lmg ＝ 申请内存 (8640, 真)
写到内存 (image, lmg, 取字节集长度 (image))
lmgp ＝ 申请内存 (1024, 真)
写到内存 (lmg, lmgp, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (image)), lmgp ＋ 4, 4)
写到内存 (取文本长度 (编码_Unicode到Ansi (image)), lmgp ＋ 8, 4)
Buff ＝ 申请内存 (1024, 真)
置入代码 ({ 96, 106, 0, 106, 0, 139, 117, 232, 86, 255, 117, 240, 139, 125, 248, 137, 249, 139, 117, 228, 86, 255, 85, 252, 97 })
释放内存 (Wxid)
释放内存 (Wxidp)
释放内存 (lmg)
释放内存 (lmgp)
释放内存 (Buff)

.版本 2
.支持库 spec

.子程序 发送文件消息, , , 发送文件
.参数 VXid, 字节集
.参数 文件路径, 字节集
.局部变量 pushadd, 整数型, , , 4
.局部变量 CalladdA, 整数型, , , 8
.局部变量 CalladdB, 整数型, , , c
.局部变量 CalladdC, 整数型, , , 10
.局部变量 CalladdD, 整数型, , , 14
.局部变量 Wxid, 整数型, , , 18
.局部变量 Wxidp, 整数型, , , 1c
.局部变量 Filep, 整数型, , , 20
.局部变量 Filepp, 整数型, , , 24
.局部变量 Buff, 整数型, , , 28

.如果真 (VXid ＝ {  } 或 文件路径 ＝ {  })
    返回 ()
.如果真结束


pushadd ＝ 基址 ＋ 十六进制 (“1548AA4”)
CalladdA ＝ 基址 ＋ 十六进制 (“52D5D0”)
CalladdB ＝ 基址 ＋ 十六进制 (“52D610”)
CalladdC ＝ 基址 ＋ 十六进制 (“5A400”)
CalladdD ＝ 基址 ＋ 十六进制 (“298320”)
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 ＝ 申请内存 (1320, 真)
置入代码 ({ 96, 106, 0, 131, 236, 20, 137, 225, 104, 255, 0, 0, 0, 255, 117, 252, 255, 85, 248, 131, 236, 20, 137, 225, 139, 69, 216, 80, 255, 85, 244, 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)

凉忆亦凉心

来看看

wy1987wy119

不错{:3_48:}{:3_48:}{:3_48:}

墨轩

支持 感谢分享

doudou4631

支持一下看看

lijuntao

能否发个完整版本的易语言源码

xiaoyu325

666666666666666

异域之巅

酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷

xfriend360

看看啥东西

xuewuzhi123

下载学习学习

HeiSir

看下，什么高科技。