常量數據表
|
1
2
3
|
.版本 2.常量 鏈接1, "<文本長度: 9>".常量 鏈接2, "<文本長度: 2>" |
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
|
.版本 2.支持庫 downlib.支持庫 iext.支持庫 spec.支持庫 shell.程序集 窗口程序集_啟動窗口.程序集變量 任務, 任務參數.程序集變量 下載限速, 整數型.程序集變量 下載對象, 下載對象.子程序 _按鈕1_被單擊.如果 (尋找文本 (編輯框1.內容, “play”, , 假) ＝ -1) 歌曲搜索 ().否則 歌單列表 ().如果結束.子程序 歌曲搜索.局部變量 標題轉碼, 文本型.局部變量 歌曲列表, 文本型.局部變量 josn, 類_json.局部變量 i, 整數型.局部變量 音樂標題, 文本型.局部變量 歌手, 文本型.局部變量 專輯, 文本型.局部變量 文件名, 文本型.局部變量 索引, 整數型.局部變量 發行時間, 文本型.局部變量 鏈接, 文本型.局部變量 o, 整數型超級列表框1.全部刪除 ()標題轉碼 ＝ 編碼_URL編碼 (編輯框1.內容, , 真).計次循環首 (2, o) 歌曲列表 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問 (“https://c.y.qq.com/soso/fcgi-bin/client_search_cp?ct=24&qqmusic_ver=1298&new_json=1&remoteplace=txt.yqq.center&searchid=47333670699582939&t=0&aggr=1&cr=1&catZhida=1&lossless=0&flag_qc=0&p=” ＋ 到文本 (0) ＋ “&n=20&w=” ＋ 標題轉碼))) 歌曲列表 ＝ 文本_取出中間文本 (歌曲列表, “callback(”, “})”) 歌曲列表 ＝ 歌曲列表 ＋ “}” .如果真 (josn.解析 (歌曲列表)) .計次循環首 (josn.成員數 (“data.song.list”), i) 音樂標題 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].title”) 歌手 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].singer[0].name”) 專輯 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].album.name”) 發行時間 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].time_public”) 文件名 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].mid”) 鏈接 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問_對象 (“https://i.y.qq.com/v8/playsong.html?ADTAG=newyqq.song&songmid=” ＋ 文件名 ＋ “#webchat_redirect”, 0, , , , “User-Agent: Mozilla/5.0 (Linux; Android 4.1.1; Nexus 7 Build/JRO03D) AppleWebKit/535.19 (KHTML, like)”, , , , , , , , , , ))) 鏈接 ＝ 文本_取出中間文本 (鏈接, #鏈接1, #鏈接2) 調試輸出 (鏈接) 索引 ＝ 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (索引, 0, 到文本 (超級列表框1.取表項數 ())) 超級列表框1.置標題 (索引, 1, 音樂標題) 超級列表框1.置標題 (索引, 2, 歌手) 超級列表框1.置標題 (索引, 3, 專輯) 超級列表框1.置標題 (索引, 4, 發行時間) 超級列表框1.置標題 (索引, 5, 文件名) 超級列表框1.置標題 (索引, 6, 鏈接) .計次循環尾 () .如果真結束.計次循環尾 ().子程序 歌單列表.局部變量 id, 文本型.局部變量 列表文本, 文本型.局部變量 josn, 類_json.局部變量 i, 整數型.局部變量 音樂標題, 文本型.局部變量 歌手, 文本型.局部變量 專輯, 文本型.局部變量 文件名, 文本型.局部變量 鏈接, 文本型.局部變量 索引, 整數型超級列表框1.全部刪除 ()id ＝ 文本_倒取出中間文本 (編輯框1.內容, “.html”, “/”)列表文本 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問 (“https://c.y.qq.com/qzone/fcg-bin/fcg_ucc_getcdinfo_byids_cp.fcg?type=1&json=1&utf8=1&onlysong=0&disstid=” ＋ id ＋ “&format=jsonp&g_tk=5381&jsonpCallback=playlistinfoCallback&loginUin=0&hostUin=0&format=jsonp&inCharset=utf8&outCharset=utf-8¬ice=0&platform=yqq&needNewCode=0”)))列表文本 ＝ 文本_取出中間文本 (列表文本, “playlistinfoCallback(”, “})”)列表文本 ＝ 列表文本 ＋ “}”.如果真 (josn.解析 (列表文本)) .計次循環首 (josn.成員數 (“cdlist[0].songlist”), i) 音樂標題 ＝ josn.取通用屬性 (“cdlist[0].songlist[” ＋ 到文本 (i － 1) ＋ “].songname”) 歌手 ＝ josn.取通用屬性 (“cdlist[0].songlist[” ＋ 到文本 (i － 1) ＋ “].singer[0].name”) 專輯 ＝ josn.取通用屬性 (“cdlist[0].songlist[” ＋ 到文本 (i － 1) ＋ “].albumname”) 文件名 ＝ josn.取通用屬性 (“cdlist[0].songlist[” ＋ 到文本 (i － 1) ＋ “].songmid”) 鏈接 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問_對象 (“https://i.y.qq.com/v8/playsong.html?ADTAG=newyqq.song&songmid=” ＋ 文件名 ＋ “#webchat_redirect”, 0, , , , “User-Agent: Mozilla/5.0 (Linux; Android 4.1.1; Nexus 7 Build/JRO03D) AppleWebKit/535.19 (KHTML, like)”, , , , , , , , , , ))) 鏈接 ＝ 文本_取出中間文本 (鏈接, #鏈接1, #鏈接2) 索引 ＝ 超級列表框1.插入表項 (, , , , , ) 超級列表框1.置標題 (索引, 0, 到文本 (超級列表框1.取表項數 ())) 超級列表框1.置標題 (索引, 1, 音樂標題) 超級列表框1.置標題 (索引, 2, 歌手) 超級列表框1.置標題 (索引, 3, 專輯) 超級列表框1.置標題 (索引, 5, 文件名) 超級列表框1.置標題 (索引, 6, 鏈接) .計次循環尾 ().如果真結束狀態條1.置文本 (0, “狀態：搜索完成”).子程序 _ape無損品質_被選擇.局部變量 ape品質, 文本型.局部變量 文件大小, 整數型ape品質 ＝ 超級列表框1.取標題 (超級列表框1.現行選中項, 6)ape品質 ＝ 文本_替換 (ape品質, , , , “/C400”, “/A000”, “.m4a?”, “.ape?”, “fromtag=38”, “fromtag=8”, “http://dl.stream.qqmusic.qq.com/”, “http://streamoc.music.tc.qq.com/”)文件大小 ＝ 網頁_取網絡文件尺寸 (ape品質).如果 (文件大小 ＜ 1000000) 信息框 (“沒有ape格式，請換其他格式！”, 0, , ).否則 下載 (ape品質, 超級列表框1.取標題 (超級列表框1.現行選中項, 1), “.ape”, 超級列表框1.取標題 (超級列表框1.現行選中項, 2)).如果結束.子程序 _flac無損品質_被選擇.局部變量 flac品質, 文本型.局部變量 文件大小, 整數型flac品質 ＝ 超級列表框1.取標題 (超級列表框1.現行選中項, 6)flac品質 ＝ 文本_替換 (flac品質, , , , “/C400”, “/F000”, “.m4a?”, “.flac?”, “fromtag=38”, “fromtag=53”)文件大小 ＝ 網頁_取網絡文件尺寸 (flac品質).如果 (文件大小 ＜ 1000000) 信息框 (“沒有flac格式，請換其他格式！”, 0, , ).否則 下載 (flac品質, 超級列表框1.取標題 (超級列表框1.現行選中項, 1), “.flac”, 超級列表框1.取標題 (超級列表框1.現行選中項, 2)).如果結束.子程序 _mp3高品質_被選擇.局部變量 mp3高品質鏈接, 文本型.局部變量 文件大小, 整數型mp3高品質鏈接 ＝ 超級列表框1.取標題 (超級列表框1.現行選中項, 6)mp3高品質鏈接 ＝ 文本_替換 (mp3高品質鏈接, , , , “/C400”, “/M800”, “.m4a?”, “.mp3?”, “fromtag=38”, “fromtag=53”)文件大小 ＝ 網頁_取網絡文件尺寸 (mp3高品質鏈接).如果 (文件大小 ＜ 1000000) 信息框 (“沒有mp3高品質格式，請換其他格式！”, 0, , ).否則 下載 (mp3高品質鏈接, 超級列表框1.取標題 (超級列表框1.現行選中項, 1), “.mp3”, 超級列表框1.取標題 (超級列表框1.現行選中項, 2)).如果結束.子程序 _mp3普通品質_被選擇.局部變量 mp3普通品質鏈接, 文本型mp3普通品質鏈接 ＝ 超級列表框1.取標題 (超級列表框1.現行選中項, 6)mp3普通品質鏈接 ＝ 文本_替換 (mp3普通品質鏈接, , , , “/C400”, “/M500”, “.m4a?”, “.mp3?”, “fromtag=38”, “fromtag=53”)下載 (mp3普通品質鏈接, 超級列表框1.取標題 (超級列表框1.現行選中項, 1), “.mp3”, 超級列表框1.取標題 (超級列表框1.現行選中項, 2)).子程序 _編輯框1_被雙擊, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型編輯框1.內容 ＝ “”.子程序 _超級列表框1_右鍵單擊表項彈出菜單 (菜單, , ).子程序 下載.參數 下載地址, 文本型.參數 音樂標題, 文本型.參數 音樂格式, 文本型.參數 歌手, 文本型.局部變量 保存路徑, 文本型任務.類型 ＝ 4096任務.文件地址 ＝ 下載地址保存路徑 ＝ 讀配置項 (取運行目錄 () ＋ “\bc.ini”, “保存目錄”, “保存”, ).如果 (文件是否存在 (取運行目錄 () ＋ “\bc.ini”) ＝ 假) 信息框 (“請先設置保存目錄”, 0, , ) 返回 ().否則 任務.本地文件路徑 ＝ 保存路徑 ＋ 歌手 ＋ “ - ” ＋ 音樂標題 ＋ 音樂格式 任務.默認線程數 ＝ 5 下載對象.增加新任務 (任務) 時鐘1.時鐘周期 ＝ 1000.如果結束.子程序 _時鐘1_周期事件狀態條1.置文本 (1, “下載速度：” ＋ 到文本 (四舍五入 (取總下載速度 () ÷ 1024000, 2)) ＋ “ MB/s”).如果 (狀態條1.取文本 (1) ＝ “下載速度：0 MB/s”) 時鐘1.時鐘周期 ＝ 1000000000 狀態條1.置文本 (2, 超級列表框1.取標題 (超級列表框1.現行選中項, 1) ＋ “ - ” ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 2) ＋ “ 下載完成”) 播放音樂 (#聲音1, 假).否則.如果結束.子程序 _標簽1_鼠標左鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型.局部變量 路徑, 文本型路徑 ＝ 瀏覽文件夾 (“選擇保存目錄”, 假) ＋ “\”寫配置項 (取運行目錄 () ＋ “\bc.ini”, “保存目錄”, “保存”, 路徑).子程序 _編輯框1_按下某鍵, 邏輯型.參數 鍵代碼, 整數型.參數 功能鍵狀態, 整數型.如果 (鍵代碼 ＝ #回車鍵) _按鈕1_被單擊 ().否則.如果結束 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
