易语言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) ' 文本
    Code = Code + #Str_Head + 列表框1.取项目文本 (i - 1) + “]]></EditElement>”
  .判断 (列表框1.取项目数值 (i - 1) = 1) ' 图片
    Code = Code + #Img_Head + 列表框1.取项目文本 (i - 1) + #Img_End
  .判断 (列表框1.取项目数值 (i - 1) = 2) ' 系统表情
    Code = Code + #Face_Head + 列表框1.取项目文本 (i - 1) + #Face_End
  .默认
  .判断结束
.计次循环尾 ()
Code = Code + “</QQRichEditFormat>”
返回 (Code)
.子程序 发消息
.局部变量 计次, 整数型
.判断循环首 (取反 (停止))
  清除数组 (聊天句柄数组)
  获取并过滤窗口信息 ()
  .计次循环首 (取数组成员数 (聊天句柄数组), 计次)
    窗口_总在最前 (聊天句柄数组 [计次], 真)
    模拟按键 (#Ctrl键, #V键, )
    程序_延时 (1000)
    键盘_消息 (聊天句柄数组 [计次], #回车键, 5)
    窗口_总在最前 (聊天句柄数组 [计次], 假)
    程序_延时 (1500)
  .计次循环尾 ()
  程序_延时 (到整数 (间隔时间编辑框.内容) × 1000)
.判断循环尾 ()
.子程序 获取并过滤窗口信息
.局部变量 数组, 整数型, , "0"
.局部变量 计次, 整数型
.局部变量 索引, 整数型
.局部变量 A, 整数型
A = 0
窗口_枚举子窗口 (, 数组, “TXGuiFoundation”)
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (数组), 计次)
  .如果真 (窗口_是否可见 (数组 [计次]))
    .如果真 (窗口_取标题 (数组 [计次]) ≠ “QQ”)
      .如果真 (窗口_取标题 (数组 [计次]) ≠ “腾讯微云”)
        .如果真 (窗口_取标题 (数组 [计次]) ≠ “查找”)
          .如果真 (窗口_取标题 (数组 [计次]) ≠ “系统设置”)
            .如果真 (窗口_取标题 (数组 [计次]) ≠ “消息管理器”)
              .如果真 (窗口_取标题 (数组 [计次]) ≠ “应用宝”)
                .如果真 (倒找文本 (窗口_取标题 (数组 [计次]), “的资料”, , 假) = -1)
                  .如果真 (倒找文本 (窗口_取标题 (数组 [计次]), “的 收藏”, , 假) = -1)
                    .如果真 (倒找文本 (窗口_取标题 (数组 [计次]), “的 文件助手”, , 假) = -1)
                      A = A + 1
                      索引 = 超级列表框1.插入表项 (0, 到文本 (A), 1, , , )
                      超级列表框1.置标题 (索引, 1, 窗口_取标题 (数组 [计次]))
                      加入成员 (聊天句柄数组, 数组 [计次])
                    .如果真结束
                  .如果真结束
                .如果真结束
              .如果真结束
            .如果真结束
          .如果真结束
        .如果真结束
      .如果真结束
    .如果真结束
  .如果真结束
.计次循环尾 ()
.子程序 _发送按钮_被单击
.如果 (发送按钮.标题 = “开始发送”)
  停止 = 假
  线程句柄 = 线程_启动 (&发消息)
  发送按钮.标题 = “停止发送”
.否则
  发送按钮.标题 = “开始发送”
  停止 = 真
  线程_销毁 (线程句柄)
.如果结束
.子程序 线程_启动, 整数型, 公开, 成功返回线程句柄,失败返回0
.参数 要启动的子程序, 子程序指针
.参数 要传去子程序的参数, 整数型, 可空, 往子程序里面传递一个整数型的参数
.参数 线程ID, 整数型, 参考 可空, 请提供一个整数型的变量,用于存放新创建的线程ID。
返回 (CreateThread (0, 0, 要启动的子程序, 要传去子程序的参数, 0, 线程ID))
.子程序 _清空数据按钮_被单击
列表框1.清空 ()

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid = 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 = 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言实现自动发送QQ信息的代码

    全局变量表 .版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 = 0 .子程序 _好友按钮_被单击 逻辑 = 假 时钟1.时钟周期 = 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 = 窗口_取句柄 (, , "TXGuiFoundati

  • 易语言高精度完美延时的源码

    DLL命令表 .版本 2 .DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值 .参数 lpPerformanceCount, LARGE_INTEGER .DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency",

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec = sec + 1 .如果真 (sec = 60) sec = 0 min = min + 1 .如果真结束 .如果真 (min = 60) min = 0 hr = hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言发送消息全选文件框例程

    发送消息全选文件框例程 .版本 2 .程序集 启动窗口程序集 .子程序 __启动窗口_创建完毕 .子程序 _按钮_全选_被单击 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" 文件框1.发送信息 (389, 1, -1) ' 全选 发送信息 (273, 65646, 文件框1.取窗口句柄 ()) ' 通知窗口文件框(列表框)被选择,没有这行代码是取不出被选择的文件的 a = 文件框1.被选择文件 b = 分割文本 (a, ";", ) 信息框 (&

  • 易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言使用超文本显示新浪天气预报的代码

    常量数据表 .版本 2 .常量 v1, "<文本长度: 24>", , <p class="inx_w_city_c"> .常量 K, "<文本长度: 8>", , url=http .常量 J, "<文本长度: 47>", , <a href="http://share.sina.cn/callback?content= .常量 v2, "<文本

  • 易语言获取已登录的QQ号码以及名称的方法

    取登陆QQ号以及名称的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量 数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量 名称, 文本型 显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量 = 到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ = 到文本 (文本_取出中间文本

随机推荐