利用模擬操作的方式實現QQ全自動點贊
此功能需要加載精易模塊
|
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
|
.版本 2.支持庫 iext.支持庫 HtmlView.支持庫 spec.程序集 窗口程序集1.程序集變量 停止變量, 邏輯型.子程序 __啟動窗口_創建完畢' 不允許多個QQ登錄,不然每次需要手動選擇點贊的號.子程序 _導入按鈕_被單擊.局部變量 分割文本, 文本型, , "0".局部變量 文本, 文本型.局部變量 i1, 整數型.局部變量 索引, 整數型通用對話框1.初始目錄 ＝ 取運行目錄 ().如果真 (通用對話框1.打開 () ＝ 真) 超級列表框1.全部刪除 () 文本 ＝ 到文本 (讀入文件 (通用對話框1.文件名)) 分割文本 ＝ 分割文本 (文本, #換行符, ) .計次循環首 (取數組成員數 (分割文本), i1) 系統_處理事件 () 索引 ＝ 超級列表框1.插入表項 (超級列表框1.取表項數 () ＋ 1, 到文本 (超級列表框1.取表項數 () ＋ 1), , , , ) 超級列表框1.置標題 (索引, 1, 分割文本 [i1]) .計次循環尾 ().如果真結束.子程序 _點贊按鈕_被單擊QQ個人資料_批量點贊 ().子程序 QQ個人資料_批量點贊.局部變量 局_當前行, 整數型.局部變量 局_句柄1, 整數型.局部變量 局_句柄_整組, 整數型, , "0".局部變量 局_橫坐標, 整數型.局部變量 局_縱坐標, 整數型.局部變量 N, 整數型.局部變量 局_所有QQ_文組, 文本型, , "0"局_橫坐標 ＝ 336局_縱坐標 ＝ 334.計次循環首 (超級列表框1.取表項數 (), N) .如果真 (停止變量 ＝ 真) 返回 () .如果真結束 加入成員 (局_所有QQ_文組, 超級列表框1.取標題 (N － 1, 1)).計次循環尾 ()' -----------------------窗口_模糊遍歷窗口 (, , “的資料”, 局_句柄_整組)系統_處理事件 ().如果真 (取數組成員數 (局_句柄_整組) ＞ 0) .計次循環首 (取數組成員數 (局_句柄_整組), N) 窗口_關閉 (局_句柄_整組 [N]) .計次循環尾 ().如果真結束' -----------------------.計次循環首 (取數組成員數 (局_所有QQ_文組), N) .如果真 (停止變量 ＝ 真) 返回 () .如果真結束 超級列表框1.現行選中項 ＝ N － 1 超文本瀏覽框1.地址 ＝ “tencent://ContactInfo/?subcmd=ViewInfo&puin=0&uin=” ＋ 局_所有QQ_文組 [N] .計次循環首 (10, ) 延遲 (1000) 局_句柄1 ＝ 窗口_取句柄_模糊 (“的資料”, “TXGuiFoundation”) 系統_處理事件 () .如果真 (局_句柄1 ＞ 0) 跳出循環 () .如果真結束 .計次循環尾 () 超級列表框1.置標題 (N － 1, 2, “√”) .如果真 (局_句柄1 ＝ 0) 信息框 (“打開QQ個人資料失敗”, #錯誤圖標, “注&意：”) 點贊按鈕.禁止 ＝ 假 返回 () .如果真結束 ' -------------- 程序_延時 (1000) .計次循環首 (10, ) 系統_處理事件 () 鼠標_消息 (局_句柄1, 局_橫坐標 ＋ 100, 局_縱坐標, 2, 1) 系統_處理事件 () 鼠標_消息 (局_句柄1, 局_橫坐標, 局_縱坐標, 1, 1) 程序_延時 (300) 系統_處理事件 () ' 調試輸出 (“ 鼠標_消息 ”) .計次循環尾 () 程序_延時 (1000) 窗口_關閉 (局_句柄1).計次循環尾 ()信息框 (“完成”, 0, “注&意：”).子程序 _停止按鈕_被單擊停止變量 ＝ 真 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
