.版本 2
.常量 鏈接1, "<文本長(zhǎng)度: 9>"
.常量 鏈接2, "<文本長(zhǎng)度: 2>"

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