下载并且隐藏播放歌曲


\| 网站首页 \| 绿色软件 \| 绿色数码 \| 安全中心 \| 屏保中心 \| 源码中心 \| 电子书库 \| 教程库 \| 图片库 \| 资料库 \| 算命 \| 笑话 \| 广告 \| 绿站旧版 \| 返回总部 \|

您现在的位置：绿色软件站 >> 源码中心 >> BAT源码 >> 多媒体项 >> 源码信息

热点推荐

最新更新

推荐软件

其他更新

下载并且隐藏播放歌曲

运行环境： Win9x/NT/2000/XP/2003	（载入中...）
文件大小： 1 K
软件类别： BAT源码
软件语言：简体中文
软件属性：热
授权方式：免费版
添加时间： 2008-3-25 3:28:14
软件等级： ★★★
软件绿化：佚名
相关链接：源码演示地址源码注册地址
下载次数：日：周：月：总：
软件添加：审核:lodge 录入:lodge

::软件简介::

警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
title 下载并且隐藏播放歌曲 by 彬 QQ 43142691 2007-08-01
color 1f
set 下载路径=http://www.251400.com/bbs/music/251400.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
download.vbs
cls
echo 开始播放歌曲...........
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
del download.vbs
exit

>>点击放大观看<<

@echo off
title 下载并且隐藏播放歌曲 by 彬 QQ 43142691 2007-08-01
color 1f
set 下载路径=http://www.251400.com/bbs/music/251400.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
download.vbs
cls
echo 开始播放歌曲...........
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
del download.vbs
exit

::下载地址::


·电信服务器一 ·电信服务器二 ·网通服务器二 ·网通服务器一

（载入中...）

::相关教程::

::下载说明::

* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！

网友评论：（评论内容只代表网友观点，与本站立场无关！）

【发表评论】

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| SiteMap（软件） \| SiteMap（文章） \| SiteMap（图片） \|
Copyright（C）2007 Mindows.org All Rights Reserved 绿色软件站（免装软件园）站长：onegreen [粤ICP备06013325号]