[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] BAT+VBS音乐播放器(彩色歌词+自动下载)

本帖最后由 netbenton 于 2012-10-1 20:08 编辑

批处理音乐播放器
多彩(移动鼠标可见)动态歌词显示,自动下载歌词,
使用方法:
拖曳音乐文件到BAT文件上开始播放
或者打开后按回车键再输入音乐文件

按键       功能

空格键     暂停/继续
上,下键   快退/快进
左,右键   音量: 小/大
Esc键     退出(直接关闭窗口也可以)
Page Up/Down   如果歌词不正确,有多个选择时,手动选择下载歌词
8  /  2 键  上或下一首歌曲
"c”键      锁定显示的颜色
"d"键         打开正在使用的歌词文件
Del键      删除当前正在使用歌词文件,并重新下载
Enter        添加歌曲文件 或 歌曲目录 或 歌曲列表
"s"键      重新搜索本在歌词环境
[Tab]键    切换歌词显示方式(居中/右/左)


注:循环播放
    播放时移动鼠标,可以实时改变颜色
    模拟的卡拉OK歌词效果
    打开音乐文件播放时,自动在.\lrcs目录或者搜索后的环境中找歌词,找不到时会自动网上下载并保存到.\lrcs。

该播放器文件列表如下(只有3个):
    gui2.bat  BAT主程序,实现主体功能,文件调度
    gui4.vbs  VBS子程序,实现下载和音乐播放功能
    syxq.com 16位的com小过程,实现彩色显示,按键、鼠标功能


2012-9-14首发,
2012-9-15更新,歌词下载不正确时,按Page Up/Down 选择下载。
2012-9-17更新,修正了,输入的路径中含有双引号的错误。并开启了列表播放功能,
           按键 8 / 2 为上一首和下一首。
2012-9-19更新,修正一些Bug, 增加按 "c" 键可以 锁定/活动 颜色,歌曲可以目录加入,列表文件加入,或单文件加入。
           按"Del"键,重新下载歌词,按 "d“ 键打开正在使用的歌词。
2012-9-22更新,修正了一些Bug,增加按 "s"键重新搜索本在歌词环境;增加了按[Tab]键切换歌词显示方式(居中/右/左)。

下载地址:
- - - - - - * - - - - - - - - - - - - - - - - - - - - - - - - - - - * - - - - - - - -
BAT音乐播放器
- - - - - * - - - - - - - - - - - - - - - - - - - - - - - - - - - - * - - - - - - - -
附件: 您需要登录才可以下载或查看附件。没有帐号?注册
2

评分人数

    • plp626: 用户体验不错。。。PB + 10 技术 + 1
    • cjiabing: 兄弟佩服得五体投地!~PB + 12 技术 + 6

这个真的很强

TOP

樓主強大!!!!!膜拜!!!
不过最好把syxq.com换成32位的。

TOP

大哥,这个版本不支持64位系统,可以搞个支持64位系统的。哈哈就完美了。

TOP

大哥,有win系统 64位版的吗?这个版本的批处理,不支持64位 系统

TOP

下载测试帮助改进

TOP

太好了,太好了

TOP

进度一直停留在0%

TOP

提几点建议:
1 好像有时候会出现9楼的情况,找不到文件gui0001.txt,可以把第一行的@echo off &SETLOCAL ENABLEDELAYEDEXPANSION
改成
@echo off 2>nul 3>nul&SETLOCAL ENABLEDELAYEDEXPANSION
2 Enter键添加歌曲文件 或 歌曲目录 或 歌曲列表会留下一行字,建议在第103行(set /p name=输入播放歌曲: 的下面)添加cls命令
3 当歌词含有既不是中文也不是英文的字符时会变成一堆问号
下面这张图体现了以上3种情况

4 当文件名含有括号时会这样

当然此时我已echo on,否则什么也看不到
刚才想到了解决方法,把38行的set "zzzz=%* 改成call :setzzzz ""%*"",再在下面建一个标签,内容是
:setzzzz
for /f "delims=" %%1 in (%*) do set "zzzz=%%~1
goto :eof
这样就不会了
5 当列表只有一首歌时播完就停了,不能重复播放。但是当播放列表有几首歌时就会循环播放,不知什么原因
总体来说这个播放器已经做得很好了,但如果能克服这些问题就更好了

TOP

看看。。。。

TOP

下载试试俺的机子可以,支持一个。。。。

TOP

我下了说是木马!!

TOP

牛X,可是我的电脑换成64位操作系统了,表示不支持啊

TOP

膜拜大牛  很实用、很炫

TOP

回复 1# netbenton


    好强悍啊 厉害 支持你

TOP

返回列表