易语⾔通过模拟的⽅式实现对的视频图⽚消息发送的代码
后台视频图⽚消息发送的代码
此功能需要加载精易模块5.6
.版本 2
.⽀持库 spec
.⽀持库 internet
.程序集程序集1
.⼦程序 _启动⼦程序, 整数型, , 请在本⼦程序中放置动态链接库初始化代码
_临时⼦程序 ()
返回 (0)
.⼦程序 _临时⼦程序
.
局部变量 handle, 整数型, , "0"
.局部变量 i, 整数型
' 本名称⼦程序⽤作测试程序⽤，仅在开发及调试环境中有效，编译发布程序前将被系统⾃动清空，请将所有⽤作测试的临时代码放在本⼦程序中。注意不要修改本⼦程序的名称、参数及返回值类型。窗⼝_模糊遍历窗⼝ (, “ChatWnd”, , handle)
' 请打开不要合并
.计次循环⾸ (取数组成员数 (handle), i)
调试输出 (窗⼝_取标题 (handle [i]))
sendfile (窗⼝_取标题 (handle [i]), “C:\Documents and Settings\Administrator\桌⾯\2.mp4”) ' 视频
sendimg (窗⼝_取标题 (handle [i]), “C:\Documents and Settings\Administrator\桌⾯\1.jpg”) ' 图⽚
sendtext (窗⼝_取标题 (handle [i]), “www.jb51”) ' 消息
.计次循环尾 ()
调试输出 (getwechatgroup ())
.⼦程序 sendfile, , 公开
.参数 name, ⽂本型
.参数 file, ⽂本型
.局部变量 a, ⽂本型, , "0"
.局部变量 handle, 整数型
.如果真 (⽂件是否存在 (file) ＝假)
返回 ()
.如果真结束
handle ＝昵称取句柄 (name)
窗⼝_强制显⽰ (handle, 真)
⿏标_单击 (handle, 10, 580, 1)
加⼊成员 (a, file)
剪辑板_置⽂件 (a)
键盘_单击 (#Ctrl键, 1)
程序_延时 (1000)
键盘_消息 (handle, #V键, 5, 假)
键盘_单击 (#Ctrl键, 2)
程序_延时 (1000)
PostMessageA (handle, 256, #回车键, 0)
窗⼝_最⼩化 (handle)
.⼦程序昵称取句柄, 整数型
.
参数 name, ⽂本型
.局部变量 handle, 整数型, , "0"
.局部变量 i, 整数型
窗⼝_模糊遍历窗⼝ (, “ChatWnd”, , handle)
.计次循环⾸ (取数组成员数 (handle), i)
.如果真 (窗⼝_取标题 (handle [i]) ＝ name)
返回 (handle [i])
.如果真结束
.计次循环尾 ()
返回 (0)
.⼦程序 sendimg, , 公开
.
参数 name, ⽂本型
.参数 file, ⽂本型
.局部变量 handle, 整数型
.局部变量 img, 字节集
.如果真 (file ＝ “”)
返回 ()
.如果真结束
.如果真 (寻⽂本 (file, “http”, , 假) ＝ -1)
.如果真 (⽂件是否存在 (file) ＝假)
返回 ()
.如果真结束
.
如果真结束
handle ＝昵称取句柄 (name)
窗⼝_强制显⽰ (handle, 真)
⿏标_单击 (handle, 10, 580, 1)
.如果 (寻⽂本 (file, “http”, , 假) ≠ -1)
img ＝ HTTP读⽂件 (file)
.否则
img ＝读⼊⽂件 (file)
.如果结束
剪辑板_置图⽚ (img)
键盘_单击 (#Ctrl键, 1)
程序_延时 (1000)代码转换
键盘_消息 (handle, #V键, 5, 假)
键盘_单击 (#Ctrl键, 2)
程序_延时 (1000)
PostMessageA (handle, 256, #回车键, 0)
窗⼝_最⼩化 (handle)
.⼦程序 sendtext, , 公开
.参数 name, ⽂本型
.参数 text, ⽂本型
.局部变量 handle, 整数型
.如果真 (text ＝ “”)
返回 ()
.如果真结束
handle ＝昵称取句柄 (name)
窗⼝_强制显⽰ (handle, 真)
⿏标_单击 (handle, 10, 580, 1)
剪辑板_置⽂本 (text)
.判断循环⾸ (剪辑板_取⽂本 () ＝ “”)
剪辑板_置⽂本 (text)
.判断循环尾 ()
键盘_单击 (#Ctrl键, 1)
程序_延时 (1000)
键盘_消息 (handle, #V键, 5, 假)
键盘_单击 (#Ctrl键, 2)
程序_延时 (1000)
PostMessageA (handle, 256, #回车键, 0)
窗⼝_最⼩化 (handle)
.⼦程序 getwechatgroup, ⽂本型, 公开
.局部变量 handle, 整数型, , "0"
.局部变量 title, ⽂本型
.局部变量 i, 整数型
窗⼝_模糊遍历窗⼝ (, “ChatWnd”, , handle)
.计次循环⾸ (取数组成员数 (handle), i)
.
判断开始 (title ＝ “”)
title ＝窗⼝_取标题 (handle [i])
.默认
title ＝ title ＋ #换⾏符＋窗⼝_取标题 (handle [i])
.判断结束
.计次循环尾 ()
.如果真 (title ＝ “”)
信息框 (“未检测到列表，如已登录请打开不要合并”, 0 ＋ 64, , )
.如果真结束
返回 (title)
.⼦程序 version, ⽂本型, 公开
返回 (“666”)
运⾏结果：
总结
以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接

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