[其他] [分享]批处理滚动歌词

dengyuli

因为权限不够，只能在这里发……
使用说明：    使用时仅需点击xxx歌词.bat文件，音乐会自动播放。
    在第一次使用本程序时，等音乐播出后，马上关掉程序，但背景音乐没有关闭，若想关闭背景音乐，请到任务管理器中结束所有的"WINWORD.EXE"进程。然后再次启动本程序。
    注意：正在使用本程序时，请不要随意关闭程序窗口，避免背景音乐无法关闭！（第一次使用例外）
主程序代码（这里以《Into the Fire》这首歌为例）：
Into the Fire 歌词.bat

@echo off
rem 闲得无聊，做了这个
color 1f
title Into the Fire 歌词
call 1.vbs
mode con lines=3 cols=40
echo Into the Fire
echo Thirteen Senses
sleep 10
cls
echo 滚动歌词制作：dengyuli
sleep 10
cls
echo QQ:756560020
sleep 11
cls
echo ●●●
sleep 1
cls
echo ●●
sleep 1
cls
echo ●
sleep 1
cls
echo.
sleep 1
cls
echo Come on, come on
echo 来吧，来吧
sleep 3
cls
echo Put your hands into the fire
echo 把手放入火中
sleep 3
cls
echo Explain, explain
echo 解释着
sleep 2
cls
echo As I turn and meet the power
echo 当我转身我遇见了力量
sleep 3
cls
echo This time, this time
echo 这时候
sleep 2
cls
echo Turning white and senses dire
echo 从纯洁到可怕
sleep 3
cls
echo Pull up, pull up
echo 停下
sleep 2
cls
echo From one extreme to another
echo 从一个极端到另一个极端
sleep 3
cls
echo From the summer to the spring
echo 从夏天到春天
sleep 3
cls
echo From the mountain to the air
echo 从高山到天空
sleep 8
cls
echo From Samaritan to sin
echo 从撒马利亚到罪恶
sleep 3
cls
echo And it's waiting on the end
echo 直到最终
sleep 8
cls
sleep 11
cls
echo Come on, come on
echo 来吧，来吧
sleep 3
cls
echo Put your hands into the fire
echo 把手放入火中
sleep 3
cls
echo Explain, explain
echo 解释着
sleep 2
cls
echo As I turn and meet the power
echo 当我转身我遇见了力量
sleep 3
cls
echo This time, this time
echo 这时候
sleep 2
cls
echo Turning white and senses dire
echo 从纯洁到可怕
sleep 3
cls
echo Pull up, pull up
echo 停下
sleep 2
cls
echo From one extreme to another
echo 从一个极端到另一个极端
sleep 3
cls
echo From the summer to the spring
echo 从夏天到春天
sleep 3
cls
echo From the mountain to the air
echo 从高山到天空
sleep 8
cls
echo From Samaritan to sin
echo 从撒马利亚到罪恶
sleep 3
cls
echo And it's waiting on the end
echo 直到最终
sleep 8
mode con lines=3 cols=55
cls
echo And now I'm alone I'm looking out, I'm looking in
echo 现在我孤单，我照料，我寻找
sleep 4
mode con lines=3 cols=40
cls
echo Way down, the lights are dimmer
echo 随着路的延伸，灯光越来越暗
sleep 6
mode con lines=3 cols=55
cls
echo And now I'm alone I'm looking out, I'm looking in
echo 现在我孤单，我照料，我寻找
sleep 5
mode con lines=3 cols=40
cls
echo Way down, the lights are dimmer
echo 随着路的延伸，灯光越来越暗
sleep 6
cls
echo Ooooh…
sleep 44
cls
echo Come on, come on
echo 来吧，来吧
sleep 3
cls
echo Put your hands into the fire
echo 把手放入火中
sleep 3
cls
echo Come on, come on
echo 来吧，来吧
sleep 4
cls
echo 感谢使用
echo 作者：dengyuli
sleep 5
复制代码

1.vbs

set ws=wscript.createobject("wscript.shell")
ws.run "1.bat /start",0
复制代码

playmid.vbs

Dim objWord,colTasks,strName,wmp,aa,kmk,exit_err
exit_err = 0
strName = WScript.Arguments(0)
Set objWord = CreateObject("Word.Application") 
Set colTasks = objWord.Tasks
set wmp = CreateObject("WMPlayer.OCX.7")
wmp.settings.volume = WScript.Arguments(1)
wmp.url = WScript.Arguments(2)
wmp.uiMode = "Full"
while wmp.playstate = 9
wscript.sleep 50
wend
while wmp.playstate = 3 
If not colTasks.Exists(strName) Then
for aa= 1 to 30
kmk= 30 - aa
kmk= kmk * 2
wmp.settings.volume = kmk
wscript.sleep 33
next
exit_err = 1
wmp.controls.stop
else
wscript.sleep 200
End If
wend
if exit_err = 0 then
end if
objWord.Quit
复制代码

1.bat

@echo off
for /f "skip=2" %%a in ('playmid.vbs "%g_name%" "50" "IntotheFire.mp3"') do (if "%%a" equ "cont" goto :endvbs)
复制代码

需要用到的第三方程序：sleep.exe

音乐自己找，将它命名为：IntotheFire.mp3