在线音乐收集器

想学坏的小孩 · 发表于 2010-1-21 16:47:08

.版本 2
.支持库 iext
.支持库 internet

.程序集窗口程序集1
.程序集变量编号, 整数型

.子程序 _按钮1_被单击
.局部变量关键字, 文本型
.局部变量地址, 文本型
.局部变量页号, 整数型
.局部变量页面内容, 文本型

.如果 (按钮1.标题＝ “搜索”) ' 借按钮标题做停止判断标志用
.如果真 (编辑框1.内容＝ “”) ' 检查关键字
 信息框 (“关键字不得为空！”, 0, )
 返回 ()
.如果真结束
按钮1.标题＝ “停止”
连续赋值 (0, 编号, 页号)
超级列表框1.全部删除 ()
关键字＝子文本替换 (删首尾空 (编辑框1.内容), “ ”, “+”, , , 假) ' 将空格符号转为+号
地址＝ “http://search.tom.com/searchmp3.php?sl=0&word=” ＋关键字＋ “&class=&tomsearch=mp3&bg=” ' 建立初始地址
.判断循环首 (真)
 页号＝页号＋ 1
 页面内容＝取字节集数据 (HTTP读文件 (地址＋到文本 (页号)), #文本型)
 .如果真 (寻找文本 (页面内容, “没有找到”, 1, 真) ＞ 0)
 跳出循环 ()
 .如果真结束
 页面处理 (页面内容, 页号)
 .如果真 (按钮1.标题＝ “搜索”)
 跳出循环 ()
 .如果真结束

.判断循环尾 ()
信息框 (“搜索完成”, 0, )
.否则
按钮1.标题＝ “搜索”
.如果结束

.子程序页面处理
.参数内容, 文本型
.参数页面号, 整数型
.局部变量首位置, 整数型
.局部变量尾位置, 整数型
.局部变量文本容器, 文本型
.局部变量索引值, 整数型

内容＝取文本左边 (内容, 寻找文本 (内容, “”, 1, 真)) ' 分析源代码，截去不必要的代码，以免影响程序判断
尾位置＝寻找文本 (内容, “歌曲名”, , 真) ' 从页面中部开始搜索
.判断循环首 (真)
.如果真 (按钮1.标题＝ “搜索”)
 跳出循环 ()
.如果真结束
处理事件 ()
首位置＝寻找文本 (内容, “<a href=” ＋ #引号＋ “http://”, 尾位置, 真) ' 搜索歌曲超链接起始位置
.如果 (首位置＞ 0)
 尾位置＝寻找文本 (内容, #引号, 首位置＋ 9, 真) ' 搜索歌曲超链接结束位置
 文本容器＝取文本中间 (内容, 首位置＋ 9, 尾位置－首位置－ 9) ' 取出歌曲超链接文本
 .如果真 (寻找文本 (文本容器, “http://sms3.ctn.com.cn”, 1, 真) ＜ 0) ' 除去铃声下载超链接地址的影响
 编号＝编号＋ 1
 索引值＝超级列表框1.插入表项 (, 到文本 (编号), , , , )
 超级列表框1.置标题 (索引值, 1, 到文本 (页面号))
 超级列表框1.置标题 (索引值, 3, 文本容器)
 尾位置＝寻找文本 (内容, “”, 尾位置, 真) ' 搜索歌曲名称结束位置
 首位置＝倒找文本 (内容, “”, 尾位置, 真)
 文本容器＝取文本中间 (内容, 首位置＋ 16, 尾位置－首位置－ 16) ' 取出歌曲名称
 文本容器＝子文本替换 (文本容器, “”, , , , 假)
 文本容器＝子文本替换 (文本容器, “”, , , , 假) ' 过滤原始代码
 超级列表框1.置标题 (索引值, 2, 文本容器)
 超级列表框1.保证显示 (索引值)
 .如果真结束

.否则
 跳出循环 ()
.如果结束

.判断循环尾 ()

qq4424986 · 发表于 2010-2-19 01:46:08

不行啊！不能用啊

nwking · 发表于 2010-10-1 12:14:59

不能用！~~

		自动登录	找回密码
密码			注册

[易源码分享] 在线音乐收集器