全局變量表
|
1
2
3
|
.版本 2.全局變量 Cookie_Overall, 文本型.全局變量 BKN_Overall, 文本型 |
QQ快捷啟動的代碼
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
.版本 2.程序集 窗口程序集_窗口1.子程序 _超文本瀏覽框1_跳轉完畢.局部變量 Cookie, 文本型.局部變量 Uin, 文本型.局部變量 Skey, 文本型Cookie ＝ 網頁_取Cookie (“qun.qq.com”).如果真 (尋找文本 (Cookie, “p_skey”, , 假) ≠ -1) Uin ＝ 文本_取出中間文本 (Cookie, “p_uin=o”, “;”) Skey ＝ 文本_取出中間文本 (Cookie, “skey=”, “;”) BKN_Overall ＝ Get_BKN (Skey) Cookie_Overall ＝ Cookie _啟動窗口.按鈕_快速登錄.標題 ＝ “已登錄” _啟動窗口.標簽_QQ號碼.標題 ＝ “QQ號碼：” ＋ 到文本 (到整數 (Uin)) _啟動窗口.圖片框1.圖片 ＝ Get_QQHEAD (Uin) 初始化 () 銷毀 ().如果真結束 |
獲取代碼
|
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
|
.版本 2.程序集 程序集1.子程序 Get_BKN, 文本型.參數 Skey, 文本型.局部變量 基值, 整數型.局部變量 計數, 整數型.局部變量 長度, 整數型.局部變量 結果, 整數型基值 ＝ 5381計數 ＝ 0長度 ＝ 取文本長度 (Skey).判斷循環首 (計數 ＜ 長度) 基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代碼 (Skey, 計數 ＋ 1) 計數 ＝ 計數 ＋ 1.判斷循環尾 ()結果 ＝ 位與 (基值, 2147483647)返回 (到文本 (結果)).子程序 Get_QQHEAD, 字節集.參數 Uin, 文本型.局部變量 Url, 文本型Url ＝ “http://q4.qlogo.cn/g?b=qq&nk=” ＋ Uin ＋ “&s=140”返回 (網頁_訪問 (Url)).子程序 Get_Friend_List, 文本型.參數 Cookie, 文本型.參數 BKN, 文本型.局部變量 Url, 文本型.局部變量 Post, 文本型.局部變量 Ret, 文本型Url ＝ “http://qun.qq.com/cgi-bin/qun_mgr/get_friend_list”Post ＝ “bkn=” ＋ BKNRet ＝ 編碼_Utf8到Ansi (網頁_訪問 (Url, 1, Post, Cookie))返回 (Ret) |
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
|
.版本 2.支持庫 iext.支持庫 eExcel2000.程序集 窗口程序集_啟動窗口.子程序 __啟動窗口_創建完畢圖片框1.圖片 ＝ #QQ頭像.子程序 初始化.局部變量 Ret, 文本型.局部變量 Json, 類_json.局部變量 i1, 整數型.局部變量 i2, 整數型.局部變量 Gname, 文本型.局部變量 Name, 文本型.局部變量 Uin, 文本型.局部變量 s, 整數型超級列表框1.全部刪除 ()Ret ＝ Get_Friend_List (Cookie_Overall, BKN_Overall)Json.解析 (Ret).計次循環首 (15, i1) Gname ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].gname”) .如果真 (Gname ＝ “”) Gname ＝ “我的好友” .如果真結束 .計次循環首 (Json.成員數 (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems”), i2) Name ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems[” ＋ 到文本 (i2 － 1) ＋ “].name”) Uin ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems[” ＋ 到文本 (i2 － 1) ＋ “].uin”) s ＝ 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (s, 0, 到文本 (s ＋ 1)) 超級列表框1.置標題 (s, 1, Uin) 超級列表框1.置標題 (s, 2, Name) 超級列表框1.置標題 (s, 3, Gname) .計次循環尾 ().計次循環尾 ().子程序 _按鈕_快速登錄_被單擊載入 (窗口1, , 假).子程序 _按鈕_注銷登錄_被單擊網頁_清除Cookie (“qun.qq.com”)Cookie_Overall ＝ “”BKN_Overall ＝ “”按鈕_快速登錄.標題 ＝ “快速登錄”標簽_QQ號碼.標題 ＝ “QQ號碼：未登錄”圖片框1.圖片 ＝ #QQ頭像超級列表框1.全部刪除 ()信息框 (“注銷登錄成功”, 0, ).子程序 _按鈕_全部選中_被單擊.局部變量 i, 整數型.計次循環首 (超級列表框1.取表項數 (), i) 超級列表框1.置狀態圖片 (i － 1, 1).計次循環尾 ().子程序 _按鈕_全部不選_被單擊.局部變量 i, 整數型.計次循環首 (超級列表框1.取表項數 (), i) 超級列表框1.置狀態圖片 (i － 1, -1).計次循環尾 ().子程序 _按鈕_導出全部_被單擊通用對話框1.初始目錄 ＝ 取運行目錄 ()通用對話框1.類型 ＝ 1通用對話框1.默認文件后綴 ＝ “.xls”通用對話框1.過濾器 ＝ “Excel文件（*.xls）|*.xls|文本文件（*.txt）|*.txt”通用對話框1.文件名 ＝ 文本_取右邊 (標簽_QQ號碼.標題, “QQ號碼：”).如果真 (通用對話框1.打開 ()) .如果真 (倒找文本 (通用對話框1.文件名, “.xls”, , 假) ≠ -1) 導出Excel (通用對話框1.文件名, 真) .如果真結束 .如果真 (倒找文本 (通用對話框1.文件名, “.txt”, , 假) ≠ -1) 導出Txt (通用對話框1.文件名, 真) .如果真結束 信息框 (“保存成功”, 0, ).如果真結束.子程序 _按鈕_導出選中_被單擊通用對話框1.初始目錄 ＝ 取運行目錄 ()通用對話框1.類型 ＝ 1通用對話框1.默認文件后綴 ＝ “.xls”通用對話框1.過濾器 ＝ “Excel文件（*.xls）|*.xls|文本文件（*.txt）|*.txt”通用對話框1.文件名 ＝ 文本_取右邊 (標簽_QQ號碼.標題, “QQ號碼：”).如果真 (通用對話框1.打開 ()) .如果真 (倒找文本 (通用對話框1.文件名, “.xls”, , 假) ≠ -1) 導出Excel (通用對話框1.文件名, 假) .如果真結束 .如果真 (倒找文本 (通用對話框1.文件名, “.txt”, , 假) ≠ -1) 導出Txt (通用對話框1.文件名, 假) .如果真結束 信息框 (“保存成功”, 0, ).如果真結束.子程序 導出Txt.參數 文件名, 文本型.參數 全部, 邏輯型.局部變量 i, 整數型.局部變量 Uin, 文本型.局部變量 Name, 文本型.局部變量 Gname, 文本型.局部變量 Str, 文本型.如果真 (全部 ＝ 真) .計次循環首 (超級列表框1.取表項數 (), i) Uin ＝ 超級列表框1.取標題 (i － 1, 1) Name ＝ 超級列表框1.取標題 (i － 1, 2) Gname ＝ 超級列表框1.取標題 (i － 1, 3) Str ＝ Str ＋ Uin ＋ “----” ＋ Name ＋ “----” ＋ Gname ＋ #換行符 .計次循環尾 ().如果真結束.如果真 (全部 ＝ 假) .計次循環首 (超級列表框1.取表項數 (), i) .如果真 (超級列表框1.取當前狀態圖片 (i － 1) ＝ 1) Uin ＝ 超級列表框1.取標題 (i － 1, 1) Name ＝ 超級列表框1.取標題 (i － 1, 2) Str ＝ Str ＋ Uin ＋ “----” ＋ Name ＋ “----” ＋ Gname ＋ #換行符 .如果真結束 .計次循環尾 ().如果真結束寫到文件 (文件名, 到字節集 (Str)).子程序 導出Excel.參數 文件名, 文本型.參數 全部, 邏輯型.局部變量 Data_Head, 文本型, , "0".局部變量 i1, 整數型.局部變量 i2Excel程序1.創建 ()Excel工作簿1.置程序 (Excel程序1)Excel工作簿1.激活工作簿 ()Excel工作簿1.表格序號 ＝ 1Data_Head ＝ { “QQ號碼”, “QQ昵稱”, “QQ分組” }.計次循環首 (取數組成員數 (Data_Head), i1) Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (1) Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (1) Excel工作簿1.內容格式 ＝ “@” Excel工作簿1.內容 ＝ Data_Head [i1] Excel工作簿1.列寬 ＝ 20.計次循環尾 ().如果真 (全部 ＝ 真) .計次循環首 (超級列表框1.取表項數 (), i2) 處理事件 () .計次循環首 (取數組成員數 (Data_Head), i1) Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1) Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1) Excel工作簿1.內容格式 ＝ “@” Excel工作簿1.內容 ＝ 超級列表框1.取標題 (i2 － 1, i1) .計次循環尾 () .計次循環尾 ().如果真結束.如果真 (全部 ＝ 假) .計次循環首 (超級列表框1.取表項數 (), i2) .如果真 (超級列表框1.取當前狀態圖片 (i2 － 1) ＝ 1) 處理事件 () .計次循環首 (取數組成員數 (Data_Head), i1) Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1) Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1) Excel工作簿1.內容格式 ＝ “@” Excel工作簿1.內容 ＝ 超級列表框1.取標題 (i2 － 1, i1) .計次循環尾 () .如果真結束 .計次循環尾 ().如果真結束Excel工作簿1.保存 (文件名)Excel工作簿1.關閉 ()Excel工作簿1.釋放 ()Excel程序1.退出 ()Excel程序1.釋放 ().子程序 __啟動窗口_可否被關閉, 邏輯型.局部變量 按鈕, 整數型按鈕 ＝ 信息框 (“是否關閉軟件”, #詢問圖標 ＋ #是否鈕, ).如果真 (按鈕 ＝ #是鈕) 結束 ().如果真結束返回 (假) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
