激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務(wù)器之家:專注于服務(wù)器技術(shù)及軟件下載分享
分類導(dǎo)航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達(dá)式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務(wù)器之家 - 編程語言 - 易語言 - 易語言通過監(jiān)控圖標(biāo)實(shí)現(xiàn)QQ消息監(jiān)控的代碼

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

2022-02-22 15:51易語言源碼貝貝吧 易語言

今天小編就為大家分享一篇關(guān)于易語言通過監(jiān)控圖標(biāo)實(shí)現(xiàn)QQ消息監(jiān)控的代碼,小編覺得內(nèi)容挺不錯(cuò)的,現(xiàn)在分享給大家,具有很好的參考價(jià)值,需要的朋友一起跟隨小編來看看吧

DLL命令表

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
.版本 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", , 置鼠標(biāo)位置
  .參數(shù) x, 整數(shù)型
  .參數(shù) y, 整數(shù)型
.DLL命令 PostMessageA_整數(shù)型___, , , "PostMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) 消息號(hào), 整數(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", , _進(jìn)程取全路徑名
  .參數(shù) hProcess, 整數(shù)型
  .參數(shù) hModule, 整數(shù)型, , 0
  .參數(shù) lpFilename, 文本型, , 1000
  .參數(shù) nSize, 整數(shù)型, , 1000
.DLL命令 CreateThread___, 整數(shù)型, , "CreateThread", , 啟動(dòng)線程; 成功返回線程句柄,返回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ù) 左側(cè)位置, 整數(shù)型
  .參數(shù) 頂部位置, 整數(shù)型
  .參數(shù) 新寬度, 整數(shù)型
  .參數(shù) 新高度, 整數(shù)型
  .參數(shù) 是否重畫, 邏輯型

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
.版本 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

圖標(biāo)監(jiān)控

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
.版本 2
.程序集 程序集1
.子程序 _啟動(dòng)子程序, 整數(shù)型, , 請(qǐng)?jiān)诒咀映绦蛑蟹胖靡啄K初始化代碼
載入 (窗口1, , 真)
_臨時(shí)子程序 () ' 在初始化代碼執(zhí)行完畢后調(diào)用測試代碼
返回 (0)
.子程序 _臨時(shí)子程序
' 本名稱子程序用作測試程序用,僅在開發(fā)及調(diào)試環(huán)境中有效,編譯發(fā)布程序前將被系統(tǒng)自動(dòng)清空,請(qǐng)將所有用作測試的臨時(shí)代碼放在本子程序中。 注意不要修改本子程序的名稱、參數(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)
  .計(jì)次循環(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
    .默認(rèn)
      ReadProcessMemory_TBBUTTON64___ (hProcess, lpButton, TButton64, 24, 0)
      dwData = TButton64.dwData
      idCommand = TButton64.idCommand
    .判斷結(jié)束
    szTips = 取空白字節(jié)集 (100)
    .判斷開始 (SendMessageA_整數(shù)型___ (_hToolbar, 1069, idCommand, lpButton) = -1)
      szTips = { }
    .默認(rèn)
      ReadProcessMemory_字節(jié)集___ (hProcess, lpButton, szTips, 100, 0)
    .判斷結(jié)束
    .判斷開始 (Is64 () = 假)
      ReadProcessMemory_TRAYDATA32___ (hProcess, dwData, TrayData32, 300, 0)
      hwnd = TrayData32.hwnd
      hIcon = TrayData32.hIcon
      ExePath = W2A (到字節(jié)集 (TrayData32.ExePath))
    .默認(rèn)
      ReadProcessMemory_TRAYDATA64___ (hProcess, dwData, TrayData64, 288, 0)
      hwnd = TrayData64.hwnd
      hIcon = TrayData64.hIcon
      ExePath = W2A (到字節(jié)集 (TrayData64.ExePath))
    .判斷結(jié)束
    .如果真 (ExePath = “”)
      ExePath = GetProcessPath (hwnd)
    .如果真結(jié)束
    .如果真 (i = 1)
      .如果真 (取文本左邊 (到文本 (szTips), 7) = “解決 PC”)
        b = 1
      .如果真結(jié)束
    .如果真結(jié)束
    .如果真 (尋找文本 (ExePath, “Bin\QQ.exe”, , 假) > 0) ' 當(dāng)前圖標(biāo)是QQ
      .如果真 (到文本 (szTips) = “”) ' QQ圖標(biāo)在閃
        int = 取圖標(biāo)坐標(biāo) (_hToolbar, i - b)
        log (到文本 (i - b))
        ' LeftClick (_hToolbar, int.x, int.y)
        LeftDoubleClick (_hToolbar, int.x, int.y)
        _hwnd = hwnd
        value = 真
        跳出循環(huán) ()
      .如果真結(jié)束
    .如果真結(jié)束
  .計(jì)次循環(huán)尾 ()
  VirtualFreeEx___ (hProcess, lpButton, 24, 65536)
  CloseHandle___ (hProcess)
.如果真結(jié)束
返回 (value)
.子程序 GetProcessPath, 文本型
.參數(shù) hwnd
.局部變量 局_進(jìn)程ID
.局部變量 局_所需內(nèi)存
.局部變量 局_進(jìn)程句柄
.局部變量 局_模塊數(shù)組, , , "255"
.局部變量 局_模塊路徑, 文本型
.局部變量 局_返回路徑, 文本型
GetWindowThreadProcessId___ (hwnd, 局_進(jìn)程ID)
.如果真 (局_進(jìn)程ID > 0)
  局_進(jìn)程句柄 = OpenProcess___ (位或 (1024, 16), 假, 局_進(jìn)程ID)
  .如果真 (局_進(jìn)程句柄 > 0)
    .如果真 (EnumProcessModules___ (局_進(jìn)程句柄, 局_模塊數(shù)組 [1], 256, 局_所需內(nèi)存))
      局_模塊路徑 = 取空白文本 (512)
      GetModuleFileNameExA___ (局_進(jìn)程句柄, 局_模塊數(shù)組 [1], 局_模塊路徑, 256)
      .如果 (尋找文本 (局_模塊路徑, “\??\”, , 假) ≠ -1)
        局_返回路徑 = 子文本替換 (局_模塊路徑, “\??\”, “”, , , 真)
      .否則
        局_返回路徑 = 局_模塊路徑
      .如果結(jié)束
      處理事件 ()
    .如果真結(jié)束
    CloseHandle___ (局_進(jìn)程句柄)
  .如果真結(jié)束
  處理事件 ()
.如果真結(jié)束
返回 (局_返回路徑)
.子程序 取圖標(biāo)坐標(biāo), int, , 返回對(duì)應(yīng)的窗口坐標(biāo)
.參數(shù) hwnd, 整數(shù)型
.參數(shù) index, 整數(shù)型
.局部變量 r, RECTData
.局部變量 z1, int
.局部變量 z2, int
.局部變量 w1, 整數(shù)型, , , 圖標(biāo)寬度
.局部變量 h1, 整數(shù)型, , , 圖標(biāo)高度
.局部變量 w2, 整數(shù)型
.局部變量 h2, 整數(shù)型
.局部變量 num, 整數(shù)型
.局部變量 value, 整數(shù)型
.如果真 (GetWindowRect___ (hwnd, r))
  .如果 (是否已創(chuàng)建 (窗口1))
    value = 到整數(shù) (窗口1.選擇框1.選中)
  .否則
    value = 1
  .如果結(jié)束
  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)
.如果真結(jié)束
返回 (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))
    .如果真結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
返回 (TrayWnd)
.子程序 Is64, 邏輯型
.局部變量 IsWow64Process
.如果真 (IsWow64Process___ (GetCurrentProcess___ (), IsWow64Process) ≠ 0 且 IsWow64Process ≠ 0)
  返回 (真)
.如果真結(jié)束
返回 (假)
.子程序 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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
.版本 2
.支持庫 spec
.程序集 窗口程序集_窗口1
.程序集變量 _hwnd, 整數(shù)型
.程序集變量 _檢測, 邏輯型
.子程序 _窗口1_創(chuàng)建完畢
_hwnd = 取托盤句柄 ()
.子程序 _檢測按鈕_被單擊
.局部變量 hwnd, 整數(shù)型
檢測系統(tǒng)托盤 (_hwnd, hwnd)
.子程序 _移動(dòng)按鈕_被單擊
.局部變量 z, int
z = 取圖標(biāo)坐標(biāo) (_hwnd, 到整數(shù) (編輯框1.內(nèi)容))
MoveTo (_hwnd, z.x, z.y)
.子程序 log
.參數(shù) text, 文本型
.局部變量 time, 文本型
time = 到文本 (取現(xiàn)行時(shí)間 ())
time = 子文本替換 (time, “年”, “-”, , , 真)
time = 子文本替換 (time, “月”, “-”, , , 真)
time = 子文本替換 (time, “日”, “ ”, , , 真)
time = 子文本替換 (time, “時(shí)”, “:”, , , 真)
time = 子文本替換 (time, “分”, “:”, , , 真)
time = 子文本替換 (time, “秒”, “”, , , 真)
監(jiān)聽編輯框.加入文本 (time + “ ” + text + #換行符)
.子程序 _開始按鈕_被單擊
.如果真 (_檢測)
  返回 ()
.如果真結(jié)束
_檢測 = 真
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 (“收到新消息”)
    處理事件 ()
    延時(shí) (1000)
    處理事件 ()
    子_執(zhí)行模擬 (PID)
    處理事件 ()
  .如果真結(jié)束
  處理事件 ()
  延時(shí) (選擇 (value, 200, 1 × 1000))
  處理事件 ()
  CloseHandle___ (CreateThread___ (0, 0, &遞歸檢查, 0, 0, 0))
  返回 ()
.如果真結(jié)束
log (“停止檢測”)
.子程序 子_執(zhí)行模擬
.參數(shù) Pid, 整數(shù)型
.局部變量 nun, 整數(shù)型
.局部變量 窗口, 精易_窗口信息, , "0"
.局部變量 i, 整數(shù)型
.局部變量 矩形, RECTData
.局部變量 hwnds, 整數(shù)型
.局部變量 msg, 文本型
nun = 窗口_枚舉 (窗口)
.計(jì)次循環(huán)首 (nun, i)
  .如果真 (窗口 [i].窗口類名 = “TXGuiFoundation” 且 窗口 [i].進(jìn)程ID = Pid) ' 判斷打開的窗口是不是之前點(diǎn)擊的進(jìn)程
    .判斷開始 (窗口 [i].窗口標(biāo)題 = “”)
    .判斷 (窗口 [i].窗口標(biāo)題 = “TXMenuWindow”)
    .判斷 (窗口 [i].窗口標(biāo)題 = “QQ”)
    .判斷 (窗口 [i].窗口標(biāo)題 = “驗(yàn)證消息”)
      log (“驗(yàn)證消息”)
      延時(shí) (3500) ' 這里需要延時(shí)才能顯示出來
      LeftClick (窗口 [i].窗口句柄, 450, 130) ' 好友請(qǐng)求
      LeftClick (窗口 [i].窗口句柄, 500, 120) ' 群請(qǐng)求
      延時(shí) (100)
      LeftClick (FindWindow___ (“TXGuiFoundation”, “添加”), 218, 150) ' 同意
      延時(shí) (100)
      PostMessageA_整數(shù)型___ (窗口 [i].窗口句柄, 16, 0, 0)
      返回 ()
    .默認(rèn)
      GetWindowRect___ (窗口 [i].窗口句柄, 矩形)
      .如果真 (矩形.x2 ≠ 500 或 矩形.y2 ≠ 500)
        MoveWindow___ (窗口 [i].窗口句柄, 10, 10, 500, 500, 真)
        延時(shí) (100)
      .如果真結(jié)束
      LeftClick (窗口 [i].窗口句柄, 380, 65)
      延時(shí) (100)
      hwnds = FindWindow___ (“TXGuiFoundation”, “TXMenuWindow”)
      .如果真 (hwnds > 0)
        GetWindowRect___ (hwnds, 矩形)
        .如果真 (矩形.x2 - 矩形.x1 = 165 且 矩形.y2 - 矩形.y1 = 198)
          log (“群消息”)
          PostMessageA_整數(shù)型___ (窗口 [i].窗口句柄, 16, 0, 0)
          返回 ()
        .如果真結(jié)束
      .如果真結(jié)束
      LeftClick (窗口 [i].窗口句柄, 225, 65)
      延時(shí) (100)
      hwnds = FindWindowExA___ (0, 0, “TXGuiFoundation”, “TXMenuWindow”)
      .如果真 (hwnds > 0)
        GetWindowRect___ (hwnds, 矩形)
        .判斷開始 (矩形.x2 - 矩形.x1 = 129 且 矩形.y2 - 矩形.y1 = 80)
          log (“臨時(shí)會(huì)話消息”)
          PostMessageA_整數(shù)型___ (窗口 [i].窗口句柄, 16, 0, 0)
          返回 ()
        .判斷 (矩形.x2 - 矩形.x1 = 165 且 矩形.y2 - 矩形.y1 = 84)
          log (“好友消息”)
          LeftClick (窗口 [i].窗口句柄, 220, 420)
          延時(shí) (20)
          msg = “http://www.hibbba.com/ 貝貝吧”
          文本_投遞 (窗口 [i].窗口句柄, msg)
          延時(shí) (20)
          LeftClick (窗口 [i].窗口句柄, 430, 490)
          延時(shí) (100)
          PostMessageA_整數(shù)型___ (窗口 [i].窗口句柄, 16, 0, 0)
          延時(shí) (100)
          LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 225, 140)
          返回 ()
        .判斷 (矩形.x2 - 矩形.x1 = 153 且 矩形.y2 - 矩形.y1 = 80)
          log (“討論組消息”)
          LeftClick (窗口 [i].窗口句柄, 266, 84)
          延時(shí) (100)
          LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 225, 140)
          延時(shí) (200)
          .如果真 (FindWindow___ (“TXGuiFoundation”, “提示”) > 0)
            log (“執(zhí)行退出討論組”)
            LeftClick (FindWindow___ (“TXGuiFoundation”, “提示”), 296, 138)
          .如果真結(jié)束
          返回 ()
        .默認(rèn)
        .判斷結(jié)束
      .如果真結(jié)束
    .判斷結(jié)束
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.子程序 MoveTo
.參數(shù) hwnd
.參數(shù) x
.參數(shù) y
.局部變量 int, int
ClientToScreen___ (hwnd, int)
SetCursorPos___ (int.x + x, int.y + y) ' 對(duì)應(yīng)屏幕的坐標(biāo)
.子程序 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_將被銷毀
_停止按鈕_被單擊 ()

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

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

總結(jié)

以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,謝謝大家對(duì)服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 91精品国产91久久久久久丝袜 | 免费黄色a | 久久成人亚洲 | 黄色片小说 | 精品av在线播放 | 欧美熟videos肥婆 | 精品一区二区三区免费视频 | 一级美女大片 | 护士xxxx | 欧美a∨亚洲欧美亚洲 | 久草在线最新 | 国产午夜小视频 | 久久精品一二三区白丝高潮 | 日韩视频在线一区二区三区 | chinese xxxxhd videos麻豆 | 成年片在线观看 | h色网站在线观看 | 日韩黄在线观看 | 国产精品视频专区 | 中文字幕在线观看免费视频 | 欧美一级淫片免费播放口 | 亚洲人成电影在线 | 成人小视频在线播放 | 狠狠操在线观看 | 91精品久久久久久久 | 高清不卡一区二区 | 超污视频在线看 | 99久久久精品免费观看国产 | 久久草在线看 | h色视频在线观看 | 国内外一级毛片 | 91九色福利 | 2021免费日韩视频网 | 精品一区二区三区在线视频 | 欧美一级电影网 | 国产精品视频一区二区三区四区国 | 免费毛片视频 | 日韩午夜片 | 日韩精品一区二区三区中文 | 99精品视频在线观看免费 | 高清国产午夜精品久久久久久 |