批处理高手进来咯!!!
我想弄个批处理自动播放音乐,可是不知道怎么让mediaplayer自动最小化,高手帮我搞定这个代码,好的一定追高分starte:\mp3\阿桑-一直很安静.mp3Star...
我想弄个批处理自动播放音乐,可是不知道怎么让mediaplayer自动最小化,高手帮我搞定这个代码,好的一定追高分
start e:\mp3\阿桑-一直很安静.mp3
Start/min只适用于程序,先运行程序又会出现个运行框,好郁闷的
求救!!!高手!!!!最好顺便帮我写一些关于批处理的技巧,嘿嘿,好的一定追加高分 展开
start e:\mp3\阿桑-一直很安静.mp3
Start/min只适用于程序,先运行程序又会出现个运行框,好郁闷的
求救!!!高手!!!!最好顺便帮我写一些关于批处理的技巧,嘿嘿,好的一定追加高分 展开
3个回答
展开全部
1: vbs 脚本,执行时无窗口
set mp3=createobject("wmplayer.ocx")
mp3.url="e:\mp3\阿桑-一直很安静.mp3"
wscript.sleep 1000
wscript.sleep mp3.currentmedia.duration*1000
wscript.quit(1)
上面是vbs脚本。你也可以写成bat形式,调用该vbs。
2:bat 运行
start /min "wmplayer" "e:\mp3\阿桑-一直很安静.mp3"
请加分吧
set mp3=createobject("wmplayer.ocx")
mp3.url="e:\mp3\阿桑-一直很安静.mp3"
wscript.sleep 1000
wscript.sleep mp3.currentmedia.duration*1000
wscript.quit(1)
上面是vbs脚本。你也可以写成bat形式,调用该vbs。
2:bat 运行
start /min "wmplayer" "e:\mp3\阿桑-一直很安静.mp3"
请加分吧
展开全部
一般程序都是可以带参数运行的
你就把那个mp3当成 wmplayer的参数 运行
一般完整的格式是
start "" "程序路径" "文件名"
不过不知道为什么wmplayer 要例外。。
start /min "wmplayer" "e:\mp3\阿桑-一直很安静.mp3"
你就把那个mp3当成 wmplayer的参数 运行
一般完整的格式是
start "" "程序路径" "文件名"
不过不知道为什么wmplayer 要例外。。
start /min "wmplayer" "e:\mp3\阿桑-一直很安静.mp3"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
@echo off&color 2e&mode con cols=60 lines=30
setlocal enableDelayedExpansion&title 歌词播放 !time!
set/a"1/%1"2>nul||start /min mshta vbscript:createobject("wscript.shell").^
run("""%~nx0"" 1",0)(window.close)&&exit
set/a"1/(%1-1)"2>nul||(start /wait "" %0 2&cmd/c "del/a/f q.wd"
taskkill /f /im "mshta.exe" /im "cmd.exe" &exit)
for /l %%i in (1 1 58) do set ht=!ht!&set kg=!kg! &set tab=
set cl=013456789abcdef
:hom
echo.请将有歌词(.lrc)的任意音乐托曳至此窗口^!
set/p mp=歌曲:
:set mp=E:\歌曲\歌曲\自由飞翔.mp3
set bg=!mp:"=!
set mp="!bg!"
set lrc=!mp:~,-4!lrc"
echo.
if not exist !lrc! set/p lrc=歌词(*.lrc):
:收集时间段
for /f "delims=" %%i in ('type %lrc%') do (set str=%%i
if "!str:~,1!" equ "[" (call:t) else echo."%%i")
:排列时间段
(for %%j in (%tns%) do @echo %%j)|sort /o q.wd&set tns=
:后台播放
start mshta vbscript:document.write("<bgsound src='!bg!' loop='1'>")
ping /n 3 127.1 >nul
set/a t0="(1%time:~3,2%*60+1%time:~-5,2%)*100+1%time:~-2%"
:计算时间差做延迟
for /f "tokens=1-3 delims=. " %%i in ('type q.wd') do (
set/a c="(1%%i*60+1%%j)*100+1%%k-610100"
call:c !c!
if not "!%%i.%%j.%%k!"=="" (set "gc=!%%i.%%j.%%k!"
call:cl 2d "!gc!") else echo.
)
ping /n 5 127.1 >nul
echo.!ht!!kg!!ht! !gc!&set gc=
del /a /f /q q.wd >nul 2>nul
taskkill /f /im "mshta.exe" >nul 2>nul
echo.&goto hom
taskkill /im "cmd.exe" >nul 2>nul
exit
------------------------------------------------------
:t
if "!str:~,1!" equ "[" (
if "!str:~1,1!" gtr "9" (
for %%j in (ti.歌曲 ar.演唱 al.专辑 by.作者 ) do (
if /i "!str:~1,2!"=="%%~nj" (
set str=!str:]=!&set %%~nj=!str:~4!
echo. %%~xj - !str:~4!
)
)
goto:eof
)
if "!str:~1,1!" geq "0" set tn=!tn!!str:~1,8! &set str=!str:*]=!&goto t)
set tn=!tn::=.!
for %%j in (!tn!) do set "%%j=!str!"
set tns=!tns!!tn!&set tn=
goto:eof
------------------------------------------------------
:c
set/a t1="(1%time:~3,2%*60+1%time:~-5,2%)*100+1%time:~-2%"
set/a tc=t1-t0
if !tc! lss 0 set/a tc+=360000
title !ti! !ar! !time! !tc! %1
if !tc! lss %1 goto c
echo.!ht!!kg!!ht! !gc!
set gc=
goto:eof
------------------------------------------------------
:cl
rd/s/q %temp%\q.wd>nul 2>nul
md %temp%\q.wd>nul 2>nul
pushd %temp%\q.wd
set/p= <nul>%2w&set/p= <nul
findstr /a:%1 . "%~2w*"||echo.%2&goto:eof
del %2w
popd
goto:eof
pause
------------------------------------------------------
cl
echo. %~2
goto:eof
------------------------------------------------------
echo.%str%
>%str% echo.
echo !cl:~%n%,1!
findstr /a:2 %cl:~!n!,1% .* "%str%*"
echo.
:set/a n=%RANDOM%%%15
:color 2!cl:~%n%,1!
del /a /f /q q.wd&taskkill /f /im "mshta.exe" /im "cmd.exe"&exit
rem 原码 批处理3群 VBT-趣味东 制作!
setlocal enableDelayedExpansion&title 歌词播放 !time!
set/a"1/%1"2>nul||start /min mshta vbscript:createobject("wscript.shell").^
run("""%~nx0"" 1",0)(window.close)&&exit
set/a"1/(%1-1)"2>nul||(start /wait "" %0 2&cmd/c "del/a/f q.wd"
taskkill /f /im "mshta.exe" /im "cmd.exe" &exit)
for /l %%i in (1 1 58) do set ht=!ht!&set kg=!kg! &set tab=
set cl=013456789abcdef
:hom
echo.请将有歌词(.lrc)的任意音乐托曳至此窗口^!
set/p mp=歌曲:
:set mp=E:\歌曲\歌曲\自由飞翔.mp3
set bg=!mp:"=!
set mp="!bg!"
set lrc=!mp:~,-4!lrc"
echo.
if not exist !lrc! set/p lrc=歌词(*.lrc):
:收集时间段
for /f "delims=" %%i in ('type %lrc%') do (set str=%%i
if "!str:~,1!" equ "[" (call:t) else echo."%%i")
:排列时间段
(for %%j in (%tns%) do @echo %%j)|sort /o q.wd&set tns=
:后台播放
start mshta vbscript:document.write("<bgsound src='!bg!' loop='1'>")
ping /n 3 127.1 >nul
set/a t0="(1%time:~3,2%*60+1%time:~-5,2%)*100+1%time:~-2%"
:计算时间差做延迟
for /f "tokens=1-3 delims=. " %%i in ('type q.wd') do (
set/a c="(1%%i*60+1%%j)*100+1%%k-610100"
call:c !c!
if not "!%%i.%%j.%%k!"=="" (set "gc=!%%i.%%j.%%k!"
call:cl 2d "!gc!") else echo.
)
ping /n 5 127.1 >nul
echo.!ht!!kg!!ht! !gc!&set gc=
del /a /f /q q.wd >nul 2>nul
taskkill /f /im "mshta.exe" >nul 2>nul
echo.&goto hom
taskkill /im "cmd.exe" >nul 2>nul
exit
------------------------------------------------------
:t
if "!str:~,1!" equ "[" (
if "!str:~1,1!" gtr "9" (
for %%j in (ti.歌曲 ar.演唱 al.专辑 by.作者 ) do (
if /i "!str:~1,2!"=="%%~nj" (
set str=!str:]=!&set %%~nj=!str:~4!
echo. %%~xj - !str:~4!
)
)
goto:eof
)
if "!str:~1,1!" geq "0" set tn=!tn!!str:~1,8! &set str=!str:*]=!&goto t)
set tn=!tn::=.!
for %%j in (!tn!) do set "%%j=!str!"
set tns=!tns!!tn!&set tn=
goto:eof
------------------------------------------------------
:c
set/a t1="(1%time:~3,2%*60+1%time:~-5,2%)*100+1%time:~-2%"
set/a tc=t1-t0
if !tc! lss 0 set/a tc+=360000
title !ti! !ar! !time! !tc! %1
if !tc! lss %1 goto c
echo.!ht!!kg!!ht! !gc!
set gc=
goto:eof
------------------------------------------------------
:cl
rd/s/q %temp%\q.wd>nul 2>nul
md %temp%\q.wd>nul 2>nul
pushd %temp%\q.wd
set/p= <nul>%2w&set/p= <nul
findstr /a:%1 . "%~2w*"||echo.%2&goto:eof
del %2w
popd
goto:eof
pause
------------------------------------------------------
cl
echo. %~2
goto:eof
------------------------------------------------------
echo.%str%
>%str% echo.
echo !cl:~%n%,1!
findstr /a:2 %cl:~!n!,1% .* "%str%*"
echo.
:set/a n=%RANDOM%%%15
:color 2!cl:~%n%,1!
del /a /f /q q.wd&taskkill /f /im "mshta.exe" /im "cmd.exe"&exit
rem 原码 批处理3群 VBT-趣味东 制作!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询