20CN网络安全小组论坛 - 编程破解 - 如何用BAT文件实现网络歌曲的连放！

论坛: 编程破解标题: 如何用BAT文件实现网络歌曲的连放！

作者: raojianhua [raojianhua]

论坛用户

我记录了很多网上的歌曲网址，想利用BAT中的START命令来打开、播放这些歌曲，但连续用了多个START指令后，最终打开的是最后一个歌曲，请问有什么办法可以让播放完一首歌后，再运行START指令运行下一下网址的歌曲，即可以实现歌曲的连放哦！不胜感激！！！！！

地主发表时间: 05-08-14 16:05

回复: kert_t8 [kert_t8]

论坛用户

可不可以做一个.pls的播放列表啊？

B1层发表时间: 05-08-14 16:22

回复: raojianhua [raojianhua]

论坛用户

PLS列表怎样做呢？用什么来做？可不可以直接用BAT文件来做呢？

[此贴被 raojianhua(raojianhua) 在 08月14日16时53分编辑过]

B2层发表时间: 05-08-14 16:39

回复: kert_t8 [kert_t8]

论坛用户

格式我也记不清了，你可以自己回去用realplayer做一个然后分析一下格式
大概应该是
[playlist]
file1= (location)
title1= (title)
length= (length)
[end]
肯定应该可以通过.bat文件重定向输出到某个.pls文件中去

B3层发表时间: 05-08-15 14:36

回复: raojianhua [raojianhua]

论坛用户

谢谢你的这种方法，但我还是对PLS的格式不太了解啊，你可不可以做出一个实例哦！非常感谢啊！

B4层发表时间: 05-08-20 15:47

回复: raojianhua [raojianhua]

论坛用户

请高人指点啊！

B5层发表时间: 05-08-23 13:07

回复: 286 [unique]

版主

你说的功能主要是依赖于你使用的播放器。如果该播放器支持，你才能使用这种功能。

B6层发表时间: 05-08-23 16:06

回复: kert_t8 [kert_t8]

论坛用户

test.pls

引用:
[playlist]
File1=H:\Music\contra.mp3
Title1=Somebody - 魂斗罗
Length1=-1
File2=H:\Music\Mario 超级玛莉主题曲.mp3
Title2=Orchestral Game Concert 1 - Main Theme (Super Mario Bros.)
Length2=-1
File3=H:\Music\mission.mp3
Title3=mission
Length3=-1
NumberOfEntries=3
Version=2

B7层发表时间: 05-08-24 00:17

回复: raojianhua [raojianhua]

论坛用户

谢谢你啊，这个是非常方便，但如果做为一个不定首（即歌曲数目不定）的程序，那个NumberOfEntries=3
这段可不可以不要啊，如果一定要要的话，有什么改进的方法呢？

B8层发表时间: 05-08-25 15:21

回复: raojianhua [raojianhua]

论坛用户

哦，上面的月之御者大哥。我好像还有一个问题啊，就是在你所写的那个PLS例表文件制成多个歌曲时，好像不能自动连放啊，放完一首之后，需要用手动再点一次播放器上的播放才能放下一首，请问有什么解决的办法吗？

B9层发表时间: 05-08-25 15:29

回复: raojianhua [raojianhua]

论坛用户

上面的这个问题没有了，可就是如果一个一个地添加，那也太慢了，能不能用批处理文件重定向来解决自动添加的问题（因为我已经得到了很多格式为 “歌名：网址” 的文件）？

B10层发表时间: 05-08-25 18:12

回复: kert_t8 [kert_t8]

论坛用户

当然可以了
只不过我不会用批处理
我用c语言写过一个程序，基于linux系统，也是编写.pls文件的。将一个目录当中的文件全部以上面给出的文件格式倒入到一个.pls文件中，你找一下？

B11层发表时间: 05-08-26 11:21

回复: raojianhua [raojianhua]

论坛用户

请大家分析一下这个脚本，看看错在哪里，谢谢啦！
(*.js)
***********************************************************************************
WSHShell = WScript.CreateObject("WScript.Shell");
var FileName = "list.txt"
var fso = New ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(FileName,1);
MyFile = fso.CreateTextFile("music.txt",true);
MyFile.WriteLine("[PlayList]");
var i = 1
for (;!f.atEnd();f.moveNext()) {
MyFile.WriteLine("File"+i+"="+f.ReadLine());
MyFile.WriteLine("Title"+i+"=饶建华==>网络歌曲");
MyFile.WriteLine("Length"+i+"=-1");
i++
}
var Len = i-1
MyFile.WriteLine("NumberOfEntries="+Len);
MyFile.WriteLine("Version=2");
f.Close();
MyFile.Close();
************************************************************************************

[此贴被 raojianhua(raojianhua) 在 08月30日17时50分编辑过]

B12层发表时间: 05-08-30 17:48

论坛: 编程破解