麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > 易語言 > 正文

易語言獲取群內全部成員利用模擬按鍵的方式艾特成員

2024-07-21 23:02:48
字體:
來源:轉載
供稿:網友

DLL命令表

.版本 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)

QQ群艾特功能

此功能需要加載精易模塊5.6

.版本 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.內容)

QQ快捷登陸啟動窗口

.版本 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, , )    ' 結束 ()  .如果真結束.如果真結束

運行結果:

易語言,qq群,艾特,成員,工具

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。


注:相關教程知識閱讀請移步到易語言教程頻道。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 日本教室三级在线看 | 久久久一区二区精品 | 亚洲性综合网 | 毛片在线免费观看网址 | 国产精品一区二区日韩 | 黄色av免费网站 | 羞羞视频免费网站含羞草 | 亚洲精品一区二区三区大胸 | 成人毛片网站 | 在线99热| 色中色在线播放 | 国产午夜亚洲精品理论片大丰影院 | 国产亚洲精彩视频 | 日韩一级免费毛片 | 久久精品中文字幕一区二区三区 | 一区二区三区在线播放视频 | 国产福利视频在线观看 | 国产人妖一区二区 | 曰批全过程120分钟免费69 | av在线观 | 草b视频在线观看 | 全免费午夜一级毛片真人 | 在线播放中文 | 亚洲性综合网 | 成人国产视频在线观看 | 成人mm视频在线观看 | 欧美性生交xxxxx免费观看 | 国产精品免费看 | 成人免费福利网站 | 男女羞羞视频在线观看免费 | 一级一级一级毛片 | 久久国产精品久久久久久 | 夜间福利网站 | av色在线观看 | 黄色片网站在线免费观看 | 男女无套免费视频 | 亚洲成人国产 | 国产在线精品一区二区三区不卡 | 国产精品成人久久 | 韩国一大片a毛片 | 欧美黄一区 |