DLL命令表
1
2
3
4
|
.版本 2 .DLL命令 _鼠標取坐標句柄, 整數型, "user32", "WindowFromPoint" .參數 xPoint, 整數型, , x點值 .參數 yPoint, 整數型, , y點值; |
全局變量表
1
2
3
4
|
.版本 2 .全局變量 全_Uin, 文本型 .全局變量 全_Bkn, 文本型 .全局變量 全_Cookie, 文本型 |
常量數據表
1
2
3
|
.版本 2 .常量 正則表達式_群列表, "<文本長度: 22>", , gc":(\d+),"gn":"(.*?)" .常量 正則表達式_群成員, "<文本長度: 53>", , nick":"(.*?)"[\s\S]*?"role":(\d+),[\s\S]*?uin":(\d+)} |
計算群列表群成員
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
|
.版本 2 .程序集 集_QQ功能 .子程序 QQ群_計算Bkn, 文本型 .參數 skey, 文本型 .局部變量 基值, 整數型 .局部變量 計數, 整數型 .局部變量 長度, 整數型 .局部變量 結果, 整數型 基值 = 5381 計數 = 0 長度 = 取文本長度 (skey) .判斷循環首 (計數 < 長度) 基值 = 基值 + 左移 (基值, 5) + 取代碼 (skey, 計數 + 1) 計數 = 計數 + 1 .判斷循環尾 () 結果 = 位與 (基值, 2147483647) 返回 (到文本 (結果)) .子程序 QQ群_群列表, 文本型 .參數 模式, 整數型, , 0=群驗證;1=獲取群列表 .參數 Group, 文本型, 可空 .局部變量 Text, 文本型 .如果真 (模式 = 0) 全_Bkn = QQ群_計算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , )) Text = 編碼_utf8到gb2312 (網頁_訪問S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , )) .如果真 (尋找文本 (Text, Group, , 假) ≠ -1) 返回 (“驗證成功”) .如果真結束 返回 (“驗證失敗”) .如果真結束 .如果真 (模式 = 1) 全_Bkn = QQ群_計算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , )) Text = 文本_替換 (編碼_URL解碼 (網頁_訪問S (“http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, , , , , , , , ) 返回 (Text) .如果真結束 返回 (Text) .子程序 QQ群_群成員, 文本型 .參數 模式, 整數型, , 0=獲取群成員數量;1=獲取群成員 .參數 Group, 文本型 .參數 st, 文本型, 可空 .參數 end, 文本型, 可空 .局部變量 Text, 文本型 .如果真 (模式 = 0) 全_Bkn = QQ群_計算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , )) Text = 文本_替換 (編碼_URL解碼 (網頁_訪問S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” + Group + “&st=0&end=20&sort=0&bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, “'”, “”, , , , , , ) Text = 文本_取出中間文本 (Text, “count” + #引號 + “:”, “,”, , ) .如果真結束 .如果真 (模式 = 1) 全_Bkn = QQ群_計算Bkn (文本_取出中間文本 (全_Cookie, “skey=”, “;”, , )) Text = 文本_替換 (編碼_URL解碼 (網頁_訪問S (“http://qun.qq.com/cgi-bin/qun_mgr/search_group_members”, 1, “gc=” + Group + “&st=” + st + “&end=” + end + “&sort=0&bkn=” + 全_Bkn, 全_Cookie, , , , , , , , , , , , , ), 真), , , , “ ”, “”, “'”, “”, , , , , , ) .如果真結束 返回 (Text) |
QQ群艾特功能
此功能需要加載精易模塊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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
.版本 2 .支持庫 shellEx .支持庫 iext .程序集 窗口程序集_窗口1 .程序集變量 集_開始工作, 邏輯型 .程序集變量 集_窗口標題, 文本型 .程序集變量 集_熱鍵F4, 整數型 .程序集變量 集_窗口句柄, 整數型 .程序集變量 集_獲取群員防卡線程, 整數型 .程序集變量 集_熱鍵F3, 整數型 .子程序 _窗口1_創建完畢 集_開始工作 = 假 通用對話框1.過濾器 = “圖片文件|*.png;*.jpg” 集_熱鍵F4 = 注冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F4鍵) 集_熱鍵F3 = 注冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F3鍵) 全_Uin = 文本_取出中間文本 (全_Cookie, “uin=o”, “;”, , ) 標簽1.標題 = “QQ號碼:” + 全_Uin 初始化 () .子程序 初始化 .局部變量 a, 整數型 .局部變量 正則, 正則表達式類 .局部變量 局_表項數, 整數型 正則.創建 (#正則表達式_群列表, QQ群_群列表 (1, ), , , , ) .計次循環首 (正則.取匹配數量 (), a) 局_表項數 = 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (局_表項數, 0, 到文本 (超級列表框1.取表項數 ())) 超級列表框1.置標題 (局_表項數, 1, 正則.取子匹配文本 (a, 2, )) 超級列表框1.置標題 (局_表項數, 2, 正則.取子匹配文本 (a, 1, )) 處理事件 () .計次循環尾 () ' ==================================================================== 編輯框1.內容 = 讀配置項 (取運行目錄 () + “\@Set.ini”, “編輯框”, “宣傳語”, ) 編輯框2.內容 = 讀配置項 (取運行目錄 () + “\@Set.ini”, “編輯框”, “圖片地址”, ) .判斷開始 (讀配置項 (取運行目錄 () + “\@Set.ini”, “選擇框”, “跳過群主/管理”, ) = “1”) 選擇框1.選中 = 真 .默認 選擇框1.選中 = 假 .判斷結束 .子程序 _超級列表框1_當前表項被改變 線程_啟動 (&防卡_獲取群員, , 集_獲取群員防卡線程) .子程序 防卡_獲取群員 .局部變量 a, 整數型 .局部變量 正則, 正則表達式類 .局部變量 局_表項數, 整數型 .局部變量 局_群人數量, 文本型 .局部變量 局_群人數, 文本型 .局部變量 局_循環次數, 整數型 .局部變量 局_群人數前, 整數型 .局部變量 b, 整數型 狀態條1.置文本 (1, “正在獲取群成員數量...”) 選擇夾1.現行子夾 = 1 局_群人數量 = QQ群_群成員 (0, 超級列表框1.取標題 (超級列表框1.現行選中項, 2), , ) 狀態條1.置文本 (1, “該群共有人數:” + 局_群人數量 + “人...”) 局_循環次數 = 取整 (到整數 (局_群人數量) ÷ 100) 局_群人數前 = 0 .計次循環首 (局_循環次數 + 1, ) 局_群人數 = QQ群_群成員 (1, 超級列表框1.取標題 (超級列表框1.現行選中項, 2), 到文本 (局_群人數前), 到文本 (到整數 (局_群人數前) + 100)) 局_群人數前 = 局_群人數前 + 101 正則.創建 (#正則表達式_群成員, 局_群人數, , , , ) .計次循環首 (正則.取匹配數量 (), a) 局_表項數 = 超級列表框2.插入表項 (, , , , , ) 超級列表框2.置標題 (局_表項數, 0, 到文本 (超級列表框2.取表項數 ())) 超級列表框2.置標題 (局_表項數, 1, 正則.取子匹配文本 (a, 1, )) 超級列表框2.置標題 (局_表項數, 2, 正則.取子匹配文本 (a, 3, )) .如果真 (正則.取子匹配文本 (a, 2, ) = “0”) 超級列表框2.置標題 (局_表項數, 3, “群主”) .如果真結束 .如果真 (正則.取子匹配文本 (a, 2, ) = “1”) 超級列表框2.置標題 (局_表項數, 3, “管理”) .如果真結束 .如果真 (正則.取子匹配文本 (a, 2, ) = “2”) 超級列表框2.置標題 (局_表項數, 3, “群員”) .如果真結束 處理事件 () .計次循環尾 () 超級列表框2.保證顯示 (超級列表框2.取表項數 () - 1) 處理事件 () 狀態條1.置文本 (1, “已獲取群員” + 到文本 (超級列表框2.取表項數 ()) + “個...”) .計次循環尾 () 狀態條1.置文本 (1, “已獲取群員” + 到文本 (超級列表框2.取表項數 ()) + “個,線程已銷毀...”) 線程_銷毀 (集_獲取群員防卡線程) .子程序 _標簽1_反饋事件, 整數型 .參數 參數一, 整數型 .參數 參數二, 整數型 .局部變量 聊天窗口, 整數型 .局部變量 a, 整數型 .局部變量 Firends, 文本型, , "0" .局部變量 Count, 整數型 .局部變量 Number, 整數型 .如果真 (參數一 = 集_熱鍵F4) 狀態條1.置文本 (1, “任務開始...”) 集_開始工作 = 真 集_窗口句柄 = _鼠標取坐標句柄 (取鼠標水平位置 (), 取鼠標垂直位置 ()) 聊天窗口 = 聊天窗口_取句柄 (集_窗口標題) .判斷循環首 (聊天窗口 = 0) 聊天窗口 = 聊天窗口_取句柄 (集_窗口標題) .判斷循環尾 () .計次循環首 (超級列表框2.取表項數 (), a) .判斷開始 (選擇框1.選中 = 真) .如果真 (超級列表框2.取標題 (a - 1, 3) = “群員”) 加入成員 (Firends, 超級列表框2.取標題 (a - 1, 2)) ' 加入非群主\管理數組 .如果真結束 .默認 加入成員 (Firends, 超級列表框2.取標題 (a - 1, 2)) ' 加入全部成員數組 .判斷結束 .計次循環尾 () Count = 絕對取整 (取數組成員數 (Firends) ÷ 20) ' 計算外循環次數 .如果真 (Count × 20 < 取數組成員數 (Firends)) ' 判斷余數 Count = Count + 1 ' 有余數,加上1 .如果真結束 .計次循環首 (Count, ) .如果真 (集_開始工作 = 假) 跳出循環 () .如果真結束 .計次循環首 (20, ) .如果真 (集_開始工作 = 假) 跳出循環 () .如果真結束 Number = Number + 1 .如果真 (Number > 取數組成員數 (Firends)) Number = 0 跳出循環 () .如果真結束 文本_投遞 (聊天窗口, “@” + Firends [Number]) 程序_延時 (100, ) 鍵盤_消息 (聊天窗口, #回車鍵, 5, ) .計次循環尾 () .如果真 (集_開始工作 = 假) 跳出循環 () .如果真結束 剪輯板_置圖片 (讀入文件 (編輯框2.內容)) 文本_投遞 (聊天窗口, 編輯框1.內容) 程序_延時 (100, 0) 鍵盤_組合按鍵 (#V鍵, #Ctrl鍵, , ) .如果真 (Number ≥ 0) 程序_延時 (100, ) ' 這里模擬到20次發送的按鍵 鍵盤_消息 (聊天窗口, #回車鍵, 5, ) .如果真結束 .計次循環尾 () .如果真結束 .如果真 (參數一 = 集_熱鍵F3) 狀態條1.置文本 (1, “正在結束任務...”) 集_開始工作 = 假 .如果真結束 狀態條1.置文本 (1, “任務已結束...”) .子程序 聊天窗口_取句柄, 整數型 .參數 昵稱, 文本型 .局部變量 局_句柄, 整數型 .局部變量 rest, 文本型 .局部變量 窗口標題, 文本型 .局部變量 jx, 精易_矩形 .局部變量 arr, 整數型, , "0" .局部變量 n, 整數型 窗口_模糊遍歷窗口 (, “TXGuiFoundation”, , arr) .計次循環首 (取數組成員數 (arr), n) rest = 窗口_取控件內容 (arr [n]) 窗口標題 = 窗口_取標題 (arr [n]) .如果真 (rest ≠ “” 且 rest = 窗口標題 且 rest ≠ “TXMenuWindow” 且 rest ≠ “QQ” 且 rest ≠ “增加時長” 且 rest ≠ “電腦管家” 且 rest ≠ “勛章墻”) jx = 窗口_取位置和大小 (arr [n]) 窗口_還原 (arr [n]) .如果真 (jx.右邊 > 596 且 jx.底邊 > 520) .如果真 (尋找文本 (rest, 昵稱, , 假) ≠ -1) 返回 (arr [n]) .如果真結束 .如果真結束 .如果真結束 .計次循環尾 () 返回 (0) .子程序 取窗口信息 .局部變量 矩形, 精易_矩形 .局部變量 窗口坐標, 精易_坐標 .局部變量 屏幕坐標, 精易_坐標 處理事件 () 矩形 = 窗口_取位置和大小 (集_窗口句柄) 集_窗口標題 = 窗口_取標題 (集_窗口句柄) 屏幕坐標 = 鼠標_取位置 () 窗口坐標 = 鼠標_取窗口坐標 (窗口_取鼠標處窗口句柄 ()) .子程序 _按鈕1_被單擊 通用對話框1.類型 = 0 .如果真 (通用對話框1.打開 () = 真) 編輯框2.內容 = 通用對話框1.文件名 寫配置項 (取運行目錄 () + “\@Set.ini”, “編輯框”, “圖片地址”, 編輯框2.內容) .如果真結束 .子程序 _選擇框1_被單擊 .判斷開始 (選擇框1.選中 = 真) 寫配置項 (取運行目錄 () + “\@Set.ini”, “選擇框”, “跳過群主/管理”, “1”) .默認 寫配置項 (取運行目錄 () + “\@Set.ini”, “選擇框”, “跳過群主/管理”, “0”) .判斷結束 .子程序 _編輯框1_內容被改變 寫配置項 (取運行目錄 () + “\@Set.ini”, “編輯框”, “宣傳語”, 編輯框1.內容) |
QQ快捷登陸啟動窗口
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
.版本 2 .支持庫 HtmlView .程序集 窗口程序集_啟動窗口 .程序集變量 集_QQ群號, 文本型 .子程序 __啟動窗口_創建完畢 網頁_清除Cookie (“qun.qq.com”) .子程序 _超文本瀏覽框1_跳轉完畢 .如果真 (超文本瀏覽框1.地址 = “http://qun.qq.com/member.html”) 全_Cookie = 網頁_取Cookie (“qun.qq.com”, ) .' 如果真 (QQ群_群列表 (0, 集_QQ群號) = “驗證成功”) ' 信息框 (“驗證成功”, 0, , ) 載入 (窗口1, , 假) _啟動窗口.銷毀 () .如果真結束 .' 如果真 (QQ群_群列表 (0, 集_QQ群號) = “驗證失敗”) ' 信息框 (“驗證失敗”, 0, , ) ' 結束 () .如果真結束 .如果真結束 |
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接