易語言通過解析免費下載QQ付費音樂的代碼

.版本 2
.常量 鏈接1, "<文本長度: 9>"
.常量 鏈接2, "<文本長度: 2>"

.版本 2
.支持庫 downlib
.支持庫 iext
.支持庫 spec
.支持庫 shell
.程序集 窗口程序集_啟動窗口
.程序集變量 任務, 任務參數(shù)
.程序集變量 下載限速, 整數(shù)型
.程序集變量 下載對象, 下載對象
.子程序 _按鈕1_被單擊
.如果 (尋找文本 (編輯框1.內(nèi)容, “play”, , 假) ＝ -1)
  歌曲搜索 ()
.否則
  歌單列表 ()
.如果結(jié)束
.子程序 歌曲搜索
.局部變量 標題轉(zhuǎn)碼, 文本型
.局部變量 歌曲列表, 文本型
.局部變量 josn, 類_json
.局部變量 i, 整數(shù)型
.局部變量 音樂標題, 文本型
.局部變量 歌手, 文本型
.局部變量 專輯, 文本型
.局部變量 文件名, 文本型
.局部變量 索引, 整數(shù)型
.局部變量 發(fā)行時間, 文本型
.局部變量 鏈接, 文本型
.局部變量 o, 整數(shù)型
超級列表框1.全部刪除 ()
標題轉(zhuǎn)碼 ＝ 編碼_URL編碼 (編輯框1.內(nèi)容, , 真)
.計次循環(huán)首 (2, o)
  歌曲列表 ＝ 編碼_utf8到gb2312 (到文本 (網(wǎng)頁_訪問 (“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=” ＋ 標題轉(zhuǎn)碼)))
  歌曲列表 ＝ 文本_取出中間文本 (歌曲列表, “callback(”, “})”)
  歌曲列表 ＝ 歌曲列表 ＋ “}”
  .如果真 (josn.解析 (歌曲列表))
    .計次循環(huán)首 (josn.成員數(shù) (“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”)
      發(fā)行時間 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].time_public”)
      文件名 ＝ josn.取通用屬性 (“data.song.list[” ＋ 到文本 (i － 1) ＋ “].mid”)
      鏈接 ＝ 編碼_utf8到gb2312 (到文本 (網(wǎng)頁_訪問_對象 (“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)
      調(diào)試輸出 (鏈接)
      索引 ＝ 超級列表框1.插入表項 (, , , , , )
      超級列表框1.置標題 (索引, 0, 到文本 (超級列表框1.取表項數(shù) ()))
      超級列表框1.置標題 (索引, 1, 音樂標題)
      超級列表框1.置標題 (索引, 2, 歌手)
      超級列表框1.置標題 (索引, 3, 專輯)
      超級列表框1.置標題 (索引, 4, 發(fā)行時間)
      超級列表框1.置標題 (索引, 5, 文件名)
      超級列表框1.置標題 (索引, 6, 鏈接)
    .計次循環(huán)尾 ()
  .如果真結(jié)束
.計次循環(huán)尾 ()
.子程序 歌單列表
.局部變量 id, 文本型
.局部變量 列表文本, 文本型
.局部變量 josn, 類_json
.局部變量 i, 整數(shù)型
.局部變量 音樂標題, 文本型
.局部變量 歌手, 文本型
.局部變量 專輯, 文本型
.局部變量 文件名, 文本型
.局部變量 鏈接, 文本型
.局部變量 索引, 整數(shù)型
超級列表框1.全部刪除 ()
id ＝ 文本_倒取出中間文本 (編輯框1.內(nèi)容, “.html”, “/”)
列表文本 ＝ 編碼_utf8到gb2312 (到文本 (網(wǎng)頁_訪問 (“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&notice=0&platform=yqq&needNewCode=0”)))
列表文本 ＝ 文本_取出中間文本 (列表文本, “playlistinfoCallback(”, “})”)
列表文本 ＝ 列表文本 ＋ “}”
.如果真 (josn.解析 (列表文本))
  .計次循環(huán)首 (josn.成員數(shù) (“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 (到文本 (網(wǎng)頁_訪問_對象 (“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.取表項數(shù) ()))
    超級列表框1.置標題 (索引, 1, 音樂標題)
    超級列表框1.置標題 (索引, 2, 歌手)
    超級列表框1.置標題 (索引, 3, 專輯)
    超級列表框1.置標題 (索引, 5, 文件名)
    超級列表框1.置標題 (索引, 6, 鏈接)
  .計次循環(huán)尾 ()
.如果真結(jié)束
狀態(tài)條1.置文本 (0, “狀態(tài)：搜索完成”)
.子程序 _ape無損品質(zhì)_被選擇
.局部變量 ape品質(zhì), 文本型
.局部變量 文件大小, 整數(shù)型
ape品質(zhì) ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 6)
ape品質(zhì) ＝ 文本_替換 (ape品質(zhì), , , , “/C400”, “/A000”, “.m4a?”, “.ape?”, “fromtag=38”, “fromtag=8”, “http://dl.stream.qqmusic.qq.com/”, “http://streamoc.music.tc.qq.com/”)
文件大小 ＝ 網(wǎng)頁_取網(wǎng)絡文件尺寸 (ape品質(zhì))
.如果 (文件大小 ＜ 1000000)
  信息框 (“沒有ape格式，請換其他格式！”, 0, , )
.否則
  下載 (ape品質(zhì), 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1), “.ape”, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2))
.如果結(jié)束
.子程序 _flac無損品質(zhì)_被選擇
.局部變量 flac品質(zhì), 文本型
.局部變量 文件大小, 整數(shù)型
flac品質(zhì) ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 6)
flac品質(zhì) ＝ 文本_替換 (flac品質(zhì), , , , “/C400”, “/F000”, “.m4a?”, “.flac?”, “fromtag=38”, “fromtag=53”)
文件大小 ＝ 網(wǎng)頁_取網(wǎng)絡文件尺寸 (flac品質(zhì))
.如果 (文件大小 ＜ 1000000)
  信息框 (“沒有flac格式，請換其他格式！”, 0, , )
.否則
  下載 (flac品質(zhì), 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1), “.flac”, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2))
.如果結(jié)束
.子程序 _mp3高品質(zhì)_被選擇
.局部變量 mp3高品質(zhì)鏈接, 文本型
.局部變量 文件大小, 整數(shù)型
mp3高品質(zhì)鏈接 ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 6)
mp3高品質(zhì)鏈接 ＝ 文本_替換 (mp3高品質(zhì)鏈接, , , , “/C400”, “/M800”, “.m4a?”, “.mp3?”, “fromtag=38”, “fromtag=53”)
文件大小 ＝ 網(wǎng)頁_取網(wǎng)絡文件尺寸 (mp3高品質(zhì)鏈接)
.如果 (文件大小 ＜ 1000000)
  信息框 (“沒有mp3高品質(zhì)格式，請換其他格式！”, 0, , )
.否則
  下載 (mp3高品質(zhì)鏈接, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1), “.mp3”, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2))
.如果結(jié)束
.子程序 _mp3普通品質(zhì)_被選擇
.局部變量 mp3普通品質(zhì)鏈接, 文本型
mp3普通品質(zhì)鏈接 ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 6)
mp3普通品質(zhì)鏈接 ＝ 文本_替換 (mp3普通品質(zhì)鏈接, , , , “/C400”, “/M500”, “.m4a?”, “.mp3?”, “fromtag=38”, “fromtag=53”)
下載 (mp3普通品質(zhì)鏈接, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1), “.mp3”, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2))
.子程序 _編輯框1_被雙擊, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
編輯框1.內(nèi)容 ＝ “”
.子程序 _超級列表框1_右鍵單擊表項
彈出菜單 (菜單, , )
.子程序 下載
.參數(shù) 下載地址, 文本型
.參數(shù) 音樂標題, 文本型
.參數(shù) 音樂格式, 文本型
.參數(shù) 歌手, 文本型
.局部變量 保存路徑, 文本型
任務.類型 ＝ 4096
任務.文件地址 ＝ 下載地址
保存路徑 ＝ 讀配置項 (取運行目錄 () ＋ “\bc.ini”, “保存目錄”, “保存”, )
.如果 (文件是否存在 (取運行目錄 () ＋ “\bc.ini”) ＝ 假)
  信息框 (“請先設置保存目錄”, 0, , )
  返回 ()
.否則
  任務.本地文件路徑 ＝ 保存路徑 ＋ 歌手 ＋ “ - ” ＋ 音樂標題 ＋ 音樂格式
  任務.默認線程數(shù) ＝ 5
  下載對象.增加新任務 (任務)
  時鐘1.時鐘周期 ＝ 1000
.如果結(jié)束
.子程序 _時鐘1_周期事件
狀態(tài)條1.置文本 (1, “下載速度：” ＋ 到文本 (四舍五入 (取總下載速度 () ÷ 1024000, 2)) ＋ “ MB/s”)
.如果 (狀態(tài)條1.取文本 (1) ＝ “下載速度：0 MB/s”)
  時鐘1.時鐘周期 ＝ 1000000000
  狀態(tài)條1.置文本 (2, 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1) ＋ “ - ” ＋ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2) ＋ “ 下載完成”)
  播放音樂 (#聲音1, 假)
.否則
.如果結(jié)束
.子程序 _標簽1_鼠標左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 路徑, 文本型
路徑 ＝ 瀏覽文件夾 (“選擇保存目錄”, 假) ＋ “\”
寫配置項 (取運行目錄 () ＋ “\bc.ini”, “保存目錄”, “保存”, 路徑)
.子程序 _編輯框1_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果 (鍵代碼 ＝ #回車鍵)
  _按鈕1_被單擊 ()
.否則
.如果結(jié)束