亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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

 更新時間：2018年11月28日 15:35:13   作者：易語言源碼貝貝吧  
今天小編就為大家分享一篇關于易語言通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群的代碼，小編覺得內容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

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ù) th32ProcessIE, 整數(shù)型, , 0
.DLL命令 Process32First, 整數(shù)型, "kernel32", "Process32First"
  .參數(shù) hSnapshot, 整數(shù)型, , 0
  .參數(shù) lppe, 進程信息列表, , 0
.DLL命令 CloseHandle, 邏輯型, "Kernel32", "CloseHandle", , 關閉打開的對象句柄
  .參數(shù) hObject, 整數(shù)型, , 要關閉的對象句柄
.DLL命令 GetWindowTextA, 整數(shù)型, "user32.dll", "GetWindowTextA", , 取得一個窗體的標題（caption）文字，或者一個控件的內容（在vb里使用：使用vb窗體或控件的caption或text屬性） 復制到lpString的字串長度；不包括空中止字符。會設置GetLastError
  .參數(shù) hWnd, 整數(shù)型, , 欲獲取文字的那個窗口的句柄
  .參數(shù) lpString, 文本型, 傳址, 預定義的一個緩沖區(qū)，至少有cch 1個字符大小；隨同窗口文字載入
  .參數(shù) nMaxCount, 整數(shù)型, , lp緩沖區(qū)的長度;
.DLL命令 GetWindowTextLength, 整數(shù)型, "user32", "GetWindowTextLengthA", 公開
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 Process32Next, 整數(shù)型, "kernel32", "Process32Next", , 獲得下一個進程的句柄
  .參數(shù) hSnapshot, 整數(shù)型, , 0
  .參數(shù) lppe, 進程信息列表, , 0
.DLL命令 GetWindow, 整數(shù)型, , "GetWindow"
  .參數(shù) 源窗口, 整數(shù)型
  .參數(shù) 關系, 整數(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ù)據表

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

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

.版本 2
.數(shù)據類型 進程信息列表, 公開
  .成員 dwSize, 整數(shù)型, , , 1
  .成員 cntUsage, 整數(shù)型, , , 2
  .成員 進程ID, 整數(shù)型, , , 3
  .成員 th32DefaultHeapID, 整數(shù)型, , , 4
  .成員 th32ModuleID, 整數(shù)型, , , 5
  .成員 cntThreads, 整數(shù)型, , , 6
  .成員 th32ParentProcessID, 整數(shù)型, , , 7
  .成員 pcPriClassBase, 整數(shù)型, , , 8
  .成員 dwFlags, 整數(shù)型, , , 9
  .成員 進程名稱, 字節(jié)型, , "256", 10
.數(shù)據類型 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ù)型
.局部變量 返回內容, 文本型, , "0"
.局部變量 地址, 文本型
.局部變量 返回的QQ號碼, 文本型
方式 ＝ 1
待加 ＝ “20094487”
返回的QQ號碼 ＝ 系統(tǒng)_取已登陸QQ號碼 ()
QQ ＝ 分割文本 (返回的QQ號碼, #換行符, )
.計次循環(huán)首 (取數(shù)組成員數(shù) (QQ), i) ' 取的當前登錄的QQ
  結束添加好友 () ' 結束當前添加好友窗口
  .如果 (方式 ＝ 0)
    打開指定網址 (“tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=” ＋ 待加 ＋ “&fuin=” ＋ QQ [i]) ' 打開QQ添加指定好友窗口
  .否則
    地址 ＝ 子文本替換 (#tencent群, “@@@@@@@@@@@@@@”, 待加, , , 真)
    地址 ＝ 子文本替換 (地址, “##################”, QQ [i], , , 真)
    打開指定網址 (地址)
  .如果結束
  判斷句柄 (句柄數(shù)組) ' 得到添加QQ窗口句柄
  調試輸出 (句柄數(shù)組)
  .如果真 (取數(shù)組成員數(shù) (句柄數(shù)組) ＝ 1)
    .如果真 (窗口_句柄是否有效 (句柄數(shù)組 [1]))
      窗口_置位置和大小 (句柄數(shù)組 [1], -1000, -1000) ' 將窗口設置到屏幕外，看不到了就
      任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏狀態(tài)欄圖標
      程序_延時 (200)
      .如果 (方式 ＝ 0)
        加好友操作 (句柄數(shù)組 [1]) ' 開始添加好友
      .否則
        加群操作 (句柄數(shù)組 [1]) ' 開始添加好友
      .如果結束
      系統(tǒng)_處理事件 ()
    .如果真結束
    系統(tǒng)_處理事件 ()
  .如果真結束
  程序_延時 (2000)
.計次循環(huán)尾 ()
返回 (0)
.子程序 判斷句柄
.參數(shù) 數(shù)組, 整數(shù)型, 數(shù)組
.判斷循環(huán)首 (取數(shù)組成員數(shù) (數(shù)組) ＝ 0)
  窗口_模糊遍歷窗口 (, “TXGuiFoundation”, “添加”, 數(shù)組)
.判斷循環(huán)尾 ()
' 判斷如果添加好友這個窗口存在，那么得到句柄
.子程序 加好友操作
.參數(shù) 句柄, 整數(shù)型
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏任務欄圖標
鍵盤_消息 (句柄, #回車鍵, 5) ' 模擬按回車
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
程序_延時 (2000) ' 基本兩秒后就添加好友成功了
窗口_關閉 (句柄) ' 然后關閉
.子程序 任務欄窗口圖標狀態(tài), 邏輯型, 公開, 參數(shù)為1或2時，操作成功返回真，反之假；參數(shù)為3時，當前任務欄窗口圖標已顯示返回真，反之假。
.參數(shù) 窗口句柄, 整數(shù)型
.參數(shù) 參數(shù), 整數(shù)型, , 1、隱藏圖標；2、顯示圖標；3、取得當前顯示狀態(tài)
.局部變量 Msg, 整數(shù)型, , "7"
.局部變量 hwnd, 整數(shù)型
.局部變量 bShow, 邏輯型
.局部變量 bIcon, 邏輯型
.如果真 (IsWindow (窗口句柄) ＝ 假)
  返回 (假)
.如果真結束
.如果真 (參數(shù) ＝ 3)
  hwnd ＝ GetWindowLong (窗口句柄, -8)
  返回 (hwnd ＝ 0 或 GetWindowLong (hwnd, -20) ≠ 384 或 GetWindowLong (hwnd, -16) ≠ 79691776)
.如果真結束
.如果真 (參數(shù) ＝ 2)
  .如果真 (任務欄窗口圖標狀態(tài) (窗口句柄, 3))
    返回 (真)
  .如果真結束
  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)
  .如果真結束
  SendMessage (窗口句柄, 11, 1, 0)
  .如果真 (bShow ＝ 假)
    ShowWindow (窗口句柄, 0)
  .如果真結束
  返回 (真)
.如果真結束
.如果真 (任務欄窗口圖標狀態(tài) (窗口句柄, 3) ＝ 假)
  返回 (真)
.如果真結束
hwnd ＝ -1
CloseHandle (CreateThread (0, 0, &CreateHideWin, hwnd, 0, 0))
.判斷循環(huán)首 (hwnd ＝ -1)
  處理事件 ()
.判斷循環(huán)尾 ()
.如果真 (hwnd ＝ 0)
  返回 (假)
.如果真結束
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)尾 ()
.如果真結束
.子程序 結束添加好友
.局部變量 i, 整數(shù)型
窗口_模糊遍歷窗口 (, “TXGuiFoundation”, “添加”, 句柄數(shù)組) ' 尋找添加好友窗口
.計次循環(huán)首 (取數(shù)組成員數(shù) (句柄數(shù)組), i)
  .如果真 (窗口_句柄是否有效 (句柄數(shù)組 [i]))
    窗口_關閉 (句柄數(shù)組 [i]) ' 關閉所有添加好友窗口
  .如果真結束
  系統(tǒng)_處理事件 ()
.計次循環(huán)尾 ()
.子程序 加群操作
.參數(shù) 句柄, 整數(shù)型
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1) ' 隱藏任務欄圖標
鍵盤_消息 (句柄, #Tab鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5) ' 模擬按回車
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
鍵盤_消息 (句柄, #回車鍵, 5)
鍵盤_消息 (句柄, #回車鍵, 5)
任務欄窗口圖標狀態(tài) (句柄數(shù)組 [1], 1)
程序_延時 (2000) ' 基本兩秒后就添加好友成功了
窗口_關閉 (句柄) ' 然后關閉
.子程序 窗口_取標題, 文本型, 公開
.參數(shù) 窗口句柄, 整數(shù)型
.局部變量 局_緩沖區(qū), 文本型
.局部變量 局_緩沖大小
局_緩沖大小 ＝ GetWindowTextLength (窗口句柄) ＋ 1
局_緩沖區(qū) ＝ 取空白文本 (局_緩沖大小)
GetWindowTextA (窗口句柄, 局_緩沖區(qū), 局_緩沖大小)
返回 (局_緩沖區(qū))
.子程序 窗口_枚舉窗口句柄, 整數(shù)型, 公開, 通過窗口任務關系來枚舉所有窗口,返回窗口句柄數(shù)目,失敗返回0
.參數(shù) 句柄數(shù)組, 整數(shù)型, 可空 數(shù)組, 返回的所有窗口句柄數(shù)組
.局部變量 窗口句柄, 整數(shù)型
清除數(shù)組 (句柄數(shù)組)
窗口句柄 ＝ GetWindow (GetDesktopWindow (), 5)
.判斷循環(huán)首 (窗口句柄 ≠ 0)
  加入成員 (句柄數(shù)組, 窗口句柄)
  窗口句柄 ＝ GetWindow (窗口句柄, 2)
.判斷循環(huán)尾 ()
返回 (取數(shù)組成員數(shù) (句柄數(shù)組))
.子程序 進程_取ID數(shù)組, 整數(shù)型, 公開, 取指定進程名稱的所有進程的進程ID(返回進程ID數(shù)目,沒有返回0)
.參數(shù) 進程名, 文本型, , 程序進程名
.參數(shù) 進程ID數(shù)組, 整數(shù)型, 參考 數(shù)組, 返回的進程ID 數(shù)組
.參數(shù) 區(qū)分大小寫, 邏輯型, 可空, 默認不區(qū)分進程名大小寫
.局部變量 信息, 進程信息列表
.局部變量 進程快照, 整數(shù)型
.局部變量 進程句柄, 整數(shù)型
清除數(shù)組 (進程ID數(shù)組)
進程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (進程快照 ＝ 0)
  返回 (0)
.如果真結束
信息.dwSize ＝ 1024
進程句柄 ＝ Process32First (進程快照, 信息)
.判斷開始 (區(qū)分大小寫)
  .判斷循環(huán)首 (進程句柄 ≠ 0)
    .如果真 (進程名 ＝ 到文本 (信息.進程名稱))
      加入成員 (進程ID數(shù)組, 信息.進程ID)
    .如果真結束
    進程句柄 ＝ Process32Next (進程快照, 信息)
  .判斷循環(huán)尾 ()
.默認
  .判斷循環(huán)首 (進程句柄 ≠ 0)
    .如果真 (到小寫 (進程名) ＝ 到小寫 (到文本 (信息.進程名稱)))
      加入成員 (進程ID數(shù)組, 信息.進程ID)
    .如果真結束
    進程句柄 ＝ Process32Next (進程快照, 信息)
  .判斷循環(huán)尾 ()
.判斷結束
CloseHandle (進程快照)
返回 (取數(shù)組成員數(shù) (進程ID數(shù)組))
.子程序 系統(tǒng)_取已登陸QQ號碼, 文本型, 公開, 成功返回QQ號碼，如果是多個QQ號碼以#換行符分開，其他的都返回空
.局部變量 局_窗口標題, 文本型
.局部變量 局_變量文本, 文本型
.局部變量 局_分割的文本, 文本型, , "0"
.局部變量 局_進程ID數(shù)目, 整數(shù)型
.局部變量 計次, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 局_進程ID數(shù)組, 整數(shù)型, , "0"
.局部變量 局_窗口數(shù)目, 整數(shù)型
局_進程ID數(shù)目 ＝ 進程_取ID數(shù)組 (“QQ.exe”, 局_進程ID數(shù)組)
計次 ＝ 1
局_窗口數(shù)目 ＝ 窗口_枚舉窗口句柄 (局_進程ID數(shù)組)
.計次循環(huán)首 (局_窗口數(shù)目, i)
  局_窗口標題 ＝ 窗口_取標題 (局_進程ID數(shù)組 [i])
  .如果真 (尋找文本 (局_窗口標題, “qqexchangewnd_shortcut_prefix”, , 假) ≠ -1)
    局_分割的文本 ＝ 分割文本 (局_窗口標題, “_”, )
    .判斷開始 (計次 ＝ 局_進程ID數(shù)目)
      局_變量文本 ＝ 局_變量文本 ＋ 局_分割的文本 [取數(shù)組成員數(shù) (局_分割的文本)]
      計次 ＝ 計次 ＋ 1
    .默認
      局_變量文本 ＝ 局_變量文本 ＋ 局_分割的文本 [取數(shù)組成員數(shù) (局_分割的文本)] ＋ #換行符
      計次 ＝ 計次 ＋ 1
    .判斷結束
  .如果真結束
  .如果真 (計次 ＞ 局_進程ID數(shù)目)
    跳出循環(huán) ()
  .如果真結束
.計次循環(huán)尾 ()
返回 (局_變量文本)

運行結果：

總結

以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對腳本之家的支持。如果你想了解更多相關內容請查看下面相關鏈接

相關文章

最新評論