.版本 2.DLL命令 CoInitialize, 整數(shù)型, "ole32.dll", , 公開(kāi), 初始化對(duì)象開(kāi)始  .參數(shù) pvReserved, 整數(shù)型, , 0.DLL命令 CoUninitialize, 整數(shù)型, "ole32.dll", , 公開(kāi), 初始化對(duì)象結(jié)束.DLL命令 ShellExecute, 整數(shù)型, "shell32.dll", "ShellExecuteA"  .參數(shù) hwnd, 整數(shù)型, , 指定一個(gè)窗口的句柄，有時(shí)候，windows程序有必要在創(chuàng)建自己的主窗口前顯示一個(gè)消息框  .參數(shù) lpOperation, 文本型, , 指定字串“open”來(lái)打開(kāi)lpFlie文檔，或指定“Print”來(lái)打印它  .參數(shù) lpFile, 文本型, , 想用關(guān)聯(lián)程序打印或打開(kāi)一個(gè)程序名或文件名  .參數(shù) lpParameters, 文本型, , 如lpszFlie是可執(zhí)行文件，則這個(gè)字串包含傳遞給執(zhí)行程序的參數(shù)  .參數(shù) lpDirectory, 文本型, , 想使用的完整路徑  .參數(shù) nShowCmd, 整數(shù)型, , 定義了如何顯示啟動(dòng)程序的常數(shù)值。參考ShowWindow函數(shù)的nCmdShow參數(shù)

.版本 2.數(shù)據(jù)類型 _kuwoSong, 公開(kāi)  .成員 music_id, 文本型  .成員 name, 文本型  .成員 song_url, 文本型  .成員 singer, 文本型  .成員 mp3size, 文本型  .成員 path, 文本型  .成員 mp3path, 文本型  .成員 aacpath, 文本型  .成員 wmadl, 文本型  .成員 mp3dl, 文本型  .成員 aacdl, 文本型  .成員 lyric, 文本型  .成員 lyric_zz, 文本型

.版本 2.支持庫(kù) internet.支持庫(kù) EThread.支持庫(kù) iext.程序集 窗口程序集_窗口1.程序集變量 kuwoSong, _kuwoSong.程序集變量 開(kāi)始解析, 邏輯型.子程序 __啟動(dòng)窗口_創(chuàng)建完畢.子程序 GetSongInfo, 邏輯型.參數(shù) music_id, 文本型.局部變量 bin, 字節(jié)集.局部變量 str, 文本型bin ＝ HTTP讀文件 (“http://www.kuwo.cn/webmusic/st/getMuiseByRid?rid=MUSIC_” ＋ music_id ＋ “&flag=3&r=” ＋ Random ())str ＝ 到文本 (CCharset (bin))kuwoSong.name ＝ GetStr (str, “<name>”, “</name>”)kuwoSong.path ＝ GetStr (str, “<path>”, “</path>”)kuwoSong.wmadl ＝ GetStr (str, “<wmadl>”, “</wmadl>”)kuwoSong.mp3dl ＝ GetStr (str, “<mp3dl>”, “</mp3dl>”)kuwoSong.aacdl ＝ GetStr (str, “<aacdl>”, “</aacdl>”)kuwoSong.lyric ＝ GetStr (str, “<lyric>”, “</lyric>”)kuwoSong.singer ＝ GetStr (str, “<singer>”, “</singer>”)kuwoSong.mp3size ＝ GetStr (str, “<mp3size>”, “</mp3size>”)kuwoSong.mp3path ＝ GetStr (str, “<mp3path>”, “</mp3path>”)kuwoSong.aacpath ＝ GetStr (str, “<aacpath>”, “</aacpath>”)kuwoSong.music_id ＝ GetStr (str, “<music_id>”, “</music_id>”)kuwoSong.song_url ＝ GetStr (str, “<song_url>”, “</song_url>”)kuwoSong.lyric_zz ＝ GetStr (str, “<lyric_zz>”, “</lyric_zz>”).如果 (kuwoSong.music_id ＝ “”)  返回 (假).否則  返回 (真).如果結(jié)束.子程序 Random, 文本型, 公開(kāi).局部變量 VBScript, 對(duì)象.局部變量 值, 雙精度小數(shù)型.局部變量 文本值, 文本型VBScript.創(chuàng)建 (“ScriptControl”, )VBScript.寫(xiě)屬性 (“Language”, “JScript”)VBScript.數(shù)值方法 (“ExecuteStatement”, “function random(){return Math.random()}”)值 ＝ VBScript.通用方法 (“Run”, “random”, ).取數(shù)值 ()文本值 ＝ 到文本 (值)返回 (文本值).子程序 CCharset, 字節(jié)集, 公開(kāi), 改變編碼.參數(shù) 待轉(zhuǎn)換數(shù)據(jù), 字節(jié)集.參數(shù) 轉(zhuǎn)換前編碼, 文本型, 可空, 默認(rèn)UTF-8,utf-8；unicode；GBK 等.參數(shù) 轉(zhuǎn)換后編碼, 文本型, 可空, 默認(rèn)GBK,utf-8；unicode；GBK 等.參數(shù) 轉(zhuǎn)換后數(shù)據(jù)開(kāi)始位置, 整數(shù)型, 可空, 位置從0開(kāi)始。unicode編碼標(biāo)識(shí)占2個(gè)字節(jié)，utf-8編碼標(biāo)識(shí)占3個(gè)字節(jié).局部變量 文本, 文本型.局部變量 變體型, 變體型.局部變量 this, 對(duì)象.局部變量 返回值, 字節(jié)集.如果真 (是否為空 (轉(zhuǎn)換前編碼) ＝ 真)  轉(zhuǎn)換前編碼 ＝ “UTF-8”.如果真結(jié)束.如果真 (是否為空 (轉(zhuǎn)換后編碼) ＝ 真)  轉(zhuǎn)換后編碼 ＝ “GBK”.如果真結(jié)束this.創(chuàng)建 (“Adodb.Stream”, )this.寫(xiě)屬性 (“Type”, 1)this.方法 (“Open”, )變體型.創(chuàng)建數(shù)組 (#字節(jié)型, 取字節(jié)集長(zhǎng)度 (待轉(zhuǎn)換數(shù)據(jù)))變體型.賦值 (待轉(zhuǎn)換數(shù)據(jù), )this.方法 (“Write”, 變體型)this.寫(xiě)屬性 (“Position”, 0)this.寫(xiě)屬性 (“Type”, 2)this.寫(xiě)屬性 (“Charset”, 轉(zhuǎn)換前編碼)文本 ＝ this.文本方法 (“ReadText”, -1)this.方法 (“Close”, )this.方法 (“Open”, )this.寫(xiě)屬性 (“Charset”, 轉(zhuǎn)換后編碼)this.方法 (“WriteText”, 文本, )this.寫(xiě)屬性 (“Position”, 0)this.寫(xiě)屬性 (“Type”, 1).如果真 (是否為空 (轉(zhuǎn)換后數(shù)據(jù)開(kāi)始位置) ＝ 假)  this.寫(xiě)屬性 (“Position”, 轉(zhuǎn)換后數(shù)據(jù)開(kāi)始位置).如果真結(jié)束變體型 ＝ this.通用方法 (“Read”, -1)返回值 ＝ 變體型.取字節(jié)集 ()返回 (返回值).子程序 GetStr, 文本型, 公開(kāi).參數(shù) 內(nèi)容, 文本型.參數(shù) 頭, 文本型.參數(shù) 尾, 文本型.參數(shù) 返回?cái)?shù)組, 文本型, 可空 數(shù)組.局部變量 開(kāi)始, 整數(shù)型.局部變量 結(jié)束, 整數(shù)型.局部變量 長(zhǎng)度, 整數(shù)型.局部變量 結(jié)果內(nèi)容, 文本型, , "0".判斷循環(huán)首 (尋找文本 (內(nèi)容, 頭, 開(kāi)始, 真) ≠ -1)  開(kāi)始 ＝ 尋找文本 (內(nèi)容, 頭, 開(kāi)始, 真) ＋ 取文本長(zhǎng)度 (頭)  結(jié)束 ＝ 尋找文本 (內(nèi)容, 尾, 開(kāi)始, 真)  .如果真 (開(kāi)始 ＝ -1 或 結(jié)束 ＝ -1)    到循環(huán)尾 ()  .如果真結(jié)束  長(zhǎng)度 ＝ 結(jié)束 － 開(kāi)始  加入成員 (結(jié)果內(nèi)容, 取文本中間 (內(nèi)容, 開(kāi)始, 長(zhǎng)度)).判斷循環(huán)尾 ()返回?cái)?shù)組 ＝ 結(jié)果內(nèi)容.如果 (取數(shù)組成員數(shù) (返回?cái)?shù)組) ＞ 0)  返回 (返回?cái)?shù)組 [1]).否則  返回 (“”).如果結(jié)束.子程序 _按鈕1_被單擊.如果 (開(kāi)始解析)  信息框 (“請(qǐng)稍等片刻，上次操作還在處理中......”, 0, “提示”).否則  啟動(dòng)線程 (&子程序2, , ).如果結(jié)束.子程序 子程序2.局部變量 music_id, 文本型CoInitialize (0)開(kāi)始解析 ＝ 真kuwoSong.music_id ＝ “”超級(jí)列表框1.置標(biāo)題 (0, 1, “”)超級(jí)列表框1.置標(biāo)題 (1, 1, “”)超級(jí)列表框1.置標(biāo)題 (2, 1, “”)超級(jí)列表框1.置標(biāo)題 (3, 1, “”)超級(jí)列表框1.置標(biāo)題 (4, 1, “”)超級(jí)列表框1.置標(biāo)題 (5, 1, “”)music_id ＝ GetStr (編輯框1.內(nèi)容 ＋ “/”, “/yinyue/”, “/”).如果 (GetSongInfo (music_id))  加入列表框 ().否則  信息框 (“獲取失敗，請(qǐng)檢查地址是否正確或工具已失效......”, 0, “提示”).如果結(jié)束開(kāi)始解析 ＝ 假CoUninitialize ().子程序 加入列表框超級(jí)列表框1.置標(biāo)題 (0, 1, kuwoSong.name)超級(jí)列表框1.置標(biāo)題 (1, 1, kuwoSong.singer)超級(jí)列表框1.置標(biāo)題 (2, 1, kuwoSong.mp3size)超級(jí)列表框1.置標(biāo)題 (3, 1, “http://” ＋ kuwoSong.mp3dl ＋ kuwoSong.mp3path).如果真 (kuwoSong.wmadl ≠ “”)  超級(jí)列表框1.置標(biāo)題 (4, 1, “http://” ＋ kuwoSong.wmadl ＋ kuwoSong.path).如果真結(jié)束.如果真 (kuwoSong.aacdl ≠ “”)  超級(jí)列表框1.置標(biāo)題 (5, 1, “http://” ＋ kuwoSong.aacdl ＋ kuwoSong.aacpath).如果真結(jié)束.子程序 _超級(jí)列表框1_被雙擊, 邏輯型.參數(shù) 橫向位置, 整數(shù)型.參數(shù) 縱向位置, 整數(shù)型.參數(shù) 功能鍵狀態(tài), 整數(shù)型.局部變量 下載地址, 文本型.如果真 (超級(jí)列表框1.現(xiàn)行選中項(xiàng) ＝ 3 或 超級(jí)列表框1.現(xiàn)行選中項(xiàng) ＝ 4 或 超級(jí)列表框1.現(xiàn)行選中項(xiàng) ＝ 5)  下載地址 ＝ 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 1)  .如果真 (取文本長(zhǎng)度 (下載地址) ＞ 10)    ShellExecute (0, “open”, 下載地址, “”, “”, 1)    返回 ()  .如果真結(jié)束.如果真結(jié)束