中国DOS联盟

适时加亮播放歌词 在附件中请下载；以下代码没有加亮功能！

创建自监控代码竟没人回贴，还有几处都很经典都没人有回应。太伤感了！谁发的99乘法表都好多人看贴和回帖。其实那个我早就做过并没发贴，感觉没多意思！关于tab排版的我早几年都清楚，多行回退有知道不？竟有人还为那点小知识贺彩，真是悲哀!真有点怀疑浏览者的水平！

还有刚刚完成就有人还提议要自动下歌词，不知自动下载怎么搞 谁发个代码学习学习！肯定要下网络歌词的！不是ftp那种吧！

::版权所有 趣味东::

@echo off&color 2e&mode con cols=60 lines=30

setlocal enableDelayedExpansion&title 歌词播放 QQ:309254515-趣味东制作 !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 /max /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 50) do set ht=!ht!&set kg=!kg! 

set cl=013456789abcdef

:hom

echo.请将有歌词(.lrc)的任意音乐托曳至此窗口^!

set/p mp=歌曲:

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 (2>nul set str=%%i

if "!str:~,1!" equ "





























=!&echo.	       %%~xj - !str:~4!)

goto:eof)

if "!str:~1,1!" leq "9" set tn=!tn!!str:~1,8! &2>nul 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:~-8,2%*60+1%time:~-5,2%)*100+1%time:~-2%"

set/a tc=t1-t0

if !tc! lss 0 set/a tc+=360000

set/p=!ht!!time! !tc! %1<nul

if !tc! lss %1 goto c

set/p=!ht!!kg!!ht!<nul

goto:eof

------------------------------------------------------

Last edited by qwd on 2010-2-11 at 19:36 ]

没人回贴就自己顶一下！
创建自监控代码竟没人回贴，还有几处都很经典都没人有回应。太伤感了！谁发的99乘法表都好多人看贴和回帖。其实那个我早就做过并没发贴，感觉没多意思！关于tab排版的我早几年都清楚，多行回退有知道不？竟有人还为那点小知识贺彩，真是悲哀!真有点怀疑浏览者的水平！

Last edited by qwd on 2010-2-5 at 04:46 ]

第二版己完成！
适时加亮词句！
没人回贴也不好意思再发了！留着自己享用吧！

有几位高级大侠支持还是发一下吧！


考滤到坛子有时会屏有些字符还是发文件吧！

Last edited by qwd on 2010-2-7 at 06:17 ]

呵呵，不要激动，个人感觉没人回帖可能有几个原因：
一个是代码很高深大家不怎么看得懂懂，因此在没搞清楚之前就不会轻易发表评论，说实话我就不会那个“多行回退”我就不会弄，还在看呢；
还有就是可能对你这个东西能达到的用处没有什么兴趣，因此不关注。

另外给你这个程序本身一些意见：
可以让 mshta.exe 在一定时间后自动结束，而不要手动去 kill 掉进程，因为我发现音乐最后有一点点没播放完，你既然能读到 歌词，那很容易就能得到歌曲的全长，根据此帖的 7楼 有说明很容易解决的
http://cn-dos.net/forum/viewthread.php?tid=50051&highlight=setTimeout
关于歌曲名有空格不能播放的问题我当初也没注意，只看了路径有没有空格，再研究研究

Last edited by qinchun36 on 2010-2-5 at 10:16 ]

支持楼主。
分享精神很好啊，不要灰心

“自监控代码”和“多行回退”分别在哪里帖子里面？能否给个URL学习一下？

加分，以分担LZ的悲哀！
回应，以表示具有浏览水平

好久没到cn-dos看贴了，今日看此“神贴”，不免讲两句子：

1、楼主共享的精神是值得赞赏的，希望继续发扬。

2、我想楼主大可不必为了没有赞扬之声而耿耿于怀吧，我想你发代码上来的主要目

的应该是为了和大家一起交流学习吧。

3、仔细 拜读了楼主的代码个人感觉技术水平还是有的，但没发现被楼主称之为“经

典”的代码段。

4、在哥伦布发现新大陆以前，这个新大陆确实是很神秘的，而且很多人的头脑中基

本上没有这个概念，放在现在来讲，发现这样一块大陆是多么容易的事啊。

说实在，发出来第二天，就要人回贴，有些太急， 这里的人又不都是学编程的，你那个自监控，说实在我没看懂（我就不懂vbs和mshta解释），不如贴出解释，我想回贴的人可能多着去了！

谢谢几位的回贴，几位级别都挺高的！ 难道只有高级别的大侠能看懂我这个初级小生写的代码？
谢谢4楼给我指点定时结束 mshta.exe 的代码。学习了延时关闭窗口。

回复关于自监控代码
其实就是批自身先隐藏 再重启本身后如果强制结束做出相应的动作。达到监视自身的目的
代码就是 start 的/wait 参数 等待程序结束
在主贴里有这样的动作 有临时文件为sort排序加速, 如果没有自监控强制退出批时它会被保留，但现在有自监控就不一样了，只要强制退出就随时删除它。那个后台播放也同时被 kill 掉了！难道这不是起到自监控了吗？
刚好昨天关于这部分发了贴
http://cn-dos.net/forum/viewthread.php?tid=50180&fpage=1

Last edited by qwd on 2010-2-7 at 06:34 ]

start /wait 看上去不占cpu资源 ，占一部分内存； 不是死循环！

加油,最近俺在彩色界面上有点研究,回头合作一下,俺给你写个全彩界面
高处不胜寒啊,真正的神贴早就沉了,您还没沉,说明你不够还神.
咱是技术论坛,不是聊天论天,帖子的神否,不看回帖,看积分就好!
人家的推箱子,24点,递归之类的都用上了,不是一样沉底了吗!

Last edited by sl543001 on 2010-2-7 at 11:58 ]

顶了~~ 没有想不到，只有做不到。
趣味东 即想到了，又做到了

我还在为怎么能监控播放进度发愁时，亲爱的你直接放掉选择播放，利用时间与lrc时间标志，完成的这个作品， 有点恍然大悟的感觉.....