批处理之家 - Powered by Discuz! Board

标题: [特效代码] 批处理如何实现根据输入的歌曲名联网查找该歌曲并播放 [打印本页]

作者: jellykid 时间: 2009-2-25 19:16 标题: 批处理如何实现根据输入的歌曲名联网查找该歌曲并播放

本帖最后由 pcl_test 于 2016-9-28 14:00 编辑

音乐播放器如何实现??
实现功能:
         输入你想听的歌曲,运行确定后就能播放网络上的连接

         简单说就是输入别人想听的歌不是一开始就固定是什么歌!
假设:我想听------爱你一万年

怎么才能让程序(批处理)执行这个手动过程:

上baidu搜索mp3  输入  --爱你一万年--找到能听的连接----播放!!!

这个过程怎么用bat实现或者不能实现

[ 本帖最后由 jellykid 于 2009-2-26 15:50 编辑 ]

作者: Batcher 时间: 2009-2-25 20:12

@echo off
set "wmpPath=C:\Program Files\Windows Media Player\wmplayer.exe"
start /min "" "%wmpPath%" "http://hlls.52sharp.com/midi/zhubajie.mid"
复制代码

@echo off
set "wmpPath=C:\Program Files\Windows Media Player\wmplayer.exe"
start /min /b "" "%wmpPath%" "http://cachefile35.rayfile.com/zh-cn/download/6048640b2c4ee0cce9d24e68250b7171/BatHome_PlayList.wpl"
复制代码

[ 本帖最后由 Batcher 于 2009-2-25 20:45 编辑 ]

作者: jellykid 时间: 2009-2-25 20:28

楼上看来是没理解我的意思!

我说的是输入别人想听的不是一开始就固定是什么歌!
假设:我想听------爱你一万年
怎么才能让程序(批处理)执行这个手动过程:

上baidu搜索mp3 输入 --爱你一万年--找到能听的连接----播放!!!

这个过程怎么用bat实现或者不能实现

作者: Batcher 时间: 2009-2-25 20:45

BAT不行，需要借助第三方命令行工具！！！！！！！！！！！

作者: jellykid 时间: 2009-2-25 23:27

楼上的到底该用什么工具呢?代码?

batcher的一段代码是固定音乐我不要!
二段错误!

[ 本帖最后由 jellykid 于 2009-2-26 15:49 编辑 ]

作者: itrui 时间: 2009-2-26 18:22

curl.exe 之类的东东

作者: jellyhk 时间: 2009-2-26 21:12

curl.exe?
ftp工具?

作者: jellyhk 时间: 2009-2-27 15:51

我顶!
难道没人帮忙回答下??

作者: Batcher 时间: 2009-2-27 16:13 标题: 回复 7楼的帖子

google搜索curl.exe！
不是ftp工具！

作者: pcl_test 时间: 2016-9-28 15:51

@echo off
:loop
cls
set /p str=输入需联网查找和播放的歌曲名：
set "htaurl=http://bathome.net/s/hta/index.html"
set "getid=http://search.kuwo.cn/r.s?all=%str%&ft=music&itemset=web_2013&client=kt&pn=0&rn=5&rformat=json&encoding=utf8"
for /f %%a in ('mshta %htaurl% "eval('('+web('%getid%')+')')['abslist'][0]['MUSICRID']"') do set id=%%a
set "getmusic=http://antiserver.kuwo.cn/anti.s?type=convert_url&rid=%id%&format=mp3|aac&response=url"
for /f %%a in ('mshta %htaurl% "web('%getmusic%')"') do set "music=%%a"
echo;%music%
rem 调用系统自带Windows Media Player播放
start "" wmplayer.exe "%music%"
echo;按任意键重新查找……
pause>nul&goto loop
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)