溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

易語(yǔ)言怎么獲取群內(nèi)全部成員利用模擬按鍵的方式艾特成員

發(fā)布時(shí)間:2021-05-22 12:00:16 來(lái)源:億速云 閱讀:198 作者:小新 欄目:編程語(yǔ)言

這篇文章給大家分享的是有關(guān)易語(yǔ)言怎么獲取群內(nèi)全部成員利用模擬按鍵的方式艾特成員的內(nèi)容。小編覺(jué)得挺實(shí)用的,因此分享給大家做個(gè)參考,一起跟隨小編過(guò)來(lái)看看吧。

DLL命令表

.版本 2
.DLL命令 _鼠標(biāo)取坐標(biāo)句柄, 整數(shù)型, "user32", "WindowFromPoint"
  .參數(shù) xPoint, 整數(shù)型, , x點(diǎn)值
  .參數(shù) yPoint, 整數(shù)型, , y點(diǎn)值;

全局變量表

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

常量數(shù)據(jù)表

.版本 2
.常量 正則表達(dá)式_群列表, "<文本長(zhǎng)度: 22>", , gc":(\d+),"gn":"(.*?)"
.常量 正則表達(dá)式_群成員, "<文本長(zhǎng)度: 53>", , nick":"(.*?)"[\s\S]*?"role":(\d+),[\s\S]*?uin":(\d+)}

計(jì)算群列表群成員

.版本 2
.程序集 集_QQ功能
.子程序 QQ群_計(jì)算Bkn, 文本型
.參數(shù) skey, 文本型
.局部變量 基值, 整數(shù)型
.局部變量 計(jì)數(shù), 整數(shù)型
.局部變量 長(zhǎng)度, 整數(shù)型
.局部變量 結(jié)果, 整數(shù)型
基值 = 5381
計(jì)數(shù) = 0
長(zhǎng)度 = 取文本長(zhǎng)度 (skey)
.判斷循環(huán)首 (計(jì)數(shù) < 長(zhǎng)度)
  基值 = 基值 + 左移 (基值, 5) + 取代碼 (skey, 計(jì)數(shù) + 1)
  計(jì)數(shù) = 計(jì)數(shù) + 1
.判斷循環(huán)尾 ()
結(jié)果 = 位與 (基值, 2147483647)
返回 (到文本 (結(jié)果))
.子程序 QQ群_群列表, 文本型
.參數(shù) 模式, 整數(shù)型, , 0=群驗(yàn)證;1=獲取群列表
.參數(shù) Group, 文本型, 可空
.局部變量 Text, 文本型
.如果真 (模式 = 0)
  全_Bkn = QQ群_計(jì)算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , ))
  Text = 編碼_utf8到gb2312 (網(wǎng)頁(yè)_訪問(wèn)S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ))
  .如果真 (尋找文本 (Text, Group, , 假) ≠ -1)
    返回 (“驗(yàn)證成功”)
  .如果真結(jié)束
  返回 (“驗(yàn)證失敗”)
.如果真結(jié)束
.如果真 (模式 = 1)
  全_Bkn = QQ群_計(jì)算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , ))
  Text = 文本_替換 (編碼_URL解碼 (網(wǎng)頁(yè)_訪問(wèn)S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “&nbsp;”, “”, , , , , , , , )
  返回 (Text)
.如果真結(jié)束
返回 (Text)
.子程序 QQ群_群成員, 文本型
.參數(shù) 模式, 整數(shù)型, , 0=獲取群成員數(shù)量;1=獲取群成員
.參數(shù) Group, 文本型
.參數(shù) st, 文本型, 可空
.參數(shù) end, 文本型, 可空
.局部變量 Text, 文本型
.如果真 (模式 = 0)
  全_Bkn = QQ群_計(jì)算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , ))
  Text = 文本_替換 (編碼_URL解碼 (網(wǎng)頁(yè)_訪問(wèn)S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” + Group + “&st=0&end=20&sort=0&bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “&nbsp;”, “”, “&#39;”, “”, , , , , , )
  Text = 文本_取出中間文本 (Text, “count” + #引號(hào) + “:”, “,”, , )
.如果真結(jié)束
.如果真 (模式 = 1)
  全_Bkn = QQ群_計(jì)算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , ))
  Text = 文本_替換 (編碼_URL解碼 (網(wǎng)頁(yè)_訪問(wèn)S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” + Group + “&st=” + st + “&end=” + end + “&sort=0&bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “&nbsp;”, “”, “&#39;”, “”, , , , , , )
.如果真結(jié)束
返回 (Text)

QQ群艾特功能

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

.版本 2
.支持庫(kù) shellEx
.支持庫(kù) iext
.程序集 窗口程序集_窗口1
.程序集變量 集_開(kāi)始工作, 邏輯型
.程序集變量 集_窗口標(biāo)題, 文本型
.程序集變量 集_熱鍵F4, 整數(shù)型
.程序集變量 集_窗口句柄, 整數(shù)型
.程序集變量 集_獲取群?jiǎn)T防卡線程, 整數(shù)型
.程序集變量 集_熱鍵F3, 整數(shù)型
.子程序 _窗口1_創(chuàng)建完畢
集_開(kāi)始工作 = 假
通用對(duì)話框1.過(guò)濾器 = “圖片文件|*.png;*.jpg”
集_熱鍵F4 = 注冊(cè)熱鍵 (取窗口句柄 (), 標(biāo)簽1.取窗口句柄 (), 0, #F4鍵)
集_熱鍵F3 = 注冊(cè)熱鍵 (取窗口句柄 (), 標(biāo)簽1.取窗口句柄 (), 0, #F3鍵)
全_Uin = 文本_取出中間文本 (全_Cookie, “uin=o”, “;”, , )
標(biāo)簽1.標(biāo)題 = “QQ號(hào)碼:” + 全_Uin
初始化 ()
.子程序 初始化
.局部變量 a, 整數(shù)型
.局部變量 正則, 正則表達(dá)式類
.局部變量 局_表項(xiàng)數(shù), 整數(shù)型
正則.創(chuàng)建 (#正則表達(dá)式_群列表, QQ群_群列表 (1, ), , , , )
.計(jì)次循環(huán)首 (正則.取匹配數(shù)量 (), a)
  局_表項(xiàng)數(shù) = 超級(jí)列表框1.插入表項(xiàng) (, , , , , )
  超級(jí)列表框1.置標(biāo)題 (局_表項(xiàng)數(shù), 0, 到文本 (超級(jí)列表框1.取表項(xiàng)數(shù) ()))
  超級(jí)列表框1.置標(biāo)題 (局_表項(xiàng)數(shù), 1, 正則.取子匹配文本 (a, 2, ))
  超級(jí)列表框1.置標(biāo)題 (局_表項(xiàng)數(shù), 2, 正則.取子匹配文本 (a, 1, ))
  處理事件 ()
.計(jì)次循環(huán)尾 ()
' ====================================================================
編輯框1.內(nèi)容 = 讀配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “編輯框”, “宣傳語(yǔ)”, )
編輯框2.內(nèi)容 = 讀配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “編輯框”, “圖片地址”, )
.判斷開(kāi)始 (讀配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “選擇框”, “跳過(guò)群主/管理”, ) = “1”)
  選擇框1.選中 = 真
.默認(rèn)
  選擇框1.選中 = 假
.判斷結(jié)束
.子程序 _超級(jí)列表框1_當(dāng)前表項(xiàng)被改變
線程_啟動(dòng) (&防卡_獲取群?jiǎn)T, , 集_獲取群?jiǎn)T防卡線程)
.子程序 防卡_獲取群?jiǎn)T
.局部變量 a, 整數(shù)型
.局部變量 正則, 正則表達(dá)式類
.局部變量 局_表項(xiàng)數(shù), 整數(shù)型
.局部變量 局_群人數(shù)量, 文本型
.局部變量 局_群人數(shù), 文本型
.局部變量 局_循環(huán)次數(shù), 整數(shù)型
.局部變量 局_群人數(shù)前, 整數(shù)型
.局部變量 b, 整數(shù)型
狀態(tài)條1.置文本 (1, “正在獲取群成員數(shù)量...”)
選擇夾1.現(xiàn)行子夾 = 1
局_群人數(shù)量 = QQ群_群成員 (0, 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 2), , )
狀態(tài)條1.置文本 (1, “該群共有人數(shù):” + 局_群人數(shù)量 + “人...”)
局_循環(huán)次數(shù) = 取整 (到整數(shù) (局_群人數(shù)量) ÷ 100)
局_群人數(shù)前 = 0
.計(jì)次循環(huán)首 (局_循環(huán)次數(shù) + 1, )
  局_群人數(shù) = QQ群_群成員 (1, 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 2), 到文本 (局_群人數(shù)前), 到文本 (到整數(shù) (局_群人數(shù)前) + 100))
  局_群人數(shù)前 = 局_群人數(shù)前 + 101
  正則.創(chuàng)建 (#正則表達(dá)式_群成員, 局_群人數(shù), , , , )
  .計(jì)次循環(huán)首 (正則.取匹配數(shù)量 (), a)
    局_表項(xiàng)數(shù) = 超級(jí)列表框2.插入表項(xiàng) (, , , , , )
    超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 0, 到文本 (超級(jí)列表框2.取表項(xiàng)數(shù) ()))
    超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 1, 正則.取子匹配文本 (a, 1, ))
    超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 2, 正則.取子匹配文本 (a, 3, ))
    .如果真 (正則.取子匹配文本 (a, 2, ) = “0”)
      超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 3, “群主”)
    .如果真結(jié)束
    .如果真 (正則.取子匹配文本 (a, 2, ) = “1”)
      超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 3, “管理”)
    .如果真結(jié)束
    .如果真 (正則.取子匹配文本 (a, 2, ) = “2”)
      超級(jí)列表框2.置標(biāo)題 (局_表項(xiàng)數(shù), 3, “群?jiǎn)T”)
    .如果真結(jié)束
    處理事件 ()
  .計(jì)次循環(huán)尾 ()
  超級(jí)列表框2.保證顯示 (超級(jí)列表框2.取表項(xiàng)數(shù) () - 1)
  處理事件 ()
  狀態(tài)條1.置文本 (1, “已獲取群?jiǎn)T” + 到文本 (超級(jí)列表框2.取表項(xiàng)數(shù) ()) + “個(gè)...”)
.計(jì)次循環(huán)尾 ()
狀態(tài)條1.置文本 (1, “已獲取群?jiǎn)T” + 到文本 (超級(jí)列表框2.取表項(xiàng)數(shù) ()) + “個(gè),線程已銷毀...”)
線程_銷毀 (集_獲取群?jiǎn)T防卡線程)
.子程序 _標(biāo)簽1_反饋事件, 整數(shù)型
.參數(shù) 參數(shù)一, 整數(shù)型
.參數(shù) 參數(shù)二, 整數(shù)型
.局部變量 聊天窗口, 整數(shù)型
.局部變量 a, 整數(shù)型
.局部變量 Firends, 文本型, , "0"
.局部變量 Count, 整數(shù)型
.局部變量 Number, 整數(shù)型
.如果真 (參數(shù)一 = 集_熱鍵F4)
  狀態(tài)條1.置文本 (1, “任務(wù)開(kāi)始...”)
  集_開(kāi)始工作 = 真
  集_窗口句柄 = _鼠標(biāo)取坐標(biāo)句柄 (取鼠標(biāo)水平位置 (), 取鼠標(biāo)垂直位置 ())
  聊天窗口 = 聊天窗口_取句柄 (集_窗口標(biāo)題)
  .判斷循環(huán)首 (聊天窗口 = 0)
    聊天窗口 = 聊天窗口_取句柄 (集_窗口標(biāo)題)
  .判斷循環(huán)尾 ()
  .計(jì)次循環(huán)首 (超級(jí)列表框2.取表項(xiàng)數(shù) (), a)
    .判斷開(kāi)始 (選擇框1.選中 = 真)
      .如果真 (超級(jí)列表框2.取標(biāo)題 (a - 1, 3) = “群?jiǎn)T”)
        加入成員 (Firends, 超級(jí)列表框2.取標(biāo)題 (a - 1, 2)) ' 加入非群主\管理數(shù)組
      .如果真結(jié)束
    .默認(rèn)
      加入成員 (Firends, 超級(jí)列表框2.取標(biāo)題 (a - 1, 2)) ' 加入全部成員數(shù)組
    .判斷結(jié)束
  .計(jì)次循環(huán)尾 ()
  Count = 絕對(duì)取整 (取數(shù)組成員數(shù) (Firends) ÷ 20) ' 計(jì)算外循環(huán)次數(shù)
  .如果真 (Count × 20 < 取數(shù)組成員數(shù) (Firends)) ' 判斷余數(shù)
    Count = Count + 1 ' 有余數(shù),加上1
  .如果真結(jié)束
  .計(jì)次循環(huán)首 (Count, )
    .如果真 (集_開(kāi)始工作 = 假)
      跳出循環(huán) ()
    .如果真結(jié)束
    .計(jì)次循環(huán)首 (20, )
      .如果真 (集_開(kāi)始工作 = 假)
        跳出循環(huán) ()
      .如果真結(jié)束
      Number = Number + 1
      .如果真 (Number > 取數(shù)組成員數(shù) (Firends))
        Number = 0
        跳出循環(huán) ()
      .如果真結(jié)束
      文本_投遞 (聊天窗口, “@” + Firends [Number])
      程序_延時(shí) (100, )
      鍵盤_消息 (聊天窗口, #回車鍵, 5, )
    .計(jì)次循環(huán)尾 ()
    .如果真 (集_開(kāi)始工作 = 假)
      跳出循環(huán) ()
    .如果真結(jié)束
    剪輯板_置圖片 (讀入文件 (編輯框2.內(nèi)容))
    文本_投遞 (聊天窗口, 編輯框1.內(nèi)容)
    程序_延時(shí) (100, 0)
    鍵盤_組合按鍵 (#V鍵, #Ctrl鍵, , )
    .如果真 (Number ≥ 0)
      程序_延時(shí) (100, ) ' 這里模擬到20次發(fā)送的按鍵
      鍵盤_消息 (聊天窗口, #回車鍵, 5, )
    .如果真結(jié)束
  .計(jì)次循環(huán)尾 ()
.如果真結(jié)束
.如果真 (參數(shù)一 = 集_熱鍵F3)
  狀態(tài)條1.置文本 (1, “正在結(jié)束任務(wù)...”)
  集_開(kāi)始工作 = 假
.如果真結(jié)束
狀態(tài)條1.置文本 (1, “任務(wù)已結(jié)束...”)
.子程序 聊天窗口_取句柄, 整數(shù)型
.參數(shù) 昵稱, 文本型
.局部變量 局_句柄, 整數(shù)型
.局部變量 rest, 文本型
.局部變量 窗口標(biāo)題, 文本型
.局部變量 jx, 精易_矩形
.局部變量 arr, 整數(shù)型, , "0"
.局部變量 n, 整數(shù)型
窗口_模糊遍歷窗口 (, “TXGuiFoundation”, , arr)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (arr), n)
  rest = 窗口_取控件內(nèi)容 (arr [n])
  窗口標(biāo)題 = 窗口_取標(biāo)題 (arr [n])
  .如果真 (rest ≠ “” 且 rest = 窗口標(biāo)題 且 rest ≠ “TXMenuWindow” 且 rest ≠ “QQ” 且 rest ≠ “增加時(shí)長(zhǎng)” 且 rest ≠ “電腦管家” 且 rest ≠ “勛章墻”)
    jx = 窗口_取位置和大小 (arr [n])
    窗口_還原 (arr [n])
    .如果真 (jx.右邊 > 596 且 jx.底邊 > 520)
      .如果真 (尋找文本 (rest, 昵稱, , 假) ≠ -1)
        返回 (arr [n])
      .如果真結(jié)束
    .如果真結(jié)束
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
返回 (0)
.子程序 取窗口信息
.局部變量 矩形, 精易_矩形
.局部變量 窗口坐標(biāo), 精易_坐標(biāo)
.局部變量 屏幕坐標(biāo), 精易_坐標(biāo)
處理事件 ()
矩形 = 窗口_取位置和大小 (集_窗口句柄)
集_窗口標(biāo)題 = 窗口_取標(biāo)題 (集_窗口句柄)
屏幕坐標(biāo) = 鼠標(biāo)_取位置 ()
窗口坐標(biāo) = 鼠標(biāo)_取窗口坐標(biāo) (窗口_取鼠標(biāo)處窗口句柄 ())
.子程序 _按鈕1_被單擊
通用對(duì)話框1.類型 = 0
.如果真 (通用對(duì)話框1.打開(kāi) () = 真)
  編輯框2.內(nèi)容 = 通用對(duì)話框1.文件名
  寫(xiě)配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “編輯框”, “圖片地址”, 編輯框2.內(nèi)容)
.如果真結(jié)束
.子程序 _選擇框1_被單擊
.判斷開(kāi)始 (選擇框1.選中 = 真)
  寫(xiě)配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “選擇框”, “跳過(guò)群主/管理”, “1”)
.默認(rèn)
  寫(xiě)配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “選擇框”, “跳過(guò)群主/管理”, “0”)
.判斷結(jié)束
.子程序 _編輯框1_內(nèi)容被改變
寫(xiě)配置項(xiàng) (取運(yùn)行目錄 () + “\@Set.ini”, “編輯框”, “宣傳語(yǔ)”, 編輯框1.內(nèi)容)

QQ快捷登陸啟動(dòng)窗口

.版本 2
.支持庫(kù) HtmlView
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 集_QQ群號(hào), 文本型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
網(wǎng)頁(yè)_清除Cookie (“qun.qq.com”)
.子程序 _超文本瀏覽框1_跳轉(zhuǎn)完畢
.如果真 (超文本瀏覽框1.地址 = “http://qun.qq.com/member.html”)
  全_Cookie = 網(wǎng)頁(yè)_取Cookie (“qun.qq.com”, )
  .' 如果真 (QQ群_群列表 (0, 集_QQ群號(hào)) = “驗(yàn)證成功”)
    ' 信息框 (“驗(yàn)證成功”, 0, , )
    載入 (窗口1, , 假)
    _啟動(dòng)窗口.銷毀 ()
  .如果真結(jié)束
  .' 如果真 (QQ群_群列表 (0, 集_QQ群號(hào)) = “驗(yàn)證失敗”)
    ' 信息框 (“驗(yàn)證失敗”, 0, , )
    ' 結(jié)束 ()
  .如果真結(jié)束
.如果真結(jié)束

運(yùn)行結(jié)果:

易語(yǔ)言怎么獲取群內(nèi)全部成員利用模擬按鍵的方式艾特成員

感謝各位的閱讀!關(guān)于“易語(yǔ)言怎么獲取群內(nèi)全部成員利用模擬按鍵的方式艾特成員”這篇文章就分享到這里了,希望以上內(nèi)容可以對(duì)大家有一定的幫助,讓大家可以學(xué)到更多知識(shí),如果覺(jué)得文章不錯(cuò),可以把它分享出去讓更多的人看到吧!

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI