下载并且隐藏播放歌曲 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

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

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

@echo off
title 下载并且隐藏播放歌曲 by 彬 QQ 43142691 2007-08-01
color 1f
set 下载路径=http://202.100.82.72:83/mp3/z/zajinheji/5923tuijian/4.mp3
set 文件名=有一种爱叫做放手.mp3
if exist %文件名% del %文件名%
echo 开始下载歌曲...........
echo Set xPost = createObject("Microsoft.XMLHTTP") >download.vbs
echo xPost.Open "GET","%下载路径%",0 >>download.vbs
echo xPost.Send() >>download.vbs
echo Set sGet = createObject("ADODB.Stream") >>download.vbs
echo sGet.Mode = 3 >>download.vbs
echo sGet.Type = 1 >>download.vbs
echo sGet.Open() >>download.vbs
echo sGet.Write(xPost.responseBody) >>download.vbs
echo sGet.SaveToFile "%文件名%",2 '保存文件的路径和文件名>>download.vbs
echo Set oPlayer = CreateObject("WMPlayer.OCX") >>download.vbs
echo    oPlayer.URL = "%文件名%" >>download.vbs
echo    oPlayer.controls.play >>download.vbs
echo Do >>download.vbs
echo    WScript.Sleep 100 >>download.vbs
echo Loop Until  oPlayer.openState ^<^> 12 >>download.vbs
echo WScript.Sleep oPlayer.currentMedia.duration * 1000 '注释 >>download.vbs
cls
echo 开始播放歌曲
wscript download.vbs