【已解决】怎么给批处理添加背景音乐啊？

hackerlong

刚看站内搜索到了http://www.bathome.net/viewthread.php?tid=1499&highlight=%B1%B3%BE%B0%D2%F4%C0%D6这个文章。唉连播放器都出来了还说是背景音乐！！！
       我想要的是在一个批处理中添加一个背景音乐，而且背景音乐不是网络的行不行啊？就是说我想把一个mid格式的小文件加到批处理中，然后就把这个mid格式的音乐当背景音乐。有哪位大佬懂得的教下啊！

[ 本帖最后由 hackerlong 于 2009-5-28 17:10 编辑 ]

defanive

我3L那个不行么，也可以的。。。

hackerlong

再次感谢batcher，我的发过的提问帖好几次都是你回答的。回答的都很棒谢啦！

hackerlong

哇，那个帖子里八楼的厉害啊。


@echo off&setlocal enabledelayedexpansion&title 一转身，可能就是一辈子
if not exist %temp%\%~n0.vbs (
   echo set ws=createobject("wscript.shell"^)>%temp%\%~n0.vbs
   echo ws.run "wmplayer.exe http://www.gongziyipai.com/music/1.mp3",vbhide>>%temp%\%~n0.vbs
   start %temp%\%~n0.vbs
   set a=hadopened
) else (
if not defined a start %temp%\%~n0.vbs
)
ping 127.1 /n 2 >nul
::    有些人一直没机会见，等有机会见了，却又犹豫了，相见不如不见。
::    有些事一直没机会做，等有机会了，却不想再做了。
::    有些话埋藏在心中好久，没机会说，等有机会说的时候，却说不出口了。
::    有些爱一直没机会爱，等有机会了，已经不爱了。
::    有些人很多机会相见的，却总找借口推脱，想见的时候已经没机会了。
::    有些话有很多机会说的，却想着以后再说，要说的时候，已经没机会了。
::    有些事有很多机会做的，却一天一天推迟，想做的时候却发现没机会了。
::    有些爱给了你很多机会，却不在意没在乎，想重视的时候已经没机会爱了。
::    人生有时候，总是很讽刺。
::    一转身可能就是一世。
::    说好永远的，不知怎么就散了。最后自己想来想去竟然也搞不清当初是什么原因分开彼此的。然后，你忽然醒悟，感情原来是这么脆弱的。经得起风雨，却经不起平凡；本来风雨同舟，天晴便各自散了。也许只是赌气，也许只是因为小小的事。幻想着和好的甜蜜，或重逢时的拥抱，那个时候会是边流泪边捶打对方，还傻笑着。该是多美的画面。
::    没想到的是，一别竟是一辈子了。
::    于是，各有各的生活，各自爱着别的人。曾经相爱，现在已互不相干。
::    即使在同一城市，也不曾再相逢。某一天某一刻，走在同一条路上，也看不见对方。
::    先是感叹，后来是无奈。
::    也许你很幸福，因为找到另一个适合自己的人。
::    也许你不幸福，因为可能你这一生就只有那个人真正用心在你身上。
::    很久很久，没有对方的消息，也不再想起这个人，也不想再想起这些事了。
::                                                                                           [End...]
for /f "skip=10 tokens=* delims=:" %%a in (%~fs0) do (
   set "str=%%a"
   set/a n+=1
   if !n! equ 19 (ping 127.1 /n 3 >nul&echo.&echo.&call :lp&goto next) else call :lp
)
:next
del %temp%\%~n0.vbs 2>nul
pause>nul&exit/b
:lp
for /l %%a in (0 1 260) do (
    if "!str:~%%a,1!" neq "" (
        set/p=!str:~%%a,1!<nul
        for /l %%i in (1 1 400) do echo.>nul
        ) else (
        echo.&goto :eof
   )
)



呵呵其他的回帖都会弹出播放器，原来我看的时候试了几个都没用就不试了。这个还带文字的改改就能成了歌词厉害。

[ 本帖最后由 hackerlong 于 2009-5-28 17:09 编辑 ]

hackerlong

没看到啊！那我去看看

defanive

mshta vbscript:createobject("wscript.shell").run("wmplayer ""文件路径""",0)(window.close)

Batcher

那个帖子中，8楼的代码你测试了没？