（转）酷狗音&乐内部唯一没有添加防盗链的接口欢迎大家的调用

wtujoxk 发表于 2010-9-19 18:20:45

本帖最后由 wtujoxk 于 2010-9-19 18:22 编辑

先打开酷狗软件，然后随便搜索一首歌曲，对着歌曲单击右键，选取“推荐给朋友”

kugoo://|Music|鱼与水的故事.mp3|3794475|853f82bad5a3c1e8fd07411561074242|/

这段数字是这首歌曲的HASH853f82bad5a3c1e8fd07411561074242

整个完整连接：

http://my.kugou.com/player/getrealurl.aspx?allowwma=false&hash=853f82bad5a3c1e8fd07411561074242

打开这个连接后出现的是一组很长的MP3连接地址

这组地址是酷狗音&乐唯一没有添加防盗链的但是这段地址会有失效的时间
http://sd1.kugou.com/app/default.aspx?p=4E48A4AC74BEF7CFBF9CBEA90741AB2B3065E6C53D1AB23708E87ED6119757681B4F49087C3F40B91269FC57A39A0788&d=B360CE22D89B4EE4AC402E3D3EBC730832CAA65BBE372717&h=1&format=.mp3

由于上面的连接会有时间限制，我就改写了一个小偷代码来调用这个歌曲

<%
'------------------------------------------
'莫忘缘分 QQ:408825033 http://www.mwyfw.cn
'------------------------------------------
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
'------------------------------
'将获取的源码转换为中文
'------------------------------
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'------------------------------
'UrlEncoding 转换编码
'------------------------------
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
'------------------------------
'截取字符串
'------------------------------
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If

Dim Start,Over
Start = InStrB(1, ConStr, StartStr, vbBinaryCompare)
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStr,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function
'------------------------------
'开始截取
'------------------------------
Dim id,Url,Code
kwid=request.QueryString("id")
Url="http://my.kugou.com/player/getrealurl.aspx?allowwma=false&hash="&kwid&""
Code=GetHttpPage(Url)
Dim BodyCode
'======================================================
BodyCode=GetBody(Code,"http://",".mp3",False,False)
'http://这段为开始截取字段 "";这段为最后截取的字段，遇到"需要多加一个" 不然会出错的
'======================================================
Response.redirect "http://"&BodyCode&".mp3"
'------------------------------------------
'莫忘缘分 QQ:408825033 http://www.mwyfw.cn
'------------------------------------------
%>

调用方法例如： http://www.mwyfw.cn/cmp/kugou.asp?id=853f82bad5a3c1e8fd07411561074242

注意一点：
酷狗音&乐内部唯一没有添加防盗链的接口欢迎大家的调用，不过这个接口还是有点小毛病，有的时候显示的是空白的，没有MP3连接地址，这个原因是酷狗程序的问题，我也没办法了。。。谢谢大家。。。

这个接口地址好几年了哦！也是唯一一个不加防盗链的！另外还有点要注意的是调用的歌曲只能是10M以下的超过10M 就调不出来了！

PS：我在论坛泡了好几年了，但是却很少发帖。。。有点对不起大家啦。。。

在酷狗软件里面搜索出来的歌曲10M以下的全部可以调用了！

http://cmp.cenfun.com/cmp4/cmp.swf?url=&lists=&bgcolor=ffffff&auto_play=1&skins=skins/mini/scplayer.zip&skin_id=1&type=1&src=http://bbs.kugou.com/attachment.aspx?attachmentid=74343%20#.mp3

wscjsyr04 发表于 2010-9-19 18:23:32

赞！{:2_99:}

ccyyccc 发表于 2010-9-19 18:25:10

转帖帝..感谢{:2_99:}

baal_yuan@2 发表于 2010-9-19 18:25:29

我今天刚差点被酷狗搞崩溃，那个狗屁的音&乐硬盘，传了4首有2首放不出来

wtujoxk 发表于 2010-9-19 18:31:33

回复 3# ccyyccc

好东西要与大家分享！{:2_145:}

1235 发表于 2010-9-19 18:51:04

小偷代码。。。

好强。。。- -
看不懂的人飘过。。。

senlinlangzi 发表于 2010-9-19 18:53:15

牛人！谢谢！

sto126 发表于 2010-9-19 19:14:25

看不懂路过

bigwuke 发表于 2010-9-19 19:15:27

都是高人! .

mtogne 发表于 2010-9-19 20:05:38

我来看高人，看到代码头疼的人飘过~~

orbring 发表于 2010-9-19 20:08:53

楼主是高人啊，学习一下

ddvcc 发表于 2010-9-19 20:32:12

至于这么复杂吗直接贴土豆、优酷的不好吗{:2_101:}

wtujoxk 发表于 2010-9-19 20:35:34

回复 13# ddvcc

你可以看一下这种网络电视，与电视同步，占用带宽超小，也是用这种方法做出来的
http://520music.homeip.net/tv/

ddvcc 发表于 2010-9-19 20:37:53

回复 14# wtujoxk

谢谢备用
不过对电视真的无爱不看电视好多年{:2_136:}因为广告太多。。。。。。。。。{:2_139:}

hongxiaodie 发表于 2010-9-19 20:51:31

牛啊，不错，

aiselo 发表于 2010-9-19 21:10:44

太复杂了，很久没用过酷狗了

haishen 发表于 2010-9-19 22:08:25

没用酷狗，一直千千

Pia 发表于 2010-9-20 08:22:46

不懂路过～

Pia 发表于 2010-9-20 08:24:01

不懂，纯路过

zw462149904 发表于 2010-9-20 10:25:28

不知调用以后有何作用？？

页: [1] 2

隔壁网's Archiver

（转）酷狗音&乐内部唯一没有添加防盗链的接口 欢迎大家的调用

（转）酷狗音&乐内部唯一没有添加防盗链的接口欢迎大家的调用