MP3下载外链(优化版)

yppy988

原 MP3外链生成工具  修复了一些BUG  添加了一些功能 调用 精易模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
句柄	整数型
秒	整数型

子程序名	返回值类型	公开	备 注
_按钮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)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

XP风格 (1)
创建目录 (取运行目录 () ＋ “\temp\”)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

媒体播放1.暂停 ()
时钟1.时钟周期 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮4_被单击

编辑框2.内容 ＝ “http://link.hhtjim.com/xiami/” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “.mp3”

子程序名	返回值类型	公开	备 注
搜索

变量名	类 型	静态	数组	备 注
html	文本型
ID	文本型		0
歌手	文本型		0
专辑	文本型		0
歌名	文本型		0
n	整数型
h	整数型
b	整数型
a	整数型
x	整数型
表项	整数型

超级列表框1.全部删除 ()
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_周期事件

变量名	类 型	静态	数组	备 注
分	整数型
时间	文本型

秒 ＝ 秒 ＋ 1
如果真 (秒 ＝ 60)
秒 ＝ 0
分 ＝ 分 ＋ 1
如果 (分 ≥ 1)
如果 (秒 ≤ 9)
时间 ＝ 到文本 (分) ＋ “:0” ＋ 到文本 (秒)
时间 ＝ 到文本 (分) ＋ “:” ＋ 到文本 (秒)

如果 (秒 ≤ 9)
时间 ＝ “0” ＋ 到文本 (秒)
时间 ＝ 到文本 (秒)

进度条1.位置 ＝ 进度条1.位置 ＋ 1
如果真 (进度条1.位置 ＝ 进度条1.最大位置)
时钟1.时钟周期 ＝ 0
透明标签1.标题 ＝ 时间 ＋ “ \ ” ＋ 到文本 (媒体播放1.取总时间 () ＼ 60) ＋ “:” ＋ 到文本 (媒体播放1.取总时间 () ％ 60)

子程序名	返回值类型	公开	备 注
_按钮5_被单击

执行 (4, 取运行目录 () ＋ “\temp\”, , , )

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
eMMedia	多媒体支持库
internet	互联网支持库
xplib	XP风格界面库
spec	特殊功能支持库
shell	操作系统界面功能支持库

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

zj19760117

感谢楼主分享

4slajfpahf

感谢楼主分享，学习了

kspz

不错，下载学习

学易新

谢谢分享了。。。。。

aaaccc004

谢谢 分享。。。。。

kycheng131

下载试试 看看可以用吗

w854625286

invalid resources xiami .

w854625286

很好很强大

xiaole1118

谢谢我喜欢

gaoqing

谢谢我喜欢