注册
登录
| 关键词： nbsp 文件 空间 vbCrLf 音乐 music http breakan baidu 百度 |
这个脚本是利用百度空间的music.pls文件来获取用户空间的音乐的，这个文件的URL可以在用户空间主页的源文件主找到，比如我的是http://hi.baidu.com/breakan/music/music.pls。也可以直接把我的用户名替换得到。程序获取音乐后还能生成M3U文件，这种文件是一种音乐列表文件。关于这个文件可参考：http://baike.baidu.com/view/718664.htm and http://en.wikipedia.org/wiki/M3U -------------------------------以下为代码，保存为*.vbs------------------------------------------- 'Script by Breakan,q5014919 ,xiaomingtt 'http://hi.baidu.com/breakan'名称: 百度空间音乐获取器'功能: 获取用户百度空间的音乐(可生成M3U文件)Dim User '百度空间帐号Dim PlsFile '用户的music.pls文件URLDim PlsStr '用户的music.pls文件的内容Dim PlsM3U '生成M3U文件的内容Set objfso=CreateObject("scripting.filesystemobject")Set objxml=CreateObject("Microsoft.XMLHTTP") User=InputBox("请输入您的空间地址:" & vbCrLf & "(只输入http://hi.baidu.com/后面的即可)","百度空间音乐获取器","Breakan")If User="" Then WScript.QuitPlsFile="http://hi.baidu.com/" & User & "/music/music.pls"PlsStr=GetPlsFile(PlsFile)PlsURL=GetMusicURL(PlsStr)PlsM3U="#EXTM3U" & vbCrLf & "#此文件生成于 - 百度空间音乐获取器 - Breakan" &_vbcrlf & "#Http://hi.baidu.com/breakan" & vbCrLf & vbCrLf & PlsURLPlsURL="From: http://hi.baidu.com/" & User & vbCrLf & vbCrLf &_"-----------------------------------------------------" & vbCrLf & PlsURL &_"-----------------------------------------------------" & vbCrLf &_vbCrLf & "【是】在当前目录下生成M3U文件" & vbTab & "〖否〗无动作并退出" RetNum=MsgBox(PlsURL,4,"百度空间音乐获取器")If RetNum=7 ThenWScript.QuitElseIf RetNum=6 ThenSet objf=objfso.CreateTextFile(User & "空间的音乐.m3u",True)objf.Write PlsM3Uobjf.CloseSet objfso=NothingEnd If '---------------------------------------------------------------'获取用户空间的music.pls文件Function GetPlsFile(File)objxml.open "GET",File,0objxml.send()GetPlsFile=objxml.responseTextEnd Function '---------------------------------------------------------------'获取music.pls文件中的音乐Function GetMusicURL(Str)Dim regEx,Match,MatchesSet regEx=New RegExpregEx.Pattern="mms://\S*[^\x22 ]|http://\S*[^\x22 ]"regEx.IgnoreCase=TrueregEx.Global=TrueSet Matches=regEx.Execute(Str)If regEx.Test(Str)=True Then For Each Match In Matches RetStr=RetStr & Match.Value & vbCrLf & vbCrLf If Match.Value="http://img.baidu.com/img/logo-hi.webp" Then MsgBox User & " 的空间不存在",48,"提示" WScript.Quit End If NextElse MsgBox User & " 的空间没有音乐",48,"提示" WScript.QuitEnd IfGetMusicURL=RetStrEnd Function ------------------------------------代码结束------------------------------------ 来几张运行截图（以读breakan的为例）： 开始：如果是读我的空间，那就要输入空间的url里hi.baqidu.com/后面的yanjingtu，而不是我的用户名yanjingtu2008 第二张，得到的结果，点“是”就可以保存到m3u文件里，然后就可以在千千静听里打开播放了。 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
