易语言怎么通过监控图标实现QQ消息监控

.版本 2 .DLL命令 GetWindowThreadProcessId___, 整数型, "user32.dll", "GetWindowThreadProcessId" .参数 hwnd, 整数型 .参数 lpdwProcessId, 整数型, 传址 .DLL命令 OpenProcess___, 整数型, "kernel32.dll", "OpenProcess" .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 逻辑型 .参数 dwProcessId, 整数型 .DLL命令 VirtualAllocEx___, 整数型, "kernel32.dll", "VirtualAllocEx" .参数 hProcess, 整数型 .参数 lpAddress, 整数型 .参数 dwSize, 整数型 .参数 flAllocationType, 整数型 .参数 flProtect, 整数型 .DLL命令 SendMessageA_整数型___, 整数型, , "SendMessageA" .参数 hwnd, 整数型 .参数 msg, 整数型 .参数 wparam, 整数型 .参数 lparam, 整数型 .DLL命令 ReadProcessMemory_TBBUTTON32___, 整数型, , "ReadProcessMemory" .参数 hProcess, 整数型 .参数 lpBaseAddress, 整数型 .参数 lpBuffer, TBBUTTON32, 传址 .参数 nSize, 整数型 .参数 lpNumberOfBytesWritten, 整数型 .DLL命令 ReadProcessMemory_TBBUTTON64___, 整数型, , "ReadProcessMemory" .参数 hProcess, 整数型 .参数 lpBaseAddress, 整数型 .参数 lpBuffer, TBBUTTON64, 传址 .参数 nSize, 整数型 .参数 lpNumberOfBytesWritten, 整数型 .DLL命令 ReadProcessMemory_字节集___, 整数型, , "ReadProcessMemory" .参数 hProcess, 整数型 .参数 lpBaseAddress, 整数型 .参数 lpBuffer, 字节集, 传址 .参数 nSize, 整数型 .参数 lpNumberOfBytesWritten, 整数型 .DLL命令 IsWow64Process___, 整数型, "kernel32", "IsWow64Process" .参数 hProcess, 整数型 .参数 Wow64Process, 整数型, 传址 .DLL命令 GetCurrentProcess___, 整数型, , "GetCurrentProcess" .DLL命令 ReadProcessMemory_TRAYDATA32___, 整数型, , "ReadProcessMemory" .参数 hProcess, 整数型 .参数 lpBaseAddress, 整数型 .参数 lpBuffer, TRAYDATA32, 传址 .参数 nSize, 整数型 .参数 lpNumberOfBytesWritten, 整数型 .DLL命令 ReadProcessMemory_TRAYDATA64___, 整数型, , "ReadProcessMemory" .参数 hProcess, 整数型 .参数 lpBaseAddress, 整数型 .参数 lpBuffer, TRAYDATA64, 传址 .参数 nSize, 整数型 .参数 lpNumberOfBytesWritten, 整数型 .DLL命令 VirtualFreeEx___, 逻辑型, , "VirtualFreeEx" .参数 hProcess, 整数型 .参数 lpAddress, 整数型 .参数 dwSize, 整数型 .参数 flAllocationType, 整数型 .DLL命令 CloseHandle___, 整数型, , "CloseHandle" .参数 hwnd, 整数型 .DLL命令 WideCharToMultiByte___, 整数型, , "WideCharToMultiByte" .参数 CodePage, 整数型 .参数 dwFlags, 整数型 .参数 lpWideCharStr, 字节集 .参数 cchWideChar, 整数型 .参数 lpMultiByteStr, 文本型, 传址 .参数 cbMultiByte, 整数型 .参数 lpDefaultChar, 文本型 .参数 lpUsedDefaultChar, 逻辑型 .DLL命令 FindWindow___, 整数型, "user32.dll", "FindWindowA" .参数窗口类名, 文本型 .参数窗口文本, 文本型 .DLL命令 FindWindowExA___, 整数型, "user32", "FindWindowExA" .参数 hwnd1, 整数型 .参数 hwnd2, 整数型 .参数 class, 文本型 .参数 title, 文本型 .DLL命令 GetWindowRect___, 逻辑型, , "GetWindowRect" .参数 hwnd, 整数型 .参数 RECT, RECTData, 传址 .DLL命令 ClientToScreen___, 整数型, "user32.dll", "ClientToScreen", , 取窗口位置 .参数 hwnd, 整数型 .参数 lpPoint, int .DLL命令 SetCursorPos___, , "user32.dll", "SetCursorPos", , 置鼠标位置 .参数 x, 整数型 .参数 y, 整数型 .DLL命令 PostMessageA_整数型___, , , "PostMessageA" .参数 hwnd, 整数型 .参数消息号, 整数型 .参数参数1, 整数型 .参数参数2, 整数型 .DLL命令 EnumProcessModules___, 逻辑型, "psapi.dll", "EnumProcessModules", , 窗口_句柄取文件路径 .参数 hProcess, 整数型 .参数 lphModule, 整数型, 传址 .参数 cb, 整数型 .参数 lpcbNeeded, 整数型, 传址 .DLL命令 GetModuleFileNameExA___, 整数型, "Psapi.dll", "GetModuleFileNameExA", , _进程取全路径名 .参数 hProcess, 整数型 .参数 hModule, 整数型, , 0 .参数 lpFilename, 文本型, , 1000 .参数 nSize, 整数型, , 1000 .DLL命令 CreateThread___, 整数型, , "CreateThread", , 启动线程; 成功返回线程句柄，返回0=失败 .参数 lpThreadAttributes, 整数型 .参数 dwStackSize, 整数型 .参数 lpStartAddress, 子程序指针, , 线程执行函数 .参数 lpParameter, 整数型, , 传入线程参数 .参数 dwCreationFlags, 整数型 .参数 lpThreadId, 整数型, 传址, 返回线程ID .DLL命令 MoveWindow___, 逻辑型, "user32.dll", "MoveWindow" .参数 hwnd, 整数型 .参数左侧位置, 整数型 .参数顶部位置, 整数型 .参数新宽度, 整数型 .参数新高度, 整数型 .参数是否重画, 逻辑型

.版本 2 .数据类型 TBBUTTON32, , 20 .成员 iBitmap, 整数型 .成员 idCommand, 整数型 .成员 fsState, 字节型 .成员 fsStyle, 字节型 .成员 bReserved, 字节型, , "2", win64[6]win32[2] .成员 dwData, 整数型 .成员 iString, 整数型 .数据类型 TBBUTTON64, , 24 .成员 iBitmap, 整数型 .成员 idCommand, 整数型 .成员 fsState, 字节型 .成员 fsStyle, 字节型 .成员 bReserved, 字节型, , "6", win64[6]win32[2] .成员 dwData, 整数型 .成员 iString, 整数型 .数据类型 TRAYDATA32 .成员 hwnd, 整数型 .成员 uID, 整数型 .成员 uCallbackMessage, 整数型 .成员 Reserved1, 整数型, , "2" .成员 hIcon, 整数型 .成员 Reserved2, 整数型, , "3" .成员 ExePath, 字节型, , "255" .数据类型 TRAYDATA64 .成员 hwnd, 整数型 .成员 uID, 整数型 .成员 uCallbackMessage, 整数型 .成员 Reserved1, 整数型, , "3" .成员 hIcon, 整数型 .成员 Reserved2, 整数型, , "5" .成员 ExePath, 字节型, , "255" .数据类型 RECTData .成员 x1, 整数型 .成员 y1, 整数型 .成员 x2, 整数型 .成员 y2, 整数型 .数据类型 int .成员 x .成员 y

.版本 2 .程序集程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码载入 (窗口1, , 真) _临时子程序 () ' 在初始化代码执行完毕后调用测试代码返回 (0) .子程序 _临时子程序 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。注意不要修改本子程序的名称、参数及返回值类型。 .子程序检测系统托盘, 逻辑型, 公开 .参数 _hToolbar, 整数型 .参数 _hwnd, 整数型, 参考 .局部变量 Pid .局部变量 hProcess .局部变量 i .局部变量 lpButton .局部变量 TButton32, TBBUTTON32 .局部变量 TButton64, TBBUTTON64 .局部变量 dwData, 整数型 .局部变量 idCommand, 整数型 .局部变量 TrayData32, TRAYDATA32 .局部变量 TrayData64, TRAYDATA64 .局部变量 hwnd, 整数型 .局部变量 hIcon, 整数型 .局部变量 ExePath, 文本型 .局部变量 szTips, 字节集 .局部变量 int, int .局部变量 value, 逻辑型 .局部变量 b, 整数型 value ＝假 GetWindowThreadProcessId___ (_hToolbar, Pid) hProcess ＝ OpenProcess___ (1082, 假, Pid) .如果真 (hProcess ＞ 0) lpButton ＝ VirtualAllocEx___ (hProcess, 0, 24, 4096, 64) .计次循环首 (SendMessageA_整数型___ (_hToolbar, 1048, 0, 0), i) SendMessageA_整数型___ (_hToolbar, 1047, i － 1, lpButton) .判断开始 (Is64 () ＝假) ReadProcessMemory_TBBUTTON32___ (hProcess, lpButton, TButton32, 20, 0) dwData ＝ TButton32.dwData idCommand ＝ TButton32.idCommand .默认 ReadProcessMemory_TBBUTTON64___ (hProcess, lpButton, TButton64, 24, 0) dwData ＝ TButton64.dwData idCommand ＝ TButton64.idCommand .判断结束 szTips ＝取空白字节集 (100) .判断开始 (SendMessageA_整数型___ (_hToolbar, 1069, idCommand, lpButton) ＝ -1) szTips ＝ { } .默认 ReadProcessMemory_字节集___ (hProcess, lpButton, szTips, 100, 0) .判断结束 .判断开始 (Is64 () ＝假) ReadProcessMemory_TRAYDATA32___ (hProcess, dwData, TrayData32, 300, 0) hwnd ＝ TrayData32.hwnd hIcon ＝ TrayData32.hIcon ExePath ＝ W2A (到字节集 (TrayData32.ExePath)) .默认 ReadProcessMemory_TRAYDATA64___ (hProcess, dwData, TrayData64, 288, 0) hwnd ＝ TrayData64.hwnd hIcon ＝ TrayData64.hIcon ExePath ＝ W2A (到字节集 (TrayData64.ExePath)) .判断结束 .如果真 (ExePath ＝ “”) ExePath ＝ GetProcessPath (hwnd) .如果真结束 .如果真 (i ＝ 1) .如果真 (取文本左边 (到文本 (szTips), 7) ＝ “解决 PC”) b ＝ 1 .如果真结束 .如果真结束 .如果真 (寻找文本 (ExePath, “Bin\QQ.exe”, , 假) ＞ 0) ' 当前图标是QQ .如果真 (到文本 (szTips) ＝ “”) ' QQ图标在闪 int ＝取图标坐标 (_hToolbar, i － b) log (到文本 (i － b)) ' LeftClick (_hToolbar, int.x, int.y) LeftDoubleClick (_hToolbar, int.x, int.y) _hwnd ＝ hwnd value ＝真跳出循环 () .如果真结束 .如果真结束 .计次循环尾 () VirtualFreeEx___ (hProcess, lpButton, 24, 65536) CloseHandle___ (hProcess) .如果真结束返回 (value) .子程序 GetProcessPath, 文本型 .参数 hwnd .局部变量局_进程ID .局部变量局_所需内存 .局部变量局_进程句柄 .局部变量局_模块数组, , , "255" .局部变量局_模块路径, 文本型 .局部变量局_返回路径, 文本型 GetWindowThreadProcessId___ (hwnd, 局_进程ID) .如果真 (局_进程ID ＞ 0) 局_进程句柄＝ OpenProcess___ (位或 (1024, 16), 假, 局_进程ID) .如果真 (局_进程句柄＞ 0) .如果真 (EnumProcessModules___ (局_进程句柄, 局_模块数组 [1], 256, 局_所需内存)) 局_模块路径＝取空白文本 (512) GetModuleFileNameExA___ (局_进程句柄, 局_模块数组 [1], 局_模块路径, 256) .如果 (寻找文本 (局_模块路径, “\??\”, , 假) ≠ -1) 局_返回路径＝子文本替换 (局_模块路径, “\??\”, “”, , , 真) .否则局_返回路径＝局_模块路径 .如果结束处理事件 () .如果真结束 CloseHandle___ (局_进程句柄) .如果真结束处理事件 () .如果真结束返回 (局_返回路径) .子程序取图标坐标, int, , 返回对应的窗口坐标 .参数 hwnd, 整数型 .参数 index, 整数型 .局部变量 r, RECTData .局部变量 z1, int .局部变量 z2, int .局部变量 w1, 整数型, , , 图标宽度 .局部变量 h2, 整数型, , , 图标高度 .局部变量 w2, 整数型 .局部变量 h3, 整数型 .局部变量 num, 整数型 .局部变量 value, 整数型 .如果真 (GetWindowRect___ (hwnd, r)) .如果 (是否已创建 (窗口1)) value ＝到整数 (窗口1.选择框1.选中) .否则 value ＝ 1 .如果结束 num ＝ SendMessageA_整数型___ (hwnd, 1048, 0, 0) － value w1 ＝ r.x2 － r.x1 h2 ＝ r.y2 － r.y1 w2 ＝ w1 ÷ num － value h3 ＝ h2 ÷ 2 －选择 (value ＝ 0, 0, 2) z1.x ＝ w2 × index － w2 ÷ 2 ＋ value z1.y ＝ h2 ÷ 2 －选择 (value ＝ 0, 0, 2) .如果真结束返回 (z1) .子程序取托盘句柄, 整数型, 公开 .局部变量 hShellTray .局部变量 TrayWnd hShellTray ＝ FindWindow___ (“Shell_TrayWnd”, “”) .如果真 (hShellTray ＞ 0) hShellTray ＝ FindWindowExA___ (hShellTray, 0, “TrayNotifyWnd”, 字符 (0)) .如果真 (hShellTray ＞ 0) hShellTray ＝ FindWindowExA___ (hShellTray, 0, “SysPager”, 字符 (0)) .如果真 (hShellTray ＞ 0) TrayWnd ＝ FindWindowExA___ (hShellTray, 0, “ToolbarWindow32”, 字符 (0)) .如果真结束 .如果真结束 .如果真结束返回 (TrayWnd) .子程序 Is64, 逻辑型 .局部变量 IsWow64Process .如果真 (IsWow64Process___ (GetCurrentProcess___ (), IsWow64Process) ≠ 0 且 IsWow64Process ≠ 0) 返回 (真) .如果真结束返回 (假) .子程序 W2A, 文本型 .参数 CharStr, 字节集 .局部变量 len, 整数型 .局部变量 Returned, 文本型 len ＝ WideCharToMultiByte___ (1, 0, CharStr, -1, 字符 (0), 0, 字符 (0), 假) Returned ＝取空白文本 (len) WideCharToMultiByte___ (1, 0, CharStr, -1, Returned, 取文本长度 (Returned), 字符 (0), 假) 返回 (Returned)

.版本 2 .支持库 spec .程序集窗口程序集_窗口1 .程序集变量 _hwnd, 整数型 .程序集变量 _检测, 逻辑型 .子程序 _窗口1_创建完毕 _hwnd ＝取托盘句柄 () .子程序 _检测按钮_被单击 .局部变量 hwnd, 整数型检测系统托盘 (_hwnd, hwnd) .子程序 _移动按钮_被单击 .局部变量 z, int z ＝取图标坐标 (_hwnd, 到整数 (编辑框1.内容)) MoveTo (_hwnd, z.x, z.y) .子程序 log .参数 text, 文本型 .局部变量 time, 文本型 time ＝到文本 (取现行时间 ()) time ＝子文本替换 (time, “年”, “-”, , , 真) time ＝子文本替换 (time, “月”, “-”, , , 真) time ＝子文本替换 (time, “日”, “ ”, , , 真) time ＝子文本替换 (time, “时”, “:”, , , 真) time ＝子文本替换 (time, “分”, “:”, , , 真) time ＝子文本替换 (time, “秒”, “”, , , 真) 监听编辑框.加入文本 (time ＋ “ ” ＋ text ＋ #换行符) .子程序 _开始按钮_被单击 .如果真 (_检测) 返回 () .如果真结束 _检测＝真 log (“开始检测”) CloseHandle___ (CreateThread___ (0, 0, &递归检查, 0, 0, 0)) .子程序 _停止按钮_被单击 _检测＝假 .子程序递归检查 .局部变量 value, 逻辑型 .局部变量 hwnd, 整数型 .局部变量 PID, 整数型 .如果真 (_检测) value ＝检测系统托盘 (_hwnd, hwnd) .如果真 (value) GetWindowThreadProcessId___ (hwnd, PID) 调试输出 (hwnd, PID) log (“收到新消息”) 处理事件 () 延时 (1000) 处理事件 () 子_执行模拟 (PID) 处理事件 () .如果真结束处理事件 () 延时 (选择 (value, 200, 1 × 1000)) 处理事件 () CloseHandle___ (CreateThread___ (0, 0, &递归检查, 0, 0, 0)) 返回 () .如果真结束 log (“停止检测”) .子程序子_执行模拟 .参数 Pid, 整数型 .局部变量 nun, 整数型 .局部变量窗口, 精易_窗口信息, , "0" .局部变量 i, 整数型 .局部变量矩形, RECTData .局部变量 hwnds, 整数型 .局部变量 msg, 文本型 nun ＝窗口_枚举 (窗口) .计次循环首 (nun, i) .如果真 (窗口 [i].窗口类名＝ “TXGuiFoundation” 且窗口 [i].进程ID ＝ Pid) ' 判断打开的窗口是不是之前点击的进程 .判断开始 (窗口 [i].窗口标题＝ “”) .判断 (窗口 [i].窗口标题＝ “TXMenuWindow”) .判断 (窗口 [i].窗口标题＝ “QQ”) .判断 (窗口 [i].窗口标题＝ “验证消息”) log (“验证消息”) 延时 (3500) ' 这里需要延时才能显示出来 LeftClick (窗口 [i].窗口句柄, 450, 130) ' 好友请求 LeftClick (窗口 [i].窗口句柄, 500, 120) ' 群请求延时 (100) LeftClick (FindWindow___ (“TXGuiFoundation”, “添加”), 218, 150) ' 同意延时 (100) PostMessageA_整数型___ (窗口 [i].窗口句柄, 16, 0, 0) 返回 () .默认 GetWindowRect___ (窗口 [i].窗口句柄, 矩形) .如果真 (矩形.x2 ≠ 500 或矩形.y2 ≠ 500) MoveWindow___ (窗口 [i].窗口句柄, 10, 10, 500, 500, 真) 延时 (100) .如果真结束 LeftClick (窗口 [i].窗口句柄, 380, 65) 延时 (100) hwnds ＝ FindWindow___ (“TXGuiFoundation”, “TXMenuWindow”) .如果真 (hwnds ＞ 0) GetWindowRect___ (hwnds, 矩形) .如果真 (矩形.x2 －矩形.x1 ＝ 165 且矩形.y2 －矩形.y1 ＝ 198) log (“群消息”) PostMessageA_整数型___ (窗口 [i].窗口句柄, 16, 0, 0) 返回 () .如果真结束 .如果真结束 LeftClick (窗口 [i].窗口句柄, 225, 65) 延时 (100) hwnds ＝ FindWindowExA___ (0, 0, “TXGuiFoundation”, “TXMenuWindow”) .如果真 (hwnds ＞ 0) GetWindowRect___ (hwnds, 矩形) .判断开始 (矩形.x2 －矩形.x1 ＝ 129 且矩形.y2 －矩形.y1 ＝ 80) log (“临时会话消息”) PostMessageA_整数型___ (窗口 [i].窗口句柄, 16, 0, 0) 返回 () .判断 (矩形.x2 －矩形.x1 ＝ 165 且矩形.y2 －矩形.y1 ＝ 84) log (“好友消息”) LeftClick (窗口 [i].窗口句柄, 220, 420) 延时 (20) msg ＝ “http://www.hibbba.com/ 贝贝吧” 文本_投递 (窗口 [i].窗口句柄, msg) 延时 (20) LeftClick (窗口 [i].窗口句柄, 430, 490) 延时 (100) PostMessageA_整数型___ (窗口 [i].窗口句柄, 16, 0, 0) 延时 (100) LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 225, 140) 返回 () .判断 (矩形.x2 －矩形.x1 ＝ 153 且矩形.y2 －矩形.y1 ＝ 80) log (“讨论组消息”) LeftClick (窗口 [i].窗口句柄, 266, 84) 延时 (100) LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 225, 140) 延时 (200) .如果真 (FindWindow___ (“TXGuiFoundation”, “提示”) ＞ 0) log (“执行退出讨论组”) LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 296, 138) .如果真结束返回 () .默认 .判断结束 .如果真结束 .判断结束 .如果真结束 .计次循环尾 () .子程序 MoveTo .参数 hwnd .参数 x .参数 y .局部变量 int, int ClientToScreen___ (hwnd, int) SetCursorPos___ (int.x ＋ x, int.y ＋ y) ' 对应屏幕的坐标 .子程序 LeftClick .参数 hwnd .参数 x .参数 y .局部变量 value, 整数型 value ＝ x ＋ y × 65536 PostMessageA_整数型___ (hwnd, 512, 2, value) PostMessageA_整数型___ (hwnd, 513, 1, value) PostMessageA_整数型___ (hwnd, 514, 0, value) .子程序 LeftDoubleClick .参数 hwnd .参数 x .参数 y .局部变量 value, 整数型 value ＝ x ＋ y × 65536 PostMessageA_整数型___ (hwnd, 512, 2, value) PostMessageA_整数型___ (hwnd, 513, 1, value) PostMessageA_整数型___ (hwnd, 514, 0, value) PostMessageA_整数型___ (hwnd, 515, 0, value) .子程序 _窗口1_将被销毁 _停止按钮_被单击 ()

相关阅读