易語言怎么通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群功能

這篇文章將為大家詳細(xì)講解有關(guān)易語言怎么通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群功能，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

DLL命令表

.版本 2
.DLL命令 GetModuleHandle, 整數(shù)型, "kernel32", "GetModuleHandleA"
  .參數(shù) lpModuleName, 文本型
.DLL命令 GetDesktopWindow, 整數(shù)型, "user32.dll", "GetDesktopWindow"
.DLL命令 CreateToolhelp32Snapshot, 整數(shù)型, "kernel32", "CreateToolhelp32Snapshot"
  .參數(shù) dwFlags, 整數(shù)型, , 0
  .參數(shù) th42ProcessIE, 整數(shù)型, , 0
.DLL命令 Process32First, 整數(shù)型, "kernel32", "Process32First"
  .參數(shù) hSnapshot, 整數(shù)型, , 0
  .參數(shù) lppe, 進(jìn)程信息列表, , 0
.DLL命令 CloseHandle, 邏輯型, "Kernel32", "CloseHandle", , 關(guān)閉打開的對象句柄
  .參數(shù) hObject, 整數(shù)型, , 要關(guān)閉的對象句柄
.DLL命令 GetWindowTextA, 整數(shù)型, "user32.dll", "GetWindowTextA", , 取得一個窗體的標(biāo)題（caption）文字，或者一個控件的內(nèi)容（在vb里使用：使用vb窗體或控件的caption或text屬性） 復(fù)制到lpString的字串長度；不包括空中止字符。會設(shè)置GetLastError
  .參數(shù) hWnd, 整數(shù)型, , 欲獲取文字的那個窗口的句柄
  .參數(shù) lpString, 文本型, 傳址, 預(yù)定義的一個緩沖區(qū)，至少有cch 1個字符大??；隨同窗口文字載入
  .參數(shù) nMaxCount, 整數(shù)型, , lp緩沖區(qū)的長度;
.DLL命令 GetWindowTextLength, 整數(shù)型, "user32", "GetWindowTextLengthA", 公開
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 Process32Next, 整數(shù)型, "kernel32", "Process32Next", , 獲得下一個進(jìn)程的句柄
  .參數(shù) hSnapshot, 整數(shù)型, , 0
  .參數(shù) lppe, 進(jìn)程信息列表, , 0
.DLL命令 GetWindow, 整數(shù)型, , "GetWindow"
  .參數(shù) 源窗口, 整數(shù)型
  .參數(shù) 關(guān)系, 整數(shù)型
.DLL命令 CreateWindowEx, 整數(shù)型, "user32", "CreateWindowExA"
  .參數(shù) dwExStyle, 整數(shù)型
  .參數(shù) lpClassName, 文本型
  .參數(shù) lpWindowName, 文本型
  .參數(shù) dwStyle, 整數(shù)型
  .參數(shù) x, 整數(shù)型
  .參數(shù) y, 整數(shù)型
  .參數(shù) nWidth, 整數(shù)型
  .參數(shù) nHeight, 整數(shù)型
  .參數(shù) hWndParent, 整數(shù)型
  .參數(shù) hMenu, 整數(shù)型
  .參數(shù) hInstance, 整數(shù)型
  .參數(shù) lpParam, 整數(shù)型
.DLL命令 SetWindowLong, 整數(shù)型, "user32", "SetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
  .參數(shù) dwNewLong, 整數(shù)型
.DLL命令 SendMessage, 整數(shù)型, "user32", "SendMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wMsg, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 整數(shù)型
.DLL命令 GetWindowLong, 整數(shù)型, "user32", "GetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
.DLL命令 ShowWindow, 整數(shù)型, "user32", "ShowWindow"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nCmdShow, 整數(shù)型
.DLL命令 GetProcAddress, 整數(shù)型, "kernel32", "GetProcAddress"
  .參數(shù) hModule, 整數(shù)型
  .參數(shù) lpProcName, 文本型
.DLL命令 RegisterClass, 整數(shù)型, "user32.dll", "RegisterClassA"
  .參數(shù) Class, WNDCLASS, 傳址
.DLL命令 GetStockObject, 整數(shù)型, "gdi32.dll", "GetStockObject"
  .參數(shù) nIndex, 整數(shù)型
.DLL命令 GetMessage, 整數(shù)型, "user32.dll", "GetMessageA"
  .參數(shù) lpMsg, 整數(shù)型, 傳址 數(shù)組
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wMsgFilterMin, 整數(shù)型
  .參數(shù) wMsgFilterMax, 整數(shù)型
.DLL命令 TranslateMessage, 整數(shù)型, "user32.dll", "TranslateMessage"
  .參數(shù) lpMsg, 整數(shù)型, 傳址 數(shù)組
.DLL命令 DispatchMessage, 整數(shù)型, "user32.dll", "DispatchMessageA"
  .參數(shù) lpMsg, 整數(shù)型, 傳址 數(shù)組
.DLL命令 IsIconic, 邏輯型, "user32", "IsIconic"
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 PostThreadMessage, 整數(shù)型, "user32", "PostThreadMessageA"
  .參數(shù) idThread, 整數(shù)型
  .參數(shù) msg, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 整數(shù)型
.DLL命令 GetWindowThreadProcessId, 整數(shù)型, "user32", "GetWindowThreadProcessId"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpdwProcessId, 整數(shù)型, 傳址
.DLL命令 CreateThread, 整數(shù)型, "kernel32", "CreateThread"
  .參數(shù) lpThreadAttributes, 整數(shù)型
  .參數(shù) dwStackSize, 整數(shù)型
  .參數(shù) lpStartAddress, 子程序指針
  .參數(shù) lpParameter, 整數(shù)型, 傳址
  .參數(shù) dwCreationFlags, 整數(shù)型
  .參數(shù) lpThreadId, 整數(shù)型, 傳址
.DLL命令 IsWindowVisible, 邏輯型, "user32", "IsWindowVisible"
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 IsWindow, 邏輯型, "user32", "IsWindow"
  .參數(shù) hwnd, 整數(shù)型

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

.版本 2
.常量 tencent群, "<文本長度: 75>", , tencent://groupwpa/? subcmd=all&param=@@@@@@@@@@@@@@&fuin=##################

自定義數(shù)據(jù)類型表

.版本 2
.數(shù)據(jù)類型 進(jìn)程信息列表, 公開
  .成員 dwSize, 整數(shù)型, , , 1
  .成員 cntUsage, 整數(shù)型, , , 2
  .成員 進(jìn)程ID, 整數(shù)型, , , 3
  .成員 th42DefaultHeapID, 整數(shù)型, , , 4
  .成員 th42ModuleID, 整數(shù)型, , , 5
  .成員 cntThreads, 整數(shù)型, , , 6
  .成員 th42ParentProcessID, 整數(shù)型, , , 7
  .成員 pcPriClassBase, 整數(shù)型, , , 8
  .成員 dwFlags, 整數(shù)型, , , 9
  .成員 進(jìn)程名稱, 字節(jié)型, , "256", 10
.數(shù)據(jù)類型 WNDCLASS
  .成員 style, 整數(shù)型
  .成員 lpfnwndproc, 整數(shù)型
  .成員 cbClsextra, 整數(shù)型
  .成員 cbWndExtra, 整數(shù)型
  .成員 hInstance, 整數(shù)型
  .成員 hIcon, 整數(shù)型
  .成員 hCursor, 整數(shù)型
  .成員 hbrBackground, 整數(shù)型
  .成員 lpszMenuName, 文本型
  .成員 lpszClassName, 文本型

QQ后臺加人加群的代碼

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

.版本 2
.支持庫 eAPI
.支持庫 spec
.程序集 程序集1
.程序集變量 句柄數(shù)組, 整數(shù)型, , "0"
.子程序 _啟動子程序, 整數(shù)型, , 本子程序在程序啟動后最先執(zhí)行
.局部變量 i, 整數(shù)型
.局部變量 QQ, 文本型, , "0"
.局部變量 待加, 文本型
.局部變量 方式, 整數(shù)型
.局部變量 返回內(nèi)容, 文本型, , "0"
.局部變量 地址, 文本型
.局部變量 返回的QQ號碼, 文本型
方式 ＝ 1
待加 ＝ “20094487”
返回的QQ號碼 ＝ 系統(tǒng)_取已登陸QQ號碼 ()
QQ ＝ 分割文本 (返回的QQ號碼, #換行符, )
.計次循環(huán)首 (取數(shù)組成員數(shù) (QQ), i) ' 取的當(dāng)前登錄的QQ
  結(jié)束添加好友 () ' 結(jié)束當(dāng)前添加好友窗口
  .如果 (方式 ＝ 0)
    打開指定網(wǎng)址 (“tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=” ＋ 待加 ＋ “&fuin=” ＋ QQ [i]) ' 打開QQ添加指定好友窗口
  .否則
    地址 ＝ 子文本替換 (#tencent群, “@@@@@@@@@@@@@@”, 待加, , , 真)
    地址 ＝ 子文本替換 (地址, “##################”, QQ [i], , , 真)
    打開指定網(wǎng)址 (地址)
  .如果結(jié)束
  判斷句柄 (句柄數(shù)組) ' 得到添加QQ窗口句柄
  調(diào)試輸出 (句柄數(shù)組)
  .如果真 (取數(shù)組成員數(shù) (句柄數(shù)組) ＝ 1)
    .如果真 (窗口_句柄是否有效 (句柄數(shù)組 [1]))
      窗口_置位置和大小 (句柄數(shù)組 [1], -1000, -1000) ' 將窗口設(shè)置到屏幕外，看不到了就
      任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏狀態(tài)欄圖標(biāo)
      程序_延時 (200)
      .如果 (方式 ＝ 0)
        加好友操作 (句柄數(shù)組 [1]) ' 開始添加好友
      .否則
        加群操作 (句柄數(shù)組 [1]) ' 開始添加好友
      .如果結(jié)束
      系統(tǒng)_處理事件 ()
    .如果真結(jié)束
    系統(tǒng)_處理事件 ()
  .如果真結(jié)束
  程序_延時 (2000)
.計次循環(huán)尾 ()
返回 (0)
.子程序 判斷句柄
.參數(shù) 數(shù)組, 整數(shù)型, 數(shù)組
.判斷循環(huán)首 (取數(shù)組成員數(shù) (數(shù)組) ＝ 0)
  窗口_模糊遍歷窗口 (, “TXGuiFoundation”, “添加”, 數(shù)組)
.判斷循環(huán)尾 ()
' 判斷如果添加好友這個窗口存在，那么得到句柄
.子程序 加好友操作
.參數(shù) 句柄, 整數(shù)型
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏任務(wù)欄圖標(biāo)
鍵盤_消息 (句柄, #回車鍵, 5) ' 模擬按回車
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
程序_延時 (2000) ' 基本兩秒后就添加好友成功了
窗口_關(guān)閉 (句柄) ' 然后關(guān)閉
.子程序 任務(wù)欄窗口圖標(biāo)狀態(tài), 邏輯型, 公開, 參數(shù)為1或2時，操作成功返回真，反之假；參數(shù)為3時，當(dāng)前任務(wù)欄窗口圖標(biāo)已顯示返回真，反之假。
.參數(shù) 窗口句柄, 整數(shù)型
.參數(shù) 參數(shù), 整數(shù)型, , 1、隱藏圖標(biāo)；2、顯示圖標(biāo)；3、取得當(dāng)前顯示狀態(tài)
.局部變量 Msg, 整數(shù)型, , "7"
.局部變量 hwnd, 整數(shù)型
.局部變量 bShow, 邏輯型
.局部變量 bIcon, 邏輯型
.如果真 (IsWindow (窗口句柄) ＝ 假)
  返回 (假)
.如果真結(jié)束
.如果真 (參數(shù) ＝ 3)
  hwnd ＝ GetWindowLong (窗口句柄, -8)
  返回 (hwnd ＝ 0 或 GetWindowLong (hwnd, -20) ≠ 384 或 GetWindowLong (hwnd, -16) ≠ 79691776)
.如果真結(jié)束
.如果真 (參數(shù) ＝ 2)
  .如果真 (任務(wù)欄窗口圖標(biāo)狀態(tài) (窗口句柄, 3))
    返回 (真)
  .如果真結(jié)束
  bIcon ＝ IsIconic (窗口句柄)
  bShow ＝ IsWindowVisible (窗口句柄)
  hwnd ＝ GetWindowLong (窗口句柄, -8)
  SetWindowLong (窗口句柄, -8, 0)
  PostThreadMessage (GetWindowThreadProcessId (hwnd, 0), 18, 0, 0)
  SendMessage (hwnd, 16, 0, 0)
  SendMessage (窗口句柄, 11, 0, 0)
  ShowWindow (窗口句柄, 7)
  .如果真 (bIcon ＝ 假)
    ShowWindow (窗口句柄, 4)
  .如果真結(jié)束
  SendMessage (窗口句柄, 11, 1, 0)
  .如果真 (bShow ＝ 假)
    ShowWindow (窗口句柄, 0)
  .如果真結(jié)束
  返回 (真)
.如果真結(jié)束
.如果真 (任務(wù)欄窗口圖標(biāo)狀態(tài) (窗口句柄, 3) ＝ 假)
  返回 (真)
.如果真結(jié)束
hwnd ＝ -1
CloseHandle (CreateThread (0, 0, &CreateHideWin, hwnd, 0, 0))
.判斷循環(huán)首 (hwnd ＝ -1)
  處理事件 ()
.判斷循環(huán)尾 ()
.如果真 (hwnd ＝ 0)
  返回 (假)
.如果真結(jié)束
SetWindowLong (窗口句柄, -8, hwnd)
返回 (真)
.子程序 CreateHideWin
.參數(shù) hwnd, 整數(shù)型, 參考
.局部變量 Msg, 整數(shù)型, , "7"
.局部變量 WndClass, WNDCLASS
WndClass.style ＝ 3
WndClass.lpfnwndproc ＝ GetProcAddress (GetModuleHandle (“user32.dll”), “DefWindowProcA”)
WndClass.hInstance ＝ GetModuleHandle (WndClass.lpszClassName)
WndClass.hbrBackground ＝ GetStockObject (0)
WndClass.lpszClassName ＝ “HideTaskbar”
RegisterClass (WndClass)
hwnd ＝ CreateWindowEx (384, WndClass.lpszClassName, “”, 79691776, 0, 0, 0, 0, 0, 0, WndClass.hInstance, 0)
.如果真 (hwnd ≠ 0)
  .判斷循環(huán)首 (GetMessage (Msg, 0, 0, 0) ≠ 0)
    TranslateMessage (Msg)
    DispatchMessage (Msg)
  .判斷循環(huán)尾 ()
.如果真結(jié)束
.子程序 結(jié)束添加好友
.局部變量 i, 整數(shù)型
窗口_模糊遍歷窗口 (, “TXGuiFoundation”, “添加”, 句柄數(shù)組) ' 尋找添加好友窗口
.計次循環(huán)首 (取數(shù)組成員數(shù) (句柄數(shù)組), i)
  .如果真 (窗口_句柄是否有效 (句柄數(shù)組 [i]))
    窗口_關(guān)閉 (句柄數(shù)組 [i]) ' 關(guān)閉所有添加好友窗口
  .如果真結(jié)束
  系統(tǒng)_處理事件 ()
.計次循環(huán)尾 ()
.子程序 加群操作
.參數(shù) 句柄, 整數(shù)型
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏任務(wù)欄圖標(biāo)
鍵盤_消息 (句柄, #Tab鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5) ' 模擬按回車
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務(wù)欄窗口圖標(biāo)狀態(tài) (句柄數(shù)組 [1], 1)
程序_延時 (2000) ' 基本兩秒后就添加好友成功了
窗口_關(guān)閉 (句柄) ' 然后關(guān)閉
.子程序 窗口_取標(biāo)題, 文本型, 公開
.參數(shù) 窗口句柄, 整數(shù)型
.局部變量 局_緩沖區(qū), 文本型
.局部變量 局_緩沖大小
局_緩沖大小 ＝ GetWindowTextLength (窗口句柄) ＋ 1
局_緩沖區(qū) ＝ 取空白文本 (局_緩沖大小)
GetWindowTextA (窗口句柄, 局_緩沖區(qū), 局_緩沖大小)
返回 (局_緩沖區(qū))
.子程序 窗口_枚舉窗口句柄, 整數(shù)型, 公開, 通過窗口任務(wù)關(guān)系來枚舉所有窗口,返回窗口句柄數(shù)目,失敗返回0
.參數(shù) 句柄數(shù)組, 整數(shù)型, 可空 數(shù)組, 返回的所有窗口句柄數(shù)組
.局部變量 窗口句柄, 整數(shù)型
清除數(shù)組 (句柄數(shù)組)
窗口句柄 ＝ GetWindow (GetDesktopWindow (), 5)
.判斷循環(huán)首 (窗口句柄 ≠ 0)
  加入成員 (句柄數(shù)組, 窗口句柄)
  窗口句柄 ＝ GetWindow (窗口句柄, 2)
.判斷循環(huán)尾 ()
返回 (取數(shù)組成員數(shù) (句柄數(shù)組))
.子程序 進(jìn)程_取ID數(shù)組, 整數(shù)型, 公開, 取指定進(jìn)程名稱的所有進(jìn)程的進(jìn)程ID(返回進(jìn)程ID數(shù)目,沒有返回0)
.參數(shù) 進(jìn)程名, 文本型, , 程序進(jìn)程名
.參數(shù) 進(jìn)程ID數(shù)組, 整數(shù)型, 參考 數(shù)組, 返回的進(jìn)程ID 數(shù)組
.參數(shù) 區(qū)分大小寫, 邏輯型, 可空, 默認(rèn)不區(qū)分進(jìn)程名大小寫
.局部變量 信息, 進(jìn)程信息列表
.局部變量 進(jìn)程快照, 整數(shù)型
.局部變量 進(jìn)程句柄, 整數(shù)型
清除數(shù)組 (進(jìn)程ID數(shù)組)
進(jìn)程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (進(jìn)程快照 ＝ 0)
  返回 (0)
.如果真結(jié)束
信息.dwSize ＝ 1024
進(jìn)程句柄 ＝ Process32First (進(jìn)程快照, 信息)
.判斷開始 (區(qū)分大小寫)
  .判斷循環(huán)首 (進(jìn)程句柄 ≠ 0)
    .如果真 (進(jìn)程名 ＝ 到文本 (信息.進(jìn)程名稱))
      加入成員 (進(jìn)程ID數(shù)組, 信息.進(jìn)程ID)
    .如果真結(jié)束
    進(jìn)程句柄 ＝ Process32Next (進(jìn)程快照, 信息)
  .判斷循環(huán)尾 ()
.默認(rèn)
  .判斷循環(huán)首 (進(jìn)程句柄 ≠ 0)
    .如果真 (到小寫 (進(jìn)程名) ＝ 到小寫 (到文本 (信息.進(jìn)程名稱)))
      加入成員 (進(jìn)程ID數(shù)組, 信息.進(jìn)程ID)
    .如果真結(jié)束
    進(jìn)程句柄 ＝ Process32Next (進(jìn)程快照, 信息)
  .判斷循環(huán)尾 ()
.判斷結(jié)束
CloseHandle (進(jìn)程快照)
返回 (取數(shù)組成員數(shù) (進(jìn)程ID數(shù)組))
.子程序 系統(tǒng)_取已登陸QQ號碼, 文本型, 公開, 成功返回QQ號碼，如果是多個QQ號碼以#換行符分開，其他的都返回空
.局部變量 局_窗口標(biāo)題, 文本型
.局部變量 局_變量文本, 文本型
.局部變量 局_分割的文本, 文本型, , "0"
.局部變量 局_進(jìn)程ID數(shù)目, 整數(shù)型
.局部變量 計次, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 局_進(jìn)程ID數(shù)組, 整數(shù)型, , "0"
.局部變量 局_窗口數(shù)目, 整數(shù)型
局_進(jìn)程ID數(shù)目 ＝ 進(jìn)程_取ID數(shù)組 (“QQ.exe”, 局_進(jìn)程ID數(shù)組)
計次 ＝ 1
局_窗口數(shù)目 ＝ 窗口_枚舉窗口句柄 (局_進(jìn)程ID數(shù)組)
.計次循環(huán)首 (局_窗口數(shù)目, i)
  局_窗口標(biāo)題 ＝ 窗口_取標(biāo)題 (局_進(jìn)程ID數(shù)組 [i])
  .如果真 (尋找文本 (局_窗口標(biāo)題, “qqexchangewnd_shortcut_prefix”, , 假) ≠ -1)
    局_分割的文本 ＝ 分割文本 (局_窗口標(biāo)題, “_”, )
    .判斷開始 (計次 ＝ 局_進(jìn)程ID數(shù)目)
      局_變量文本 ＝ 局_變量文本 ＋ 局_分割的文本 [取數(shù)組成員數(shù) (局_分割的文本)]
      計次 ＝ 計次 ＋ 1
    .默認(rèn)
      局_變量文本 ＝ 局_變量文本 ＋ 局_分割的文本 [取數(shù)組成員數(shù) (局_分割的文本)] ＋ #換行符
      計次 ＝ 計次 ＋ 1
    .判斷結(jié)束
  .如果真結(jié)束
  .如果真 (計次 ＞ 局_進(jìn)程ID數(shù)目)
    跳出循環(huán) ()
  .如果真結(jié)束
.計次循環(huán)尾 ()
返回 (局_變量文本)

運行結(jié)果：

關(guān)于“易語言怎么通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群功能”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。