欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

易語言通過監(jiān)控圖標實現(xiàn)QQ消息監(jiān)控的代碼

 更新時間：2018年11月30日 08:29:45   作者：易語言源碼貝貝吧  
今天小編就為大家分享一篇關于易語言通過監(jiān)控圖標實現(xiàn)QQ消息監(jiān)控的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 GetWindowThreadProcessId___, 整數(shù)型, "user32.dll", "GetWindowThreadProcessId"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpdwProcessId, 整數(shù)型, 傳址
.DLL命令 OpenProcess___, 整數(shù)型, "kernel32.dll", "OpenProcess"
  .參數(shù) dwDesiredAccess, 整數(shù)型
  .參數(shù) bInheritHandle, 邏輯型
  .參數(shù) dwProcessId, 整數(shù)型
.DLL命令 VirtualAllocEx___, 整數(shù)型, "kernel32.dll", "VirtualAllocEx"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpAddress, 整數(shù)型
  .參數(shù) dwSize, 整數(shù)型
  .參數(shù) flAllocationType, 整數(shù)型
  .參數(shù) flProtect, 整數(shù)型
.DLL命令 SendMessageA_整數(shù)型___, 整數(shù)型, , "SendMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) msg, 整數(shù)型
  .參數(shù) wparam, 整數(shù)型
  .參數(shù) lparam, 整數(shù)型
.DLL命令 ReadProcessMemory_TBBUTTON32___, 整數(shù)型, , "ReadProcessMemory"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpBaseAddress, 整數(shù)型
  .參數(shù) lpBuffer, TBBUTTON32, 傳址
  .參數(shù) nSize, 整數(shù)型
  .參數(shù) lpNumberOfBytesWritten, 整數(shù)型
.DLL命令 ReadProcessMemory_TBBUTTON64___, 整數(shù)型, , "ReadProcessMemory"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpBaseAddress, 整數(shù)型
  .參數(shù) lpBuffer, TBBUTTON64, 傳址
  .參數(shù) nSize, 整數(shù)型
  .參數(shù) lpNumberOfBytesWritten, 整數(shù)型
.DLL命令 ReadProcessMemory_字節(jié)集___, 整數(shù)型, , "ReadProcessMemory"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpBaseAddress, 整數(shù)型
  .參數(shù) lpBuffer, 字節(jié)集, 傳址
  .參數(shù) nSize, 整數(shù)型
  .參數(shù) lpNumberOfBytesWritten, 整數(shù)型
.DLL命令 IsWow64Process___, 整數(shù)型, "kernel32", "IsWow64Process"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) Wow64Process, 整數(shù)型, 傳址
.DLL命令 GetCurrentProcess___, 整數(shù)型, , "GetCurrentProcess"
.DLL命令 ReadProcessMemory_TRAYDATA32___, 整數(shù)型, , "ReadProcessMemory"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpBaseAddress, 整數(shù)型
  .參數(shù) lpBuffer, TRAYDATA32, 傳址
  .參數(shù) nSize, 整數(shù)型
  .參數(shù) lpNumberOfBytesWritten, 整數(shù)型
.DLL命令 ReadProcessMemory_TRAYDATA64___, 整數(shù)型, , "ReadProcessMemory"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpBaseAddress, 整數(shù)型
  .參數(shù) lpBuffer, TRAYDATA64, 傳址
  .參數(shù) nSize, 整數(shù)型
  .參數(shù) lpNumberOfBytesWritten, 整數(shù)型
.DLL命令 VirtualFreeEx___, 邏輯型, , "VirtualFreeEx"
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lpAddress, 整數(shù)型
  .參數(shù) dwSize, 整數(shù)型
  .參數(shù) flAllocationType, 整數(shù)型
.DLL命令 CloseHandle___, 整數(shù)型, , "CloseHandle"
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 WideCharToMultiByte___, 整數(shù)型, , "WideCharToMultiByte"
  .參數(shù) CodePage, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
  .參數(shù) lpWideCharStr, 字節(jié)集
  .參數(shù) cchWideChar, 整數(shù)型
  .參數(shù) lpMultiByteStr, 文本型, 傳址
  .參數(shù) cbMultiByte, 整數(shù)型
  .參數(shù) lpDefaultChar, 文本型
  .參數(shù) lpUsedDefaultChar, 邏輯型
.DLL命令 FindWindow___, 整數(shù)型, "user32.dll", "FindWindowA"
  .參數(shù) 窗口類名, 文本型
  .參數(shù) 窗口文本, 文本型
.DLL命令 FindWindowExA___, 整數(shù)型, "user32", "FindWindowExA"
  .參數(shù) hwnd1, 整數(shù)型
  .參數(shù) hwnd2, 整數(shù)型
  .參數(shù) class, 文本型
  .參數(shù) title, 文本型
.DLL命令 GetWindowRect___, 邏輯型, , "GetWindowRect"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) RECT, RECTData, 傳址
.DLL命令 ClientToScreen___, 整數(shù)型, "user32.dll", "ClientToScreen", , 取窗口位置
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpPoint, int
.DLL命令 SetCursorPos___, , "user32.dll", "SetCursorPos", , 置鼠標位置 
  .參數(shù) x, 整數(shù)型
  .參數(shù) y, 整數(shù)型
.DLL命令 PostMessageA_整數(shù)型___, , , "PostMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) 消息號, 整數(shù)型
  .參數(shù) 參數(shù)1, 整數(shù)型
  .參數(shù) 參數(shù)2, 整數(shù)型
.DLL命令 EnumProcessModules___, 邏輯型, "psapi.dll", "EnumProcessModules", , 窗口_句柄取文件路徑
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) lphModule, 整數(shù)型, 傳址
  .參數(shù) cb, 整數(shù)型
  .參數(shù) lpcbNeeded, 整數(shù)型, 傳址
.DLL命令 GetModuleFileNameExA___, 整數(shù)型, "Psapi.dll", "GetModuleFileNameExA", , _進程取全路徑名
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) hModule, 整數(shù)型, , 0
  .參數(shù) lpFilename, 文本型, , 1000
  .參數(shù) nSize, 整數(shù)型, , 1000
.DLL命令 CreateThread___, 整數(shù)型, , "CreateThread", , 啟動線程; 成功返回線程句柄，返回0=失敗
  .參數(shù) lpThreadAttributes, 整數(shù)型
  .參數(shù) dwStackSize, 整數(shù)型
  .參數(shù) lpStartAddress, 子程序指針, , 線程執(zhí)行函數(shù)
  .參數(shù) lpParameter, 整數(shù)型, , 傳入線程參數(shù)
  .參數(shù) dwCreationFlags, 整數(shù)型
  .參數(shù) lpThreadId, 整數(shù)型, 傳址, 返回線程ID
.DLL命令 MoveWindow___, 邏輯型, "user32.dll", "MoveWindow"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) 左側位置, 整數(shù)型
  .參數(shù) 頂部位置, 整數(shù)型
  .參數(shù) 新寬度, 整數(shù)型
  .參數(shù) 新高度, 整數(shù)型
  .參數(shù) 是否重畫, 邏輯型

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

.版本 2
.數(shù)據(jù)類型 TBBUTTON32, , 20
  .成員 iBitmap, 整數(shù)型
  .成員 idCommand, 整數(shù)型
  .成員 fsState, 字節(jié)型
  .成員 fsStyle, 字節(jié)型
  .成員 bReserved, 字節(jié)型, , "2", win64[6]win32[2]
  .成員 dwData, 整數(shù)型
  .成員 iString, 整數(shù)型
.數(shù)據(jù)類型 TBBUTTON64, , 24
  .成員 iBitmap, 整數(shù)型
  .成員 idCommand, 整數(shù)型
  .成員 fsState, 字節(jié)型
  .成員 fsStyle, 字節(jié)型
  .成員 bReserved, 字節(jié)型, , "6", win64[6]win32[2]
  .成員 dwData, 整數(shù)型
  .成員 iString, 整數(shù)型
.數(shù)據(jù)類型 TRAYDATA32
  .成員 hwnd, 整數(shù)型
  .成員 uID, 整數(shù)型
  .成員 uCallbackMessage, 整數(shù)型
  .成員 Reserved1, 整數(shù)型, , "2"
  .成員 hIcon, 整數(shù)型
  .成員 Reserved2, 整數(shù)型, , "3"
  .成員 ExePath, 字節(jié)型, , "255"
.數(shù)據(jù)類型 TRAYDATA64
  .成員 hwnd, 整數(shù)型
  .成員 uID, 整數(shù)型
  .成員 uCallbackMessage, 整數(shù)型
  .成員 Reserved1, 整數(shù)型, , "3"
  .成員 hIcon, 整數(shù)型
  .成員 Reserved2, 整數(shù)型, , "5"
  .成員 ExePath, 字節(jié)型, , "255"
.數(shù)據(jù)類型 RECTData
  .成員 x1, 整數(shù)型
  .成員 y1, 整數(shù)型
  .成員 x2, 整數(shù)型
  .成員 y2, 整數(shù)型
.數(shù)據(jù)類型 int
  .成員 x
  .成員 y

圖標監(jiān)控

.版本 2
.程序集 程序集1
.子程序 _啟動子程序, 整數(shù)型, , 請在本子程序中放置易模塊初始化代碼
載入 (窗口1, , 真)
_臨時子程序 () ' 在初始化代碼執(zhí)行完畢后調(diào)用測試代碼
返回 (0)
.子程序 _臨時子程序
' 本名稱子程序用作測試程序用，僅在開發(fā)及調(diào)試環(huán)境中有效，編譯發(fā)布程序前將被系統(tǒng)自動清空，請將所有用作測試的臨時代碼放在本子程序中。 注意不要修改本子程序的名稱、參數(shù)及返回值類型。
.子程序 檢測系統(tǒng)托盤, 邏輯型, 公開
.參數(shù) _hToolbar, 整數(shù)型
.參數(shù) _hwnd, 整數(shù)型, 參考
.局部變量 Pid
.局部變量 hProcess
.局部變量 i
.局部變量 lpButton
.局部變量 TButton32, TBBUTTON32
.局部變量 TButton64, TBBUTTON64
.局部變量 dwData, 整數(shù)型
.局部變量 idCommand, 整數(shù)型
.局部變量 TrayData32, TRAYDATA32
.局部變量 TrayData64, TRAYDATA64
.局部變量 hwnd, 整數(shù)型
.局部變量 hIcon, 整數(shù)型
.局部變量 ExePath, 文本型
.局部變量 szTips, 字節(jié)集
.局部變量 int, int
.局部變量 value, 邏輯型
.局部變量 b, 整數(shù)型
value ＝ 假
GetWindowThreadProcessId___ (_hToolbar, Pid)
hProcess ＝ OpenProcess___ (1082, 假, Pid)
.如果真 (hProcess ＞ 0)
  lpButton ＝ VirtualAllocEx___ (hProcess, 0, 24, 4096, 64)
  .計次循環(huán)首 (SendMessageA_整數(shù)型___ (_hToolbar, 1048, 0, 0), i)
    SendMessageA_整數(shù)型___ (_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 ＝ 取空白字節(jié)集 (100)
    .判斷開始 (SendMessageA_整數(shù)型___ (_hToolbar, 1069, idCommand, lpButton) ＝ -1)
      szTips ＝ { }
    .默認
      ReadProcessMemory_字節(jié)集___ (hProcess, lpButton, szTips, 100, 0)
    .判斷結束
    .判斷開始 (Is64 () ＝ 假)
      ReadProcessMemory_TRAYDATA32___ (hProcess, dwData, TrayData32, 300, 0)
      hwnd ＝ TrayData32.hwnd
      hIcon ＝ TrayData32.hIcon
      ExePath ＝ W2A (到字節(jié)集 (TrayData32.ExePath))
    .默認
      ReadProcessMemory_TRAYDATA64___ (hProcess, dwData, TrayData64, 288, 0)
      hwnd ＝ TrayData64.hwnd
      hIcon ＝ TrayData64.hIcon
      ExePath ＝ W2A (到字節(jié)集 (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 ＝ 真
        跳出循環(huán) ()
      .如果真結束
    .如果真結束
  .計次循環(huán)尾 ()
  VirtualFreeEx___ (hProcess, lpButton, 24, 65536)
  CloseHandle___ (hProcess)
.如果真結束
返回 (value)
.子程序 GetProcessPath, 文本型
.參數(shù) hwnd
.局部變量 局_進程ID
.局部變量 局_所需內(nèi)存
.局部變量 局_進程句柄
.局部變量 局_模塊數(shù)組, , , "255"
.局部變量 局_模塊路徑, 文本型
.局部變量 局_返回路徑, 文本型
GetWindowThreadProcessId___ (hwnd, 局_進程ID)
.如果真 (局_進程ID ＞ 0)
  局_進程句柄 ＝ OpenProcess___ (位或 (1024, 16), 假, 局_進程ID)
  .如果真 (局_進程句柄 ＞ 0)
    .如果真 (EnumProcessModules___ (局_進程句柄, 局_模塊數(shù)組 [1], 256, 局_所需內(nèi)存))
      局_模塊路徑 ＝ 取空白文本 (512)
      GetModuleFileNameExA___ (局_進程句柄, 局_模塊數(shù)組 [1], 局_模塊路徑, 256)
      .如果 (尋找文本 (局_模塊路徑, “\??\”, , 假) ≠ -1)
        局_返回路徑 ＝ 子文本替換 (局_模塊路徑, “\??\”, “”, , , 真)
      .否則
        局_返回路徑 ＝ 局_模塊路徑
      .如果結束
      處理事件 ()
    .如果真結束
    CloseHandle___ (局_進程句柄)
  .如果真結束
  處理事件 ()
.如果真結束
返回 (局_返回路徑)
.子程序 取圖標坐標, int, , 返回對應的窗口坐標
.參數(shù) hwnd, 整數(shù)型
.參數(shù) index, 整數(shù)型
.局部變量 r, RECTData
.局部變量 z1, int
.局部變量 z2, int
.局部變量 w1, 整數(shù)型, , , 圖標寬度
.局部變量 h1, 整數(shù)型, , , 圖標高度
.局部變量 w2, 整數(shù)型
.局部變量 h2, 整數(shù)型
.局部變量 num, 整數(shù)型
.局部變量 value, 整數(shù)型
.如果真 (GetWindowRect___ (hwnd, r))
  .如果 (是否已創(chuàng)建 (窗口1))
    value ＝ 到整數(shù) (窗口1.選擇框1.選中)
  .否則
    value ＝ 1
  .如果結束
  num ＝ SendMessageA_整數(shù)型___ (hwnd, 1048, 0, 0) － value
  w1 ＝ r.x2 － r.x1
  h1 ＝ r.y2 － r.y1
  w2 ＝ w1 ÷ num － value
  h2 ＝ h1 ÷ 2 － 選擇 (value ＝ 0, 0, 2)
  z1.x ＝ w2 × index － w2 ÷ 2 ＋ value
  z1.y ＝ h1 ÷ 2 － 選擇 (value ＝ 0, 0, 2)
.如果真結束
返回 (z1)
.子程序 取托盤句柄, 整數(shù)型, 公開
.局部變量 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, 文本型
.參數(shù) CharStr, 字節(jié)集
.局部變量 len, 整數(shù)型
.局部變量 Returned, 文本型
len ＝ WideCharToMultiByte___ (1, 0, CharStr, -1, 字符 (0), 0, 字符 (0), 假)
Returned ＝ 取空白文本 (len)
WideCharToMultiByte___ (1, 0, CharStr, -1, Returned, 取文本長度 (Returned), 字符 (0), 假)
返回 (Returned)

QQ新消息監(jiān)聽

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

.版本 2
.支持庫 spec
.程序集 窗口程序集_窗口1
.程序集變量 _hwnd, 整數(shù)型
.程序集變量 _檢測, 邏輯型
.子程序 _窗口1_創(chuàng)建完畢
_hwnd ＝ 取托盤句柄 ()
.子程序 _檢測按鈕_被單擊
.局部變量 hwnd, 整數(shù)型
檢測系統(tǒng)托盤 (_hwnd, hwnd)
.子程序 _移動按鈕_被單擊
.局部變量 z, int
z ＝ 取圖標坐標 (_hwnd, 到整數(shù) (編輯框1.內(nèi)容))
MoveTo (_hwnd, z.x, z.y)
.子程序 log
.參數(shù) text, 文本型
.局部變量 time, 文本型
time ＝ 到文本 (取現(xiàn)行時間 ())
time ＝ 子文本替換 (time, “年”, “-”, , , 真)
time ＝ 子文本替換 (time, “月”, “-”, , , 真)
time ＝ 子文本替換 (time, “日”, “ ”, , , 真)
time ＝ 子文本替換 (time, “時”, “:”, , , 真)
time ＝ 子文本替換 (time, “分”, “:”, , , 真)
time ＝ 子文本替換 (time, “秒”, “”, , , 真)
監(jiān)聽編輯框.加入文本 (time ＋ “ ” ＋ text ＋ #換行符)
.子程序 _開始按鈕_被單擊
.如果真 (_檢測)
  返回 ()
.如果真結束
_檢測 ＝ 真
log (“開始檢測”)
CloseHandle___ (CreateThread___ (0, 0, &遞歸檢查, 0, 0, 0))
.子程序 _停止按鈕_被單擊
_檢測 ＝ 假
.子程序 遞歸檢查
.局部變量 value, 邏輯型
.局部變量 hwnd, 整數(shù)型
.局部變量 PID, 整數(shù)型
.如果真 (_檢測)
  value ＝ 檢測系統(tǒng)托盤 (_hwnd, hwnd)
  .如果真 (value)
    GetWindowThreadProcessId___ (hwnd, PID)
    調(diào)試輸出 (hwnd, PID)
    log (“收到新消息”)
    處理事件 ()
    延時 (1000)
    處理事件 ()
    子_執(zhí)行模擬 (PID)
    處理事件 ()
  .如果真結束
  處理事件 ()
  延時 (選擇 (value, 200, 1 × 1000))
  處理事件 ()
  CloseHandle___ (CreateThread___ (0, 0, &遞歸檢查, 0, 0, 0))
  返回 ()
.如果真結束
log (“停止檢測”)
.子程序 子_執(zhí)行模擬
.參數(shù) Pid, 整數(shù)型
.局部變量 nun, 整數(shù)型
.局部變量 窗口, 精易_窗口信息, , "0"
.局部變量 i, 整數(shù)型
.局部變量 矩形, RECTData
.局部變量 hwnds, 整數(shù)型
.局部變量 msg, 文本型
nun ＝ 窗口_枚舉 (窗口)
.計次循環(huán)首 (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_整數(shù)型___ (窗口 [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_整數(shù)型___ (窗口 [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_整數(shù)型___ (窗口 [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_整數(shù)型___ (窗口 [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 (“執(zhí)行退出討論組”)
            LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 296, 138)
          .如果真結束
          返回 ()
        .默認
        .判斷結束
      .如果真結束
    .判斷結束
  .如果真結束
.計次循環(huán)尾 ()
.子程序 MoveTo
.參數(shù) hwnd
.參數(shù) x
.參數(shù) y
.局部變量 int, int
ClientToScreen___ (hwnd, int)
SetCursorPos___ (int.x ＋ x, int.y ＋ y) ' 對應屏幕的坐標
.子程序 LeftClick
.參數(shù) hwnd
.參數(shù) x
.參數(shù) y
.局部變量 value, 整數(shù)型
value ＝ x ＋ y × 65536
PostMessageA_整數(shù)型___ (hwnd, 512, 2, value)
PostMessageA_整數(shù)型___ (hwnd, 513, 1, value)
PostMessageA_整數(shù)型___ (hwnd, 514, 0, value)
.子程序 LeftDoubleClick
.參數(shù) hwnd
.參數(shù) x
.參數(shù) y
.局部變量 value, 整數(shù)型
value ＝ x ＋ y × 65536
PostMessageA_整數(shù)型___ (hwnd, 512, 2, value)
PostMessageA_整數(shù)型___ (hwnd, 513, 1, value)
PostMessageA_整數(shù)型___ (hwnd, 514, 0, value)
PostMessageA_整數(shù)型___ (hwnd, 515, 0, value)
.子程序 _窗口1_將被銷毀
_停止按鈕_被單擊 ()

運行結果：

總結

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

您可能感興趣的文章:

相關文章

  • 易語言使用變量循環(huán)首命令顯示0到50之間所有偶數(shù)的代碼

    易語言使用變量循環(huán)首命令顯示0到50之間所有偶數(shù)的代碼

    今天小編就為大家分享一篇關于易語言使用變量循環(huán)首命令顯示0到50之間所有偶數(shù)的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言改變調(diào)節(jié)器的方向

    易語言改變調(diào)節(jié)器的方向

    今天小編就為大家分享一篇關于易語言改變調(diào)節(jié)器的方向，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 詳解易語言按鈕結束和銷毀的應用

    詳解易語言按鈕結束和銷毀的應用

    在本篇文章里小編給大家分享了關于易語言按鈕結束和銷毀的應用知識點，有需要的朋友們可以學習下。
    2019-01-01
  • 易語言新建窗口的步驟教學

    易語言新建窗口的步驟教學

    在本文內(nèi)容里小編給大家整理的是關于易語言如何新建窗口的這個知識點內(nèi)容，需要的朋友們可以學習下。
    2018-12-12
  • 用易語言設置簡單的軟件界面步驟

    用易語言設置簡單的軟件界面步驟

    在本篇內(nèi)容里小編給大家分享的是關于用易語言設置簡單的軟件界面步驟和方法，需要的朋友們可以學習下。
    2018-12-12
  • 易語言修改快捷方式進行微信多開的代碼

    易語言修改快捷方式進行微信多開的代碼

    今天小編就為大家分享一篇關于易語言修改快捷方式進行微信多開的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言調(diào)用易模塊的方法

    易語言調(diào)用易模塊的方法

    在本文中小編整理的是關于易語言調(diào)用易模塊的方法教學，有需要的朋友們可以跟著學習下。
    2018-12-12
  • 易語言通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群的代碼

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

    今天小編就為大家分享一篇關于易語言通過按鍵模擬的方式實現(xiàn)QQ后臺加人加群的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言取隨機數(shù)命令使用講解

    易語言取隨機數(shù)命令使用講解

    今天小編就為大家分享一篇關于易語言取隨機數(shù)命令使用講解，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言去除多余的支持庫方法

    易語言去除多余的支持庫方法

    在本篇內(nèi)容里小編給大家分享了關于易語言去除多余的支持庫方法，對此有需要的朋友們學習下。
    2018-12-12

最新評論