易语言QQ群发支持图片文字数据一起发送的工具
89 浏览量
2020-08-26
16:17:11
上传
评论
收藏 90KB PDF 举报
易语言易语言QQ群发支持图片文字数据一起发送的工具群发支持图片文字数据一起发送的工具
今天小编就为大家分享一篇关于易语言QQ群发支持图片文字数据一起发送的工具，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，
需要的朋友一起跟随小编来看看吧
DLL命令表命令表
.版本 2
.DLL命令 OpenClipboard, 逻辑型, "user32", "OpenClipboard", , 打开CLIPBOARD
.参数 hwnd, 整数型
.DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData", , 返回剪贴板数据的句柄
.参数 wFormat, 整数型
.DLL命令 RegisterClipboardFormat, 整数型, "user32", "RegisterClipboardFormatA", , 登记新的CLIPBOARD格式
.参数 lpString, 文本型
.DLL命令 GlobalSize, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
.参数 hMem, 整数型
.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock", , 锁定内存对象并返回一个指针
.参数 hMem, 整数型
.DLL命令 CloseClipboard, 整数型, "user32", "CloseClipboard", , 关闭剪贴板
.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存
.参数 wFlags, 整数型
.参数 dwBytes, 整数型
.DLL命令 GlobalUnlock, 整数型, "kernel32", "GlobalUnlock", , 开锁全局内存块
.参数 hMem, 整数型
.DLL命令 EmptyClipboard, 逻辑型, "user32", "EmptyClipboard", , 清空剪贴板并释放数据句柄
.DLL命令 SetClipboardData, 整数型, "user32", "SetClipboardData", , 设置剪贴板中数据
.参数 wFormat, 整数型
.参数 hMem, 整数型
.DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread", , 创建一个新的线程，创建完毕会立即返回。成功则返回新线程的句柄，零表示失败
.参数 lpThreadAttributes, 整数型, , 指向一个SECURITY_ATTRIBUTES结构,主要用来指定句柄是否可以被继承,如果让线程使用默认的安全属性,可以将此值设为 NULL
.参数 dwStackSize, 整数型, , 线程堆栈大小,如果为0,那么线程的堆栈大小和主线程使用的大小相同
.参数 lpStartAddress, 子程序指针, , 线程的开始执行地址,指向一个新线程函数(过程)的指针
.参数 lpParameter, 整数型, , 传递给自定义参数,传递给子线程的参数,0为无限止
.参数 dwCreationFlags, 整数型, , 设置线程被创建后的状态,如果为0表示,创建后立即运行,如果为CREATE_SUSPENDED标志,表示线程被创建后处于挂志状态,直到使用ResumeThread函数显式地启动线程为止
.参数 lpThreadId, 整数型, , 指向一个双字节变量,用来接收函数返回的线程ID.线程ID在系统范围内是唯一的.
常量数据表常量数据表
.版本 2
.常量 Fmt_Head, "<文本长度: 46>", , <QQRichEditFormat><Info version="1001"></Info>
.常量 Str_Head, "<文本长度: 31>", , <EditElement type="0"><![CDATA[
.常量 Img_Head, "<文本长度: 32>", , <EditElement type="1" filepath="
.常量 Img_End, "<文本长度: 28>", , " shortcut=""></EditElement>
.常量 Face_Head, "<文本长度: 36>", , <EditElement type="2" sysfaceindex="
.常量 Face_End, "<文本长度: 40>", , " filepath="" shortcut=""></EditElement>
.常量 GMEM_MOVEABLE, "2"
.常量 GMEM_ZEROINIT, "64"
QQ群发助手群发助手
此功能需要加载精易模块5.6
.版本 2
.支持库 eAPI
.支持库 iext
.程序集 窗口程序集1
.程序集变量 聊天句柄数组, 整数型, , "0"
.程序集变量 线程句柄, 整数型
.程序集变量 停止, 逻辑型
.程序集变量 QQ剪辑板标志, 整数型
.子程序 _添加文本按钮_被单击
.局部变量 Str, 文本型
.如果真 (输入框 (“请输入文本”, “输入框”, “请输入内容[QQ剪辑板格式]”, Str, #输入文本))
列表框1.加入项目 (Str, 0)
.如果真结束
.子程序 __启动窗口_创建完毕
QQ剪辑板标志 ＝ RegisterClipboardFormat (“QQ_RichEdit_Format”)
.子程序 _添加图片按钮_被单击
.如果真 (通用对话框1.打开 ())
列表框1.加入项目 (通用对话框1.文件名, 1)
.如果真结束
.子程序 _添加表情按钮_被单击
.局部变量 Str, 整数型
.如果真 (输入框 (“表情代码[整数]”, “输入框”, “请输入表情代码”, Str, #输入整数))
列表框1.加入项目 (到文本 (Str), 2)
.如果真结束
.子程序 _合成置入按钮_被单击
.局部变量 Str, 文本型
.局部变量 mStr, 整数型
.局部变量 lpMem, 整数型
.如果真 (列表框1.取项目数 () ＝ 0)
信息框 (“数据不能为空”, 0, )
.如果真结束
Str ＝ 合成QQ剪辑板代码 ()
mStr ＝ GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取文本长度 (Str) ＋ 1)
.如果真 (mStr ≠ 0)
lpMem ＝ GlobalLock (mStr)
.如果真 (lpMem ≠ 0)
写到内存 (Str, lpMem, )
GlobalUnlock (mStr)
.如果真 (mStr ≠ 0)
.如果真 (OpenClipboard (0))
.如果真 (EmptyClipboard ())
SetClipboardData (QQ剪辑板标志, mStr)
.如果真结束
CloseClipboard ()
.如果真结束
.如果真结束
.如果真结束
.如果真结束
.子程序 合成QQ剪辑板代码, 文本型
.局部变量 Code, 文本型
.局部变量 i, 整数型
Code ＝ #Fmt_Head
.计次循环首 (列表框1.取项目数 (), i)
.判断开始 (列表框1.取项目数值 (i － 1) ＝ 0) ' 文本
资源评论
