无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 5285|回复: 5
打印 上一主题 下一主题

用批处理整理百度MP3上歌曲排行榜MP3及LRC文件的批量下载链接地址(含图文教程)

[复制链接]
跳转到指定楼层
1#
发表于 2011-4-25 14:28:11 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本文结构如下:

一、缘起:问题的提出
二、试探:徒劳而返
三、峰回路转:芝麻!开门!
四、万事俱备:xml文件里的玄机
五、临阵换将:curl还是wget?
六、下载,我喜欢批量的:如何用迅雷批量下载mp3?
七、收网:从百度MP3榜单批量抓取音乐文件的方案
八、一波三折:查漏补缺,继续完善


一、缘起:问题的提出

  2008年,“音著协”冲冠一怒,与百度音乐对薄公堂。一夜之间,mp3文件的直接下载链接从百度音乐中销声匿迹。
  3年后,在CCF论坛上,有网友问我:能做个抓取百度MP3的批处理么?心中没底,但又感觉并非不可能实现,于是,我审慎地答曰:我试试。

二、试探:徒劳而返

  依稀记得,百度音乐是mp3的集散地,里面宝贝无数。找到里面的“歌曲top500”,对着网页点右键,“使用迅雷下载全部链接”,弹出“选择要下载的URL”对话框,我的心就咯噔了一下。再拉拉右边的下拉条,一条条URL流水般滑过,始终没见到期待中的mp3图标。想到“音著协”与百度音乐的官司,我心里一阵黯然:看来,是不能直接用迅雷来批量下载百度音乐中的MP3文件了——别了,我的MP3饕餮大餐。
  无聊中,手贱,点了某mp3的试听链接,新开了个网页,出来了一个内嵌的播放器,缓冲一阵之后,跳出了一个网页链接,音乐声随之欢快地响起,不由眼前一亮:不就是跳转了一下么?嘿嘿,我可抓住你了!鼠标右键点开“查看源文件”,用网页中内嵌播放器显示的mp3网址一通搜索,竟然踪影全无,**,难道还有一层跳转?仔细一看源代码,竟然调用.js无数,吐血数升。
  一连串的打击,让我从失望中看到希望,又从希望中走向绝望,这反倒激起了我的无穷斗志:看不懂html,可我楞是在记事本里折腾了几十分钟;搞不懂iframe,却阻碍不了我动用世界之窗浏览器中查看网页元素的脚步;http协议略知皮毛,我依然不知疲倦地在HttpWatch中抓包……凭我的三脚猫功夫,我还不信搞不定你!who怕who!无知者最大的优点,就是具有大无畏的精神,以为自己的诚心能感动上天,欲以区区两块RMB博得巨额大奖500W。而当时的我,竟然试图以一己之力,破解百度的MP3下载加密技术。现在回想起来,那是何等的大无畏啊!
  单打独斗是行不通的,再次求助于网络。网上bai之go之,以“百度音乐 真实下载地址”、“百度音乐 地址解密”……等等作为关键词,得到结果无数,大都是点开试听链接之后手工单个提取下载链接的方法,偶有一些高级的,竟是下载js之后分析其运作机制后再编程提取url的,或者干脆把那些js弄回来调用的。可怜我这习惯于在批处理中横冲直撞之人,是断然无法接受手工提取方案的;偏偏又是js白痴一个,看js代码看得满天星斗,仍然不得要领。一时泄气无比,奄奄一息虚度时日无数。

三、峰回路转:芝麻!开门!

  忽然有一天,记得当时大事不断:一个常去的网站在我猛按F5之后,竟然一整天都停留在404界面上;一老乡哭丧着脸说他工作上一个非常重要的word文档无意中删除内容被清空了,央求我帮他恢复一下数据;某同事让我重装系统,全新安装之后,才发现居然没有找到随机的驱动盘,而身边竟然无网可用;正在工地上行走,忽然一脚踩空从1米多高的地方倒栽进坑里,灰头土脸地正拍打着,却发现电脑还在身旁空转,桌上口水成堆,额头上一个大包,这才惊觉此乃南柯一梦……那是非常特别的一天,屋漏偏逢连夜雨,生活中万分之一小概率的事情全堆在一起,接踵而至。半梦半醒之际,我见证了否极泰来,一件十分重大的事情发生了,那就是:我找到了打开宝藏之门的钥匙!从此之后,我只要口中念念有词,轻喝一声:芝麻!紧闭的百度音乐之门将轰然洞开。
  这一切,源于一个叫百度音乐API的玩意。
  你见,或者不见,它就在那里,有增有减;你知,或者不知,它都在等你,不曾离去。表面上,百度声称它的服务器中不存放MP3文件本身,而只是提供了搜索的链接结果;表面上,在百度MP3中搜索到的音乐文件,是需要层层跳转到某个界面才可以看到真实的下载链接;表面上,那个经常排在所有下载链接中第一个的http://zhangmenshiting.baidu.com网站下载链接,过了一两个小时再用同一url是无法下载的;表面上,百度搜索到的下载链接来源五花八门……实际上呢?实际上,那个叫http://zhangmenshiting.baidu.com/的网站经常排在众多下载链接的第一位;实际上,大部分mp3文件的来源其实真的只有那么几个;实际上,那些下载链接真的不在百度的服务器上;实际上,百度真的已经从服务器上断开了它们的链接……真的,以前辛辛苦苦收集了好几年的mp3文件,已经一夜之间从百度服务器上消失了;真的,百度服务器上是有那么一张表,表上记录了网上众多mp3的下载链接,只要你愿意搜,总能在这张表上找到它们,可它们真的不在我百度的服务器上啊,你懂的。
  实际上,百度音乐是没有API的,因为,它从来就没有出现在我百度的官方网站上;网上流传的那些所谓的“不公开的API”,都是临时工干的。
  经过我的反复搜索,我发现那个临时工大约是在2009年10月份干的这件事情(确切时间待考),顺带说一声,是在百度hi上。这个API的真面目是:http://box.zhangmen.baidu.com/x?op=12&count=1&title=大约在冬季$$齐秦$$$$,“大约在冬季”可以用任意歌曲名替换,“齐秦”可以用对应的歌手名来替换。有了这个API,只需要知道歌曲名和歌手名,或者只知道歌曲名,就能从百度服务器中取回一个xml文件,在这个xml文件中,含有这首歌曲MP3文件的真实下载地址,并且大部分都提供有多个备用地址。
  歌曲名和歌手名上哪里去找?百度MP3网页的那些分类里不是有现成的么?真是环环相扣啊!只要你有办法批量找到歌曲名和歌手名的对应关系,那,找到mp3文件的真实下载链接将是轻而易举的事情!
  那我们就开始找歌曲名和歌手名的对应关系吧。
  打开百度MP3网页:http://mp3.baidu.com,进“榜单”里瞅瞅:http://list.mp3.baidu.com/index.html,我们的重点在“歌曲排行”。为啥?不解释,跟我来吧。看看“新歌100”:http://list.mp3.baidu.com/top/top100.html,是不是发现有“1 医生 许嵩”、“2 星辰变 吴克群”……之类的?有木有?是不是一拉就一大堆?有木有?点右键,“查看源文件”,用这些歌曲名或歌手名做关键词,是不是可以搜索到对应的另一半?有木有?到底有木有?看看“歌曲top500”、“日韩流行风”等等(中文金曲和中国民乐除外),是不是都同一副德行?有木有?有木有?
  如果要把“新歌100”中歌曲名和歌手名的对应关系一一找出来,我只需用 wget -O top100.html "http://list.mp3.baidu.com/top/top100.html" 就可以把这个网页文件下载到本地,然后,用 findstr /i "td.class=\"td[b-d]\"" top100.html 把含有歌曲序号、歌曲名和歌手名这些信息的行提取出来,放for中切分一下,剔除多余的信息,仅保留歌曲序号、歌曲名和歌手名,并不是什么困难的事情。然后再用 wget -O "序号_歌曲名_歌手名.xml" "http://box.zhangmen.baidu.com/x?op=12&count=1&title=歌曲名$$歌手名$$$$",乖乖,不得了了,这些歌曲的下载地址转眼之间都被抓回来了。

四、万事俱备:xml文件里的玄机

  我们找一个xml文件来分析一下。以黄小琥演唱的“没那么简单”为例:
<?xml version="1.0" encoding="gb2312" ?><result><count>5</count><url><encode>http://zhangmenshiting.baidu.com ... a26cbWhlamRlbm5rbTE$</encode><decode>%E6%B2%A1%E9%82%A3%E4%B9%88%E7%AE%80%E5%8D%95.mp3?xcode=8c806c47fc917e8c60279f6048119845</decode><type>8</type><lrcid>874703</lrcid><flag>0</flag></url><url><encode>http://joy.online.sh.cn/joys/gb/ ... lpeVZZponpKUaGdlbjc$.mp3</encode><decode>0025116bbdda0d1fab5308.mp3</decode><type>1</type><lrcid>874703</lrcid><flag>0</flag></url><url><encode>http://www.aaron.cn/mp3/npecYZ-fmKaVk6E0.mp3<;/encode><decode>mei-jiandan.mp3</decode><type>1</type><lrcid>874703</lrcid><flag>0</flag></url><url><encode>http://www.jjlxs.com/nqCgnpk2.mp3<;/encode><decode>mnmjd.mp3</decode><type>1</type><lrcid>874703</lrcid><flag>0</flag></url><url><encode>http://117.34.78.14/bbmedia.qq.com/musictop/new/YmRpZWlmam9mZzM$.wma</encode><decode>1261403755.wma</decode><type>3</type><lrcid>874703</lrcid><flag>0</flag></url><p2p><hash>09e3de9c46e05dca4723e95eb1cc774744c73497</hash></p2p></result>

  上面的内容只有一行,在此只分析和本次目的关系密切的几个标签:<count>5</count>表示获取到5条下载地址,<url>和</url>之间是具体的下载链接,这个链接被分成了两部分:<encode>和</encode>之间的字符串表示mp3文件的网络目录,但你千万别被这一行上带.mp3结尾的字符串所迷惑,以为那就是真实的下载链接——你要知道,百度也不是吃素的,哪能让别人这么容易就抓住了狐狸尾巴?如果你真以为那就是真实的下载链接,那你就中计了。实际上,不管这个字符串最后一个"/"之后的字符串有多长,它们有多么的像一个完整的url地址,你也不能轻易相信那就是完整的、真实的下载链接,那只不过是百度耍的一个障眼法而已,骗骗小白可以,想蒙我,哼哼,没那么容易:把这个字符串最后一个"/"之后的字符串去掉,剩下的那串字符不就是mp3的网络目录么?真正的mp3文件名,是在紧跟其后的<decode>和</decode>之间的那一串字符——即使它们有如一串乱码,不知所云,甚至它们根本就不以.mp3结尾,但你得坚定一条信念,那就是:<decode>和</decode>之间的那串字符真正代表了mp3文件名。把网络目录和mp3文件名合并起来,就是这个mp3文件在网络上的真实下载地址了。比如:http://www.aaron.cn/mp3/mei-jiandan.mp3。<type>和</type>之间的数字,表示音乐文件的类型,有文章分析说,0表示mp3文件,1表示wma文件……从本人浮光掠影的分析结果来看,这些结论已经时过境迁了,唯一不变的就是:这些数字所表示的含义是在不断变化的,可以不用管它们。<lrcid>和</lrcid>之间的数字,表示该歌曲的歌词文件的网络地址信息,规则是:假设这个数为A,用A除以100,取结果的整数B,拼凑起形如"http://box.zhangmen.baidu.com/bdlrc/B/A.lrc"的路径,这个路径就是这个歌词文件的下载地址!在这个例子中,874703除以100再取整数部分,得到8747,拼凑起来就得到了“没那么简单”这首歌曲在百度服务器上的下载地址:http://box.zhangmen.baidu.com/bdlrc/8747/874703.lrc

五、临阵换将:curl还是wget?

  最开始,下载网络数据我一直使用的是curl。我对它的偏爱,源于对它的熟悉以及对其他命令行下载工具的陌生,“无它,唯手熟耳”。
  用得多了,就开始感到了它的不足:有时候,某个网页明明可以通过IE浏览器看到,但用curl下载回来的时候,竟然少了很多内容;找到了某个文件,curl下载之,居然纹丝不动。抱着试试看的心态,试用了一下wget,下载精准,速度飞快,完全是另外一个境界,大喜,遂弃curl而改用wget。

六、下载,我喜欢批量的:如何用迅雷批量下载mp3?

  获取单条下载地址,Ctrl+C之后,Ctrl+V手工输入迅雷的下载界面中去,再手工改名,如此这般,周而复始,天呐,百度MP3里的歌曲成千上万,这得下载到猴年马月啊?
  有没有什么办法,让迅雷批量下载那些MP3?不仅仅是下载就了事,最好还得在下载的时候,自动重命名mp3文件为含歌曲名+歌手名的格式?要不然,面对下载回来的一堆以随机的数字+字符命名的mp3文件,我怎么知道谁是谁啊?总不能全部试听一遍之后再重命名吧?想自虐也得找点科技含量高点的方式吧?
  以本人多年使用迅雷的经验,批量下载mp3的方式有两个:1、把下载地址保存为.lst文件,一行一条url,不能多也不能少,迅雷之中使用“导入下载列表”的功能即可;2、构造html网页,嵌入url地址,网页浏览器中点右键,“使用迅雷下载全部链接”,筛选后即可。
  整理成.lst文件,可以大幅压缩文件体积,但此法稍显冷僻;整理成html网页,点右键选择更具有直观性,是大众化的操作方式。
  到目前为止,仅仅解决了批量下载的方式,自动重命名又该如何处理?
  记得在迅雷的早期版本中,是可以在.lst文件中写入注释内容的,在迅雷的下载界面中再配合“以注释命名”的方式,是可以实现批量下载+自动以注释内容重命名文件的想法的,惜乎记忆模糊,几番折腾下来,仍然不得其法,莫非在新版本中已经不支持在.lst文件中写入注释内容了?一如迅雷升级到7.X版本之后,就放弃了方便无比的、批量“以注释内容重命名文件”的功能?
  CCF发帖求助,无解,但得知迅雷5和FlashGet支持从网页代码中获取文本内容作为重命名文件时的注释内容,无心插柳柳成荫,这真是一个重大的意外收获,为后续的自动重命名铺平了道路。
  构造了一个html网页,<a href="……">中填入真实的下载地址,<a>……</a>之间插入文件名,比如“<a href="http://www.aaron.cn/mp3/mei-jiandan.mp3">没那么简单_黄小琥.mp3</a>”。IE中打开html,右键选择“使用迅雷下载全部链接”,调用迅雷5,弹出“选择要下载的URL”界面,先取消“全选”,再点“筛选”。“扩展选择”中,“站点”之下,选择相应站点,“扩展名”之下,选择.mp3及.wma。一路确定,来到“建立新的下载任务”界面,选择好存储目录,在“另存名称”之后,点尾部的倒三角形,选择“注释命名”,确定之后,将会把网站上的"mei-jiandan.mp3"下载回来,并自动重命名为"没那么简单_黄小琥.mp3"。
  如果只有一条记录,那就是单文件下载;如果列表中有N条记录,这不就是传说中的批量下载么?转眼之间,就可以把网络上经过整理的经典mp3搬回家,哈哈,这是件何等幸福的事情啊!
  题外话:为什么要用迅雷?wget不可以下载mp3么?答曰:wget也可以下载mp3,并且还能实现从头到尾的全程自动化,但网络中有一种令下载狂们闻之色变叫做的“死链”的东西。批处理仅负责整理下载链接,而把下载mp3文件的重任交给迅雷,是希望借助迅雷强大的智能搜索功能,最大程度地消除死链的影响,并在中途断开网络的时候,能保存下载进度,实现下一次的断点续传,尤为重要的是,在这个速度为王的时代,我们还希望借助它的吸血特性,保证下载的高速度。

七、收网:从百度MP3榜单批量抓取音乐文件的方案

  事已至此,我已看到彩旗招展,我已听到锣鼓喧天,压轴大戏,已经就位,只等一声令下,就可以登台亮相了。从百度MP3批量抓取音乐文件的方案就此出炉:
  1、把百度MP3榜单的分类地址保存到一个配置文件中,一行一个分类,以便批处理读取;
  2、wget下载每个分类的html页面,从中获取歌曲名和歌手名的对应列表;
  3、把歌曲名和对应的歌手名信息嵌入"http://box.zhangmen.baidu.com/x?op=12&count=1&title=歌名$$歌手名$$$"这个URL中,down回一个含有真实下载链接的xml文件;
  4、从xml文件中提取mp3文件的第一个下载地址(为什么同一mp3文件不整理出多个url——一个地址足矣,难道你想一个文件下载多个副本么?),顺手牵羊把对应的lrc地址也整理一下;
  5、把mp3文件的下载地址列表整理到html文件中去,在<a href="……">中写入下载地址,在<a>和</a>之间写入真实的歌曲名;
  6、剩下的事情,交给迅雷来处理吧,记得文件的命名方式要选择"注释命名";
  7、over,您就等着享受吧。

八、一波三折:查漏补缺,继续完善

  什么?有些文件下载不回来?迅雷那么牛,居然还有不给力的时候?
  查,给我查,一查到底,绝不手软……貌似这话非常熟悉,在哪里听过?
  记事本不够用了,EditPlus顶上;批处理太快了,开CMD窗口单步执行;迅雷可能有盗链,会影响问题源头的跟踪,那就开动wget检查……把无法下载的url都汇总一下,看看它们都有哪些共同之处。
  2011年3月,携3.15之余威,“文著协”与百度文库对决于网络。初期,百度文库坚称自己仅是一个平台,适用网络避风港原则,拒不承认自己的产品有侵权行为;后来,在监管部门和舆论的双重压力之下,3月底,百度文库文学作品的数量从280万份锐减至100余份,百度文库声称已经在自己的平台上断开了涉嫌侵权作品的网络链接。
  呵呵,好一个“已经断开了它们的网络链接”!你见,或者不见,它就在那里,增多减少,你懂的。想当初,百度音乐不也是声称自己已经断开了mp3文件在百度音乐网站上的下载地址网络链接了么?
  我发现,有个叫http://zhangmenshiting.baidu.com的网址频繁出现于下载回来的xml文件中,并且往往盘踞在第一位,甚至整个xml文件全是这个网址的链接。很明显,这个网站是百度的,不需要url转码,直接拼音翻译,连起来就是:爱曲踢踢屁://掌门试听.百度.可摸。百度音乐服务器上没有保存mp3并供网民下载么?鬼才信。不过貌似近期有传言说百度和“音著协”有了合作,利润分成,在百度服务器上放正版音乐文件,可能也是合作内容的一部分吧。不过,百度没有做得那么肆无忌惮,这个下载链接是有时效性的,可能是10分钟之后,也可能是一两个小时,当你再次用http://zhangmenshiting.baidu.com上的同一个url地址下载mp3文件的时候,是没法继续下载的,好像这个文件就从来没有在百度的服务器上存在过一样。
  当我只提取第1条url、并且第1条url正好是http://zhangmenshiting.baidu.com网站上的地址的时候,有可能无法下载到mp3文件的悲剧就发生了。从http://zhangmenshiting.baidu.com这个网址长期占据大部分下载链接的第一位这个有百度特色的现象来看,这种悲剧不是小概率事件。
  举一反三,其他的网站可能也存在类似的情况,甚至会存在文件被移走、删除、网站倒闭等极端情况,毕竟,这就是网络,“水无常势,兵无常形”,一切都在变化之中,唯一不变的就是:网络随时都在发生改变。
  “死链”终于还是来了,有百度特色的、没有百度特色的,概莫能外,这个问题必须解决,刻不容缓。
  好在下载回来的xml文件中包含的下载链接往往不只一条,表面上看是来自多个网站的。看来百度早就预料到了死链的问题,所以提供了多个备用的下载地址。那我也就不客气了,一一笑纳,也弄一个备用下载链接的网页文件吧,但是,来自http://zhangmenshiting.baidu.com的下载链接是绝对不能再要了。
  即使有备用下载链接做保证,“死链”仍然是无法避免的,更有甚者,连http://box.zhangmen.baidu.com都没有收集到——是它不能,还是它故意不给?无从猜测。总之,有些mp3是没法搞定的。那就弄个文件,保存一下无法下载回来的mp3文件列表吧,如果追求完美的话,以后也可以打开这个文件,用里面的关键词在网上手工搜索下载链接。
  看来,整理xml文件中的下载链接的时候,还得考虑各种死链问题,整理xml文件的方案还得做如下修改:

  1、首先解析<count>和</count>之间的数字,若为0,则把该xml文件对应的歌曲名及歌手名写入下载失败列表中;如果不为0,往下走;
  2、检测第一个url,如果不是来自http://zhangmenshiting.baidu.com,则提取出来,放入批量下载列表中,写入html文件;如果来自那个网站,往下走;
  3、继续解析下一个url,处理步骤如前一条,直至检测到第一个有效的url地址,或者是最后一条url;
  4、分别把有效的url和无效的url写入不同的文件中备查;
  5、考虑到网友们对软件的使用水平有高有低,在html文件中写入提示信息,告知批量下载mp3文件的方法。

  经过本人呕心沥血的测试,再加上孜孜不倦地码字,各位想必已经大致弄懂了用批处理来整理百度MP3上歌曲排行榜的批量下载链接地址的方法了吧?若是如此,本人当可偃旗息鼓了。

[ 本帖最后由 namejm 于 2011-4-25 15:05 编辑 ]
5#
发表于 2011-4-25 15:54:56 | 只看该作者
这个教程还是很不错的啊。
回复

使用道具 举报

4#
发表于 2011-4-25 15:16:07 | 只看该作者
这个是批量下载用的么?

在仔细看看

还是有点糊涂


这个批量下载会出现重复歌曲么?

[ 本帖最后由 jiyuquan 于 2011-4-25 15:20 编辑 ]
回复

使用道具 举报

3#
 楼主| 发表于 2011-4-25 14:29:29 | 只看该作者
上图,以加深理解

[ 本帖最后由 namejm 于 2011-4-25 14:32 编辑 ]

01_排行榜整理器界面_乱序选择.png (9.12 KB, 下载次数: 72)

01_排行榜整理器界面_乱序选择.png

02_下载新歌top100分类下的xml文件.png (14.9 KB, 下载次数: 77)

02_下载新歌top100分类下的xml文件.png

03_整理新歌top100下的下载链接列表并下载歌词文件.png (9.04 KB, 下载次数: 72)

03_整理新歌top100下的下载链接列表并下载歌词文件.png

04_下载回来的三个分类.png (5.88 KB, 下载次数: 79)

04_下载回来的三个分类.png

05_新歌Top100的目录结构.png (6.69 KB, 下载次数: 74)

05_新歌Top100的目录结构.png

06_新歌Top100里的xml文件夹内容.png (12.78 KB, 下载次数: 63)

06_新歌Top100里的xml文件夹内容.png

07_xml文件的具体内容(包含各种情况).png (18.76 KB, 下载次数: 71)

07_xml文件的具体内容(包含各种情况).png

08_新歌Top100中MP3的批量下载链接列表.png (14.49 KB, 下载次数: 64)

08_新歌Top100中MP3的批量下载链接列表.png

09_新歌Top100中MP3的备用下载链接列表.png (7.09 KB, 下载次数: 75)

09_新歌Top100中MP3的备用下载链接列表.png

10_新歌Top100中下载链接可能已经失效的MP3列表.png (18.8 KB, 下载次数: 65)

10_新歌Top100中下载链接可能已经失效的MP3列表.png

11_新歌Top100里的LRC文件夹.png (12.61 KB, 下载次数: 56)

11_新歌Top100里的LRC文件夹.png

12_新歌Top100中LRC的下载列表.png (11.98 KB, 下载次数: 74)

12_新歌Top100中LRC的下载列表.png

13_新歌Top100中找不到下载地址的LRC列表.png (17.07 KB, 下载次数: 60)

13_新歌Top100中找不到下载地址的LRC列表.png

14_LRC文件的内容.png (17.63 KB, 下载次数: 65)

14_LRC文件的内容.png

15_用迅雷5在网页文件中进行批量下载.png (36.83 KB, 下载次数: 67)

15_用迅雷5在网页文件中进行批量下载.png

16_在迅雷5中选择以注释方式重命名文件.png (30.67 KB, 下载次数: 61)

16_在迅雷5中选择以注释方式重命名文件.png
回复

使用道具 举报

2#
 楼主| 发表于 2011-4-25 14:28:55 | 只看该作者
  奉上代码:
注意:
  需要两个软件的配合:1、迅雷5.9之前的版本;2、命令行工具wget.exe
  wget.exe官方下载地址:
http://sourceforge.net/projects/getgnuwin32/files/
  1. @echo off
  2. :: 功能:
  3. :: 整理百度MP3歌曲排行榜中除了“中文金曲”和“中国民乐”之外所有榜单的分类下载链接
  4. :: 对MP3文件:整理出供迅雷5等软件批量下载的、有效的mp3文件地址,并统计该榜单下mp3文件的总数、有效下载链接的总数;提供备用的mp3文件下载链接;列出下载链接可能已经失效的mp3文件;
  5. :: 对LRC文件:整理出供迅雷5等软件批量下载的、有效的lrc文件地址,并统计该榜单下lrc文件的总数、有效下载链接的总数;同时下载百度服务器上存在的lrc文件;列出下载链接可能已经失效的lrc文件;

  6. :: 返回Main后注意清空所有变量
  7. :Main
  8. cls
  9. title 百度MP3歌曲排行榜下载链接整理器
  10. echo.&echo.
  11. echo 选择每个项目前的数字序号
  12. echo 可以整理该类别下所有MP3的有效下载链接
  13. echo 并可以下载这些MP3对应的歌词LRC文件
  14. echo 可以多选,但是必须以空格分隔
  15. echo 多选时不用考虑先后次序
  16. echo 例如选择代码时填写 5 1 8
  17. echo 会依次下载“影视金曲”,“新歌TOP100”和“流金岁月”
  18. echo 0与其他选项组合时会造成重复下载
  19. echo.
  20. echo ==========================================================
  21. echo.
  22. setlocal enabledelayedexpansion
  23. set num=0
  24. for /f "tokens=1-3" %%i in (榜单分类.ini) do (
  25.     set /a num+=1
  26.     set /a mod=!num!%%2
  27.     set /p= %%i.%%j <nul
  28.     if !mod! equ 0 echo.&echo.
  29. )
  30. echo.
  31. set /p=  0.前面的所有类别<nul
  32. echo.
  33. echo ==========================================================
  34. echo.
  35. endlocal
  36. set choice=
  37. set /p choice= 请输入选择代码(0/1/2/3/4/5/6/7/8/9):

  38. cls
  39. if not defined choice goto Main
  40. for %%i in (%choice%) do (
  41.     for /f "tokens=1-3" %%j in (榜单分类.ini) do (
  42.         if not "%%i"=="0" (
  43.             if "%%i"=="%%j" (
  44.                 call :Neaten "%%k" "%%l"
  45.                 call :end "%%k"
  46.             )
  47.         )else (
  48.             call :Neaten "%%k" "%%l"
  49.             call :end "%%k"
  50.         )
  51.     )
  52. )
  53. call :end
  54. pause
  55. goto Main

  56. :Neaten
  57. setlocal enabledelayedexpansion
  58. md "%~1\xml" 2>nul
  59. md "%~1\Lrc" 2>nul
  60. wget -O "%~1\%~nx2" "%~2"
  61. :: 功能:从分类排行榜首页提取出歌曲序号、歌曲名和歌手名,并取回包含真实下载链接的xml文件
  62. :: 歌曲排行随时在变动,清空以前保存的xml文件,以保证不下载过期链接
  63. :: xml文件的下载地址是:http://box.zhangmen.baidu.com/x?op=12&count=1&title=歌曲名$$歌手名$$$
  64. del /a /f /q "%1\xml\*.xml" 2>nul
  65. set num=0
  66. for /f "delims==" %%i in ('set name 2^>nul') do set "%%i="
  67. for /f "delims=" %%i in ('findstr /i "td.class="td[b-d]"" "%~1\%~nx2"') do (
  68.     for /f "tokens=*" %%j in ("%%i") do (
  69.         set /a num+=1
  70.         for /f "delims=<> tokens=3" %%k in ("%%j") do (
  71.             set "name!num!=%%k"
  72.             if !num! equ 2 (
  73.                 if "!name2:~-3!"=="..." (
  74.                     for /f "tokens=4 delims='" %%l in ("%%j") do set "name2=%%l"
  75.                 )
  76.             )
  77.             if !num! equ 3 (
  78.                 if "!name3:~-3!"=="..." (
  79.                     for /f "tokens=2 delims='" %%l in ("%%j") do set "name3=%%l"
  80.                 )
  81.                 set name1=00!name1!
  82.                 set name1=!name1:~-3!
  83.                 if "!name3!"=="/a" set "name3="
  84.                 title 正在下载 %~1 分类下 "!name1!_!name2!_!name3!.mp3" 的xml数据
  85.                 wget -nv -N -O "%~1\xml\!name1!_!name2!_!name3!.xml" "http://box.zhangmen.baidu.com/x?op=12&count=1&title=!name2!$$!name3!$$$"
  86.                 set num=0
  87.             )
  88.         )
  89.     )
  90. )
  91. endlocal

  92. for /f "delims=" %%i in ('findstr /i "td.class="tdb"" "%~1\%~nx2"') do set "str=%%i"
  93. for /f "tokens=*" %%i in ("%str%") do (
  94.     for /f "delims=<> tokens=3" %%j in ("%%i") do set SongNum=%%j
  95. )
  96. :: 功能:整理有效的下载列表,下载对应的歌词文件,列出下载链接已经失效的mp3文件
  97. cls
  98. title 整理%~1的下载链接列表并下载对应的歌词文件
  99. for %%i in (%~1\%~nx2) do set ModifiedTime=%%~ti
  100. for %%i in (MP3 LRC) do (
  101.     (
  102.     echo ^<html^>
  103.     echo ^<title^>百度MP3歌曲排行:%~1^<^/title^>
  104.     echo ^<style type="text/css"^>
  105.     echo ^<!--
  106.     echo a:link { text-decoration: none;color: blue}
  107.     echo a:active { text-decoration:blink}
  108.     echo a:hover { text-decoration:underline;color: red}
  109.     echo a:visited { text-decoration: none;color: green}
  110.     echo --^>
  111.     echo ^<^/style^>
  112.     echo ^<body^>
  113.     echo ^<b^>“百度MP3歌曲排行:%~1”列表更新时间:%ModifiedTime%^<^/b^>^<br^>
  114.     echo ^<font color="red"^>^<b^>注意:以下内容并非“%~1”的全部,仅列出了有效的%%i下载链接^<^/b^>^<^/font^>^<br^>
  115.     if /i "%%i"=="mp3" (
  116.         echo ^<font color="red"^>^<b^>   当本页面中的某些mp3文件下载失败时,请到“%~1mp3备用下载链接.html”中选择相应的备用地址进行下载^<^/b^>^<^/font^>^<br^>
  117.         echo ^<font color="red"^>^<b^>   下载链接有可能失效的mp3文件列表请查看“下载链接可能已经失效的mp3列表.txt”^<^/b^>^<^/font^>
  118.     )
  119.     echo ^<p^>
  120.     echo 批量下载本页面列出的%%i文件的方法(以迅雷5.8.9为例,迅雷5.9及其之后的版本不适用):^<br^>
  121.     echo   若您已经安装迅雷,请在本页面点右键,选择“使用迅雷下载全部链接”;^<br^>
  122.     echo   在弹出的“选择要下载的URL”窗口中,勾选“全选”,然后确定^<br^>
  123.     echo   在接下来的“建立新的下载任务”窗口中,“另存名称”选项后点最右侧的倒三角形符号^<br^>
  124.     echo   选择“注释命名”,确定^<br^>
  125.     echo   这样设置之后,下载回来的%%i文件将会以“序号_歌曲名_歌手名.%%i”的格式命名^<br^>
  126.     echo   FlashGet里的操作可以参考以上步骤^<br^>
  127.     echo ====================================================================================^<p^>
  128.     )>%~1\%~1%%i下载链接.html
  129. )
  130. (
  131. echo ^<html^>
  132. echo ^<title^>百度MP3歌曲排行:%~1^<^/title^>
  133. echo ^<style type="text/css"^>
  134. echo ^<!--
  135. echo a:link { text-decoration: none;color: blue}
  136. echo a:active { text-decoration:blink}
  137. echo a:hover { text-decoration:underline;color: red}
  138. echo a:visited { text-decoration: none;color: green}
  139. echo --^>
  140. echo ^<^/style^>
  141. echo ^<body^>
  142. echo ^<b^>“百度MP3歌曲排行:%~1”列表更新时间:%ModifiedTime%^<^/b^>^<br^>
  143. echo ^<font color="red"^>^<b^>注意:以下内容是“%~1”的备用下载地址,仅列出了有效的MP3下载链接^<^/b^>^<^/font^>^<br^>
  144. echo ^<font color="red"^>^<b^>   当“%~1MP3下载链接.html”中某些MP3文件下载失败时,请到本页面选择相应的备用地址进行下载^<^/b^>^<^/font^>^<br^>
  145. echo ^<font color="red"^>^<b^>   请手工选择文件进行单个的下载,若选择批量下载的方式,则会导致同一文件多次下载,并会保存为多个副本^<^/b^>^<^/font^>^<br^>
  146. echo ^<font color="red"^>^<b^>   下载链接有可能失效的MP3文件列表请查看“下载链接可能已经失效的MP3列表.txt”^<^/b^>^<^/font^>^<p^>
  147. echo ====================================================================================^<p^>
  148. )>%~1\%~1MP3备用下载链接.html
  149. (
  150. echo 以下内容为 %ModifiedTime% 更新的“百度MP3歌曲排行:%~1”中下载链接有可能已经失效的mp3文件列表
  151. echo 在本列表中的保存格式为:序号_歌曲名_歌手名.mp3
  152. echo 若您想下载它们,请以相应的关键词在百度MP3网页中搜索有效的下载链接
  153. echo.
  154. )>"%~1\下载链接可能已经失效的mp3列表.txt"
  155. (
  156. echo 以下内容为 %ModifiedTime% 更新的“百度MP3歌曲排行:%~1”中未找到下载链接的歌词文件列表
  157. echo 在本列表中的保存格式为:序号_歌曲名.lrc
  158. echo 若您想下载它们,请以相应的关键词在百度MP3网页中搜索有效的下载链接
  159. echo.
  160. )>"%~1\未找下载地址的歌词文件列表.txt"
  161. setlocal enabledelayedexpansion
  162. for /f "delims==" %%i in ('set Url 2^>nul') do set "%%i="
  163. set UrlUseableNum_MP3=0
  164. set UrlUseableNum_URC=0
  165. for %%i in (%~1\xml\*.xml) do (
  166.     for /f "usebackq delims=" %%j in ("%%i") do (
  167.         set "str=%%j"
  168.         set "str=!str:"=!"
  169.         set RunTimes=0
  170.         call :GetUrl %1 Count
  171.         set "UrlUseable="
  172.         set "UrlUseableFirst="
  173.         if !Url_Count! gtr 0 (
  174.             call :GetUrl %1 Encode
  175.             call :GetUrl %1 Decode
  176.             call :GetUrl %1 Lrcid
  177.             call :DownLrc %1 "%%~ni"
  178.             call :GetMp3DownList %1 "%%~ni"
  179.             echo.
  180.         ) else (
  181.             echo %%~ni.mp3>>"%~1\下载链接可能已经失效的mp3列表.txt"
  182.             echo %%~ni.lrc>>"%~1\未找下载地址的歌词文件列表.txt"
  183.         )
  184.     )
  185. )
  186. for %%i in (MP3 LRC) do (
  187.     (
  188.     echo ^<p^>
  189.     echo %~1 下的歌曲共 ^<b^>%SongNum%^<^/b^> 首,有效的%%i下载链接共 ^<b^>!UrlUseableNum_%%i!^<^/b^> 条
  190.     echo ^<^/body^>
  191.     echo ^<^/html^>
  192.     )>>%~1\%~1%%i下载链接.html
  193. )
  194. (
  195. echo ^<^/body^>
  196. echo ^<^/html^>
  197. )>>%~1\%~1mp3备用下载链接.html
  198. endlocal
  199. goto :eof

  200. :GetMp3DownList
  201. :: 功能:获取Mp3的下载链接列表,并下载相应的歌词文件
  202. :: 对当前路径的字符有特殊要求,不能含有\http:\,因为用到了 %%~pi
  203. set /a RunTimes+=1
  204. if %RunTimes% gtr %Url_Count% (
  205.     if not defined UrlUseable (
  206.         echo %~2.mp3>>"%~1\下载链接可能已经失效的mp3列表.txt"
  207.     )
  208.     goto :eof
  209. )
  210. for /f "delims=" %%i in ("%Url_Decode%") do set type=%%~xi
  211. for %%i in (.mp3 .wma) do (
  212.     if /i "%type%"=="%%i" set UrlUseable=true
  213. )
  214. if not defined UrlUseable (
  215.     call :GetUrl %1 Encode
  216.     call :GetUrl %1 Decode
  217.     goto GetMp3DownList
  218. )
  219. for /f "delims=" %%i in ("%Url_Encode%") do set "Url_head=%%~pi"
  220. set "Url_head=%Url_head:*\http:\=%"
  221. set "Url_mp3=%Url_head%%Url_Decode%"
  222. set "Url_mp3=%Url_mp3:\=/%"
  223. if not defined UrlUseableFirst (
  224.     set /a UrlUseableNum_MP3+=1
  225.     (echo ^<a href="%~2.mp3^<^/a^>^
  226. )>>%~1\%~1mp3'>http://%Url_mp3%"^>%~2.mp3^<^/a^>^<br^>)>>%~1\%~1mp3下载链接.html
  227.     (echo ^<p^>)>>%~1\%~1mp3备用下载链接.html
  228. ) else (
  229.     (echo ^<a href="%~2.mp3^<^/a^>^
  230. )>>%~1\%~1mp3'>http://%Url_mp3%"^>%~2.mp3^<^/a^>^<br^>)>>%~1\%~1mp3备用下载链接.html
  231. )
  232. set UrlUseableFirst=no
  233. call :GetUrl %1 Encode
  234. call :GetUrl %1 Decode
  235. goto GetMp3DownList

  236. :DownLrc
  237. :: 功能:下载歌词文件
  238. if %Url_Lrcid% neq 0 (
  239.     set /a Url_lrc=!Url_Lrcid!/100
  240.     set Url_lrc=!Url_lrc!/!Url_Lrcid!.lrc
  241.     set Url_lrc=http://box.zhangmen.baidu.com/bdlrc/!Url_lrc!
  242.     (echo ^<a href="!Url_lrc!"^>%~2.lrc^<^/a^>^<br^>)>>%~1\%~1LRC下载链接.html
  243.     wget -nv -N -O "%~1\lrc\%~2.lrc" !Url_lrc!
  244.     set /a UrlUseableNum_LRC+=1
  245. ) else echo %~2.lrc>>"%~1\未找下载地址的歌词文件列表.txt"
  246. goto :eof

  247. :GetUrl
  248. :: 提取<……>和</……>标记对之间的字符串
  249. set "str=!str:*<%2>=!"
  250. for /f "delims=< tokens=1*" %%i in ("%str%") do (
  251.     set "Url_%2=%%i"
  252.     set "str=%%j"
  253. )
  254. goto :eof

  255. :end
  256. title %~1整理完毕
  257. cls
  258. echo.&echo.
  259. echo %~1整理完毕
  260. echo.
  261. goto :eof
复制代码
榜单分类.ini中的内容为:

[ 本帖最后由 namejm 于 2011-4-30 20:53 编辑 ]

wget 1.10.2.rar

317.57 KB, 下载次数: 136, 下载积分: 无忧币 -2

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-17 00:45

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表