pcl_test

@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
复制代码