| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 句柄 | 整数型 | ||
| 秒 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “”)
信息框 (“请先搜索！”, #警告图标, , )返回 ()
如果真 (媒体播放1.取状态 () ＝ 3)媒体播放1.播放 (-1, )时钟1.时钟周期 ＝ 1000返回 ()秒 ＝ 0
如果 (文件是否存在 (取运行目录 () ＋ “\temp\” ＋ 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”) ＝ 真)媒体播放1.打开 (取运行目录 () ＋ “\temp\” ＋ 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”)媒体播放1.播放 (-1, )
时钟1.时钟周期 ＝ 1000
如果 (写到文件 (取运行目录 () ＋ “\temp\” ＋ 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”, HTTP读文件 (“http://link.hhtjim.com/xiami/” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”)) ＝ 真)
媒体播放1.打开 (取运行目录 () ＋ “\temp\” ＋ 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”)媒体播放1.播放 (-1, )时钟1.时钟周期 ＝ 1000
信息框 (“获取失败！ 请重试！”, 0, , )返回 ()
进度条1.最大位置 ＝ 媒体播放1.取总时间 ()
标题 ＝ “正在播放 ” ＋ 编辑框1.内容 ＋ “ ID: ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
创建目录 (取运行目录 () ＋ “\temp\”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮3_被单击 | |||||
时钟1.时钟周期 ＝ 0
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮4_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 搜索 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| html | 文本型 | |||||
| ID | 文本型 | 0 | ||||
| 歌手 | 文本型 | 0 | ||||
| 专辑 | 文本型 | 0 | ||||
| 歌名 | 文本型 | 0 | ||||
| n | 整数型 | |||||
| h | 整数型 | |||||
| b | 整数型 | |||||
| a | 整数型 | |||||
| x | 整数型 | |||||
| 表项 | 整数型 | |||||
html ＝ 网页_访问S (“http://www.xiami.com/search?key=” ＋ 编码_URL编码 (编辑框1.内容, , 真) ＋ “&pos=1”, 0, , , , , , , , , )
文本_取中间_批量 (html, “type=” ＋ #引号 ＋ “checkbox” ＋ #引号, “name=” ＋ #引号 ＋ “recommendids” ＋ #引号, ID, , , , , , , )
文本_取中间_批量 (html, “[url=”]”, 歌手, , , , , , , )
文本_取中间_批量 (html, “[/url][url=”]”, 专辑, , , , , , , )
文本_取中间_批量 (html, “[/url][url=”]”, 歌名, , , , , , , )
计次循环首 (取数组成员数 (歌名), x)歌名 [x] ＝ 文本_取出中间文本 (歌名 [x], “title=” ＋ #引号, #引号 ＋ “>”, , )
计次循环尾 ()计次循环首 (取数组成员数 (专辑), n)专辑 [n] ＝ 文本_取出中间文本 (专辑 [n], “《”, “》”, , )计次循环尾 ()计次循环首 (取数组成员数 (歌手), h)歌手 [h] ＝ 文本_取出中间文本 (歌手 [h], “title=” ＋ #引号, #引号, , )计次循环尾 ()计次循环首 (取数组成员数 (专辑), b)ID [b] ＝ 文本_取出中间文本 (ID [b], “value=” ＋ #引号, #引号, , )计次循环尾 ()计次循环首 (取数组成员数 (专辑), a)表项 ＝ 超级列表框1.插入表项 (, , , , , )超级列表框1.置标题 (表项, 0, ID [a])超级列表框1.置标题 (表项, 1, 歌名 [a])超级列表框1.置标题 (表项, 2, 歌手 [a])如果真 (取文本左边 (专辑 [a], 9) ＝ “<b class="”)专辑 [a] ＝ 文本_取出中间文本 (专辑 [a], “”, “”, )超级列表框1.置标题 (表项, 3, 专辑 [a])计次循环尾 ()调试输出 (强制结束线程 (句柄))
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _时钟1_周期事件 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 分 | 整数型 | |||||
| 时间 | 文本型 | |||||
如果真 (秒 ＝ 60)秒 ＝ 0分 ＝ 分 ＋ 1如果 (分 ≥ 1)如果 (秒 ≤ 9)时间 ＝ 到文本 (分) ＋ “:0” ＋ 到文本 (秒)时间 ＝ 到文本 (分) ＋ “:” ＋ 到文本 (秒)如果 (秒 ≤ 9)时间 ＝ “0” ＋ 到文本 (秒)时间 ＝ 到文本 (秒)进度条1.位置 ＝ 进度条1.位置 ＋ 1
如果真 (进度条1.位置 ＝ 进度条1.最大位置)时钟1.时钟周期 ＝ 0透明标签1.标题 ＝ 时间 ＋ “ \ ” ＋ 到文本 (媒体播放1.取总时间 () ＼ 60) ＋ “:” ＋ 到文本 (媒体播放1.取总时间 () ％ 60)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮5_被单击 | |||||
| i支持库列表 | 支持库注释 |
| EThread | 多线程支持库 |
| iext | 扩展界面支持库一 |
| eMMedia | 多媒体支持库 |
| internet | 互联网支持库 |
| xplib | XP风格界面库 |
| spec | 特殊功能支持库 |
| shell | 操作系统界面功能支持库 |
