因为权限不够,只能在这里发……
使用说明: 使用时仅需点击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 |