为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 易语言例程 正文

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

三叶资源网 2020-10-14 14:47:37 易语言例程 1618 ℃ 1 评论
.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行


返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 发送图片消息, , , 发送图片
.参数 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)

.子程序 发送文件消息, , , 发送文件
.参数 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)

@春林

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有1位网友发表了看法:

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
sqllite易语言通讯整人小工具加载皮肤窗口特效阿里系最新地址库HttpWatch大漠插件零基础学注册机采集私信HttpProxyjson是用来干嘛的复制窗口群排名超级编辑框应用多线程例程注册TCP服务器MP3文件头信息AU商城
最新评论