溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章給大家分享的是有關易語言怎么獲取群內全部成員利用模擬按鍵的方式艾特成員的內容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。
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, , ) ' 結束 () .如果真結束 .如果真結束
運行結果：
感謝各位的閱讀！關于“易語言怎么獲取群內全部成員利用模擬按鍵的方式艾特成員”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
