如何“下载”无法直接下载的在线试听网站歌曲 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@echo off&setlocal ENABLEDELAYEDEXPANSION
title 从临时目录copy 在线播放歌曲.
echo 【+a】没有对输入信息进行检查,请严格按提示输入信息.
echo.
echo 示例:
echo 查找2010年5月1日 15:09 后听过的歌
echo 请输入日期:2010-05-01
echo 请输入小时:15
echo 请输入分钟:9(不要输入09)
echo 目标目录(你想要保存歌曲文件的全路径):F:\音乐\My Music\近藤真彦
echo.
set /p date_limits=请输入日期(例如:2010-05-01):
set /p hour_limits=请输入小时(例如:8或22):
set /p minute_limits=请输入分钟(例如:30或9):
:loop
set /p destination=请输入目标目录名:
if NOT exist !destination! (
echo 指定目录不存在.
goto loop
)
pushd "C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files"

echo.&echo 判断标准:日期 !date_limits! 时间 !hour_limits!:!minute_limits!以后再%cd%目录建立的音频文件(*.mp3 *.wma)&echo.

::获取路径和文件名
for /R . %%b in (*.mp3 *.wma) do (
      set dateti=%%~tb
      set date12=!dateti:~0,10!
      set comphours=!dateti:~11,1!
set compmin=!dateti:~14,1!
      if !comphours! EQU 0 (
            set time12=!dateti:~12,1!
            ) else (
            set time12=!dateti:~11,2!
            )
if !compmin! EQU 0 (
set minutes=!dateti:~15,1!
) else (
set minutes=!dateti:~14,2!
)
      if "!date12!"=="!date_limits!" (
            if !time12! GEQ !hour_limits! (
if !minutes! GEQ !minute_limits! (
            echo 文件名: %%~nxb
            copy "%%b" /B "!destination!"&&set /a flag=1
        )
        )
      )
)

if !flag! NEQ 1 (
      echo 没有copy到任何mp3、wma文件.
      )

pause>nul