易语言获取群内全部成员利用模拟按键的方式艾特成员

.版本 2.DLL命令 _鼠标取坐标句柄, 整数型, "user32", "WindowFromPoint"  .参数 xPoint, 整数型, , x点值  .参数 yPoint, 整数型, , y点值;

.版本 2.全局变量 全_Uin, 文本型.全局变量 全_Bkn, 文本型.全局变量 全_Cookie, 文本型

.版本 2.常量 正则表达式_群列表, "<文本长度: 22>", , gc":(/d+),"gn":"(.*?)".常量 正则表达式_群成员, "<文本长度: 53>", , nick":"(.*?)"[/s/S]*?"role":(/d+),[/s/S]*?uin":(/d+)}

.版本 2.程序集 集_QQ功能.子程序 QQ群_计算Bkn, 文本型.参数 skey, 文本型.局部变量 基值, 整数型.局部变量 计数, 整数型.局部变量 长度, 整数型.局部变量 结果, 整数型基值 ＝ 5381计数 ＝ 0长度 ＝ 取文本长度 (skey).判断循环首 (计数 ＜ 长度)  基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代码 (skey, 计数 ＋ 1)  计数 ＝ 计数 ＋ 1.判断循环尾 ()结果 ＝ 位与 (基值, 2147483647)返回 (到文本 (结果)).子程序 QQ群_群列表, 文本型.参数 模式, 整数型, , 0=群验证;1=获取群列表.参数 Group, 文本型, 可空.局部变量 Text, 文本型.如果真 (模式 ＝ 0)  全_Bkn ＝ QQ群_计算Bkn (文本_取出中间文本 (全_Cookie, “skey=”, “;”, , ))  Text ＝ 编码_utf8到gb2312 (网页_访问S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” ＋ 全_Bkn, 全_Cookie, , , , , , , , , , , , , ))  .如果真 (寻找文本 (Text, Group, , 假) ≠ -1)    返回 (“验证成功”)  .如果真结束  返回 (“验证失败”).如果真结束.如果真 (模式 ＝ 1)  全_Bkn ＝ QQ群_计算Bkn (文本_取出中间文本 (全_Cookie, “skey=”, “;”, , ))  Text ＝ 文本_替换 (编码_URL解码 (网页_访问S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” ＋ 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, , , , , , , , )  返回 (Text).如果真结束返回 (Text).子程序 QQ群_群成员, 文本型.参数 模式, 整数型, , 0=获取群成员数量;1=获取群成员.参数 Group, 文本型.参数 st, 文本型, 可空.参数 end, 文本型, 可空.局部变量 Text, 文本型.如果真 (模式 ＝ 0)  全_Bkn ＝ QQ群_计算Bkn (文本_取出中间文本 (全_Cookie, “skey=”, “;”, , ))  Text ＝ 文本_替换 (编码_URL解码 (网页_访问S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” ＋ Group ＋ “&st=0&end=20&sort=0&bkn=” ＋ 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, “'”, “”, , , , , , )  Text ＝ 文本_取出中间文本 (Text, “count” ＋ #引号 ＋ “:”, “,”, , ).如果真结束.如果真 (模式 ＝ 1)  全_Bkn ＝ QQ群_计算Bkn (文本_取出中间文本 (全_Cookie, “skey=”, “;”, , ))  Text ＝ 文本_替换 (编码_URL解码 (网页_访问S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” ＋ Group ＋ “&st=” ＋ st ＋ “&end=” ＋ end ＋ “&sort=0&bkn=” ＋ 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, “'”, “”, , , , , , ).如果真结束返回 (Text)

.版本 2.支持库 shellEx.支持库 iext.程序集 窗口程序集_窗口1.程序集变量 集_开始工作, 逻辑型.程序集变量 集_窗口标题, 文本型.程序集变量 集_热键F4, 整数型.程序集变量 集_窗口句柄, 整数型.程序集变量 集_获取群员防卡线程, 整数型.程序集变量 集_热键F3, 整数型.子程序 _窗口1_创建完毕集_开始工作 ＝ 假通用对话框1.过滤器 ＝ “图片文件|*.png;*.jpg”集_热键F4 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)集_热键F3 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)全_Uin ＝ 文本_取出中间文本 (全_Cookie, “uin=o”, “;”, , )标签1.标题 ＝ “QQ号码：” ＋ 全_Uin初始化 ().子程序 初始化.局部变量 a, 整数型.局部变量 正则, 正则表达式类.局部变量 局_表项数, 整数型正则.创建 (#正则表达式_群列表, QQ群_群列表 (1, ), , , , ).计次循环首 (正则.取匹配数量 (), a)  局_表项数 ＝ 超级列表框1.插入表项 (, , , , , )  超级列表框1.置标题 (局_表项数, 0, 到文本 (超级列表框1.取表项数 ()))  超级列表框1.置标题 (局_表项数, 1, 正则.取子匹配文本 (a, 2, ))  超级列表框1.置标题 (局_表项数, 2, 正则.取子匹配文本 (a, 1, ))  处理事件 ().计次循环尾 ()' ====================================================================编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “/@Set.ini”, “编辑框”, “宣传语”, )编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “/@Set.ini”, “编辑框”, “图片地址”, ).判断开始 (读配置项 (取运行目录 () ＋ “/@Set.ini”, “选择框”, “跳过群主/管理”, ) ＝ “1”)  选择框1.选中 ＝ 真.默认  选择框1.选中 ＝ 假.判断结束.子程序 _超级列表框1_当前表项被改变线程_启动 (&防卡_获取群员, , 集_获取群员防卡线程).子程序 防卡_获取群员.局部变量 a, 整数型.局部变量 正则, 正则表达式类.局部变量 局_表项数, 整数型.局部变量 局_群人数量, 文本型.局部变量 局_群人数, 文本型.局部变量 局_循环次数, 整数型.局部变量 局_群人数前, 整数型.局部变量 b, 整数型状态条1.置文本 (1, “正在获取群成员数量...”)选择夹1.现行子夹 ＝ 1局_群人数量 ＝ QQ群_群成员 (0, 超级列表框1.取标题 (超级列表框1.现行选中项, 2), , )状态条1.置文本 (1, “该群共有人数：” ＋ 局_群人数量 ＋ “人...”)局_循环次数 ＝ 取整 (到整数 (局_群人数量) ÷ 100)局_群人数前 ＝ 0.计次循环首 (局_循环次数 ＋ 1, )  局_群人数 ＝ QQ群_群成员 (1, 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 到文本 (局_群人数前), 到文本 (到整数 (局_群人数前) ＋ 100))  局_群人数前 ＝ 局_群人数前 ＋ 101  正则.创建 (#正则表达式_群成员, 局_群人数, , , , )  .计次循环首 (正则.取匹配数量 (), a)    局_表项数 ＝ 超级列表框2.插入表项 (, , , , , )    超级列表框2.置标题 (局_表项数, 0, 到文本 (超级列表框2.取表项数 ()))    超级列表框2.置标题 (局_表项数, 1, 正则.取子匹配文本 (a, 1, ))    超级列表框2.置标题 (局_表项数, 2, 正则.取子匹配文本 (a, 3, ))    .如果真 (正则.取子匹配文本 (a, 2, ) ＝ “0”)      超级列表框2.置标题 (局_表项数, 3, “群主”)    .如果真结束    .如果真 (正则.取子匹配文本 (a, 2, ) ＝ “1”)      超级列表框2.置标题 (局_表项数, 3, “管理”)    .如果真结束    .如果真 (正则.取子匹配文本 (a, 2, ) ＝ “2”)      超级列表框2.置标题 (局_表项数, 3, “群员”)    .如果真结束    处理事件 ()  .计次循环尾 ()  超级列表框2.保证显示 (超级列表框2.取表项数 () － 1)  处理事件 ()  状态条1.置文本 (1, “已获取群员” ＋ 到文本 (超级列表框2.取表项数 ()) ＋ “个...”).计次循环尾 ()状态条1.置文本 (1, “已获取群员” ＋ 到文本 (超级列表框2.取表项数 ()) ＋ “个，线程已销毁...”)线程_销毁 (集_获取群员防卡线程).子程序 _标签1_反馈事件, 整数型.参数 参数一, 整数型.参数 参数二, 整数型.局部变量 聊天窗口, 整数型.局部变量 a, 整数型.局部变量 Firends, 文本型, , "0".局部变量 Count, 整数型.局部变量 Number, 整数型.如果真 (参数一 ＝ 集_热键F4)  状态条1.置文本 (1, “任务开始...”)  集_开始工作 ＝ 真  集_窗口句柄 ＝ _鼠标取坐标句柄 (取鼠标水平位置 (), 取鼠标垂直位置 ())  聊天窗口 ＝ 聊天窗口_取句柄 (集_窗口标题)  .判断循环首 (聊天窗口 ＝ 0)    聊天窗口 ＝ 聊天窗口_取句柄 (集_窗口标题)  .判断循环尾 ()  .计次循环首 (超级列表框2.取表项数 (), a)    .判断开始 (选择框1.选中 ＝ 真)      .如果真 (超级列表框2.取标题 (a － 1, 3) ＝ “群员”)        加入成员 (Firends, 超级列表框2.取标题 (a － 1, 2)) ' 加入非群主/管理数组      .如果真结束    .默认      加入成员 (Firends, 超级列表框2.取标题 (a － 1, 2)) ' 加入全部成员数组    .判断结束  .计次循环尾 ()  Count ＝ 绝对取整 (取数组成员数 (Firends) ÷ 20) ' 计算外循环次数  .如果真 (Count × 20 ＜ 取数组成员数 (Firends)) ' 判断余数    Count ＝ Count ＋ 1 ' 有余数，加上1  .如果真结束  .计次循环首 (Count, )    .如果真 (集_开始工作 ＝ 假)      跳出循环 ()    .如果真结束    .计次循环首 (20, )      .如果真 (集_开始工作 ＝ 假)        跳出循环 ()      .如果真结束      Number ＝ Number ＋ 1      .如果真 (Number ＞ 取数组成员数 (Firends))        Number ＝ 0        跳出循环 ()      .如果真结束      文本_投递 (聊天窗口, “@” ＋ Firends [Number])      程序_延时 (100, )      键盘_消息 (聊天窗口, #回车键, 5, )    .计次循环尾 ()    .如果真 (集_开始工作 ＝ 假)      跳出循环 ()    .如果真结束    剪辑板_置图片 (读入文件 (编辑框2.内容))    文本_投递 (聊天窗口, 编辑框1.内容)    程序_延时 (100, 0)    键盘_组合按键 (#V键, #Ctrl键, , )    .如果真 (Number ≥ 0)      程序_延时 (100, ) ' 这里模拟到20次发送的按键      键盘_消息 (聊天窗口, #回车键, 5, )    .如果真结束  .计次循环尾 ().如果真结束.如果真 (参数一 ＝ 集_热键F3)  状态条1.置文本 (1, “正在结束任务...”)  集_开始工作 ＝ 假.如果真结束状态条1.置文本 (1, “任务已结束...”).子程序 聊天窗口_取句柄, 整数型.参数 昵称, 文本型.局部变量 局_句柄, 整数型.局部变量 rest, 文本型.局部变量 窗口标题, 文本型.局部变量 jx, 精易_矩形.局部变量 arr, 整数型, , "0".局部变量 n, 整数型窗口_模糊遍历窗口 (, “TXGuiFoundation”, , arr).计次循环首 (取数组成员数 (arr), n)  rest ＝ 窗口_取控件内容 (arr [n])  窗口标题 ＝ 窗口_取标题 (arr [n])  .如果真 (rest ≠ “” 且 rest ＝ 窗口标题 且 rest ≠ “TXMenuWindow” 且 rest ≠ “QQ” 且 rest ≠ “增加时长” 且 rest ≠ “电脑管家” 且 rest ≠ “勋章墙”)    jx ＝ 窗口_取位置和大小 (arr [n])    窗口_还原 (arr [n])    .如果真 (jx.右边 ＞ 596 且 jx.底边 ＞ 520)      .如果真 (寻找文本 (rest, 昵称, , 假) ≠ -1)        返回 (arr [n])      .如果真结束    .如果真结束  .如果真结束.计次循环尾 ()返回 (0).子程序 取窗口信息.局部变量 矩形, 精易_矩形.局部变量 窗口坐标, 精易_坐标.局部变量 屏幕坐标, 精易_坐标处理事件 ()矩形 ＝ 窗口_取位置和大小 (集_窗口句柄)集_窗口标题 ＝ 窗口_取标题 (集_窗口句柄)屏幕坐标 ＝ 鼠标_取位置 ()窗口坐标 ＝ 鼠标_取窗口坐标 (窗口_取鼠标处窗口句柄 ()).子程序 _按钮1_被单击通用对话框1.类型 ＝ 0.如果真 (通用对话框1.打开 () ＝ 真)  编辑框2.内容 ＝ 通用对话框1.文件名  写配置项 (取运行目录 () ＋ “/@Set.ini”, “编辑框”, “图片地址”, 编辑框2.内容).如果真结束.子程序 _选择框1_被单击.判断开始 (选择框1.选中 ＝ 真)  写配置项 (取运行目录 () ＋ “/@Set.ini”, “选择框”, “跳过群主/管理”, “1”).默认  写配置项 (取运行目录 () ＋ “/@Set.ini”, “选择框”, “跳过群主/管理”, “0”).判断结束.子程序 _编辑框1_内容被改变写配置项 (取运行目录 () ＋ “/@Set.ini”, “编辑框”, “宣传语”, 编辑框1.内容)

.版本 2.支持库 HtmlView.程序集 窗口程序集_启动窗口.程序集变量 集_QQ群号, 文本型.子程序 __启动窗口_创建完毕网页_清除Cookie (“qun.qq.com”).子程序 _超文本浏览框1_跳转完毕.如果真 (超文本浏览框1.地址 ＝ “http://qun.qq.com/member.html”)  全_Cookie ＝ 网页_取Cookie (“qun.qq.com”, )  .' 如果真 (QQ群_群列表 (0, 集_QQ群号) ＝ “验证成功”)    ' 信息框 (“验证成功”, 0, , )    载入 (窗口1, , 假)    _启动窗口.销毁 ()  .如果真结束  .' 如果真 (QQ群_群列表 (0, 集_QQ群号) ＝ “验证失败”)    ' 信息框 (“验证失败”, 0, , )    ' 结束 ()  .如果真结束.如果真结束