无忧启动论坛

标题: 一个批处理听尽百度歌 [打印本页]

---

作者: x9tian    时间: 2010-3-1 20:38
标题: 一个批处理听尽百度歌
借用百度的音乐盒搜索引擎代码,一网打尽天下歌,  不要播放器(网页flash), 链接永不过期(百度引擎随机抓取), 通过批处理DIY播放列表,利用 for 语句的skip 跳播任意首歌曲, 利用find /n 给每首歌生成播放选择序号, 判定skip=0 时在XP sp3 下的报错
[attach]83150[/attach][attach]83151[/attach][attach]83152[/attach][attach]83149[/attach]

1. 
   
2. @echo off&color 0c&setlocal enabledelayedexpansion&title 百度在线听歌 by x9tian
   
3. ::为初次运行建立播放列表并提供示列帮助
   
4. if not exist music.txt  echo.歌曲排列: 歌曲_歌手_如:星月神话_金莎(无法加载歌手名建议省略) [这行请删掉] >music.txt&&notepad music.txt
   
5. ::读取播放列表指定的歌曲和歌手名
   
6. cls&find /n /v "歌曲_歌手_" music.txt&&echo.&echo.&set/p n=相应数字播放相应的歌曲
   
7. ::为指定歌曲进行跳跃,并修正skip=0时 for 语句出错
   
8. set/a "n=%n%-1"&set "n=skip=!n! "&echo.!n!|find "0">nul&&set "n="
   
9. ::加载百度音乐盒引擎,并打开本地生成的网页播放页面
   
10. for /f  "%n%tokens=1,2 delims=_" %%i in (music.txt) do echo.^<embed src="http://box.baidu.com/widget/flash/song.swf?name=%%i&artist=%%j"  width="500" height="74"^>^<^/embed^>>音乐.html&&start 音乐.html&call %0

复制代码

[ 本帖最后由 x9tian 于 2010-3-23 19:22 编辑 ]

---

作者: elai    时间: 2010-3-1 22:05
建立播放列表不能自动连播？

---

欢迎光临 无忧启动论坛 (http://wuyou.net./)

Powered by Discuz! X3.3