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

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


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




这段数字是这首歌曲的HASH  853f82bad5a3c1e8fd07411561074242   



整个完整连接：

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



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

1. <%
   
2. '------------------------------------------
   
3. '莫忘缘分 QQ:408825033 http://www.mwyfw.cn
   
4. '------------------------------------------
   
5. Function GetHttpPage(HttpUrl)
   
6. If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
   
7. GetHttpPage="$False$"
   
8. Exit Function
   
9. End If
   
10. Dim Http
    
11. Set Http=server.createobject("MSXML2.XMLHTTP")
    
12. Http.open "GET",HttpUrl,False
    
13. Http.Send()
    
14. If Http.Readystate<>4 then
    
15. Set Http=Nothing
    
16. GetHttpPage="$False$"
    
17. Exit function
    
18. End if
    
19. GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
    
20. Set Http=Nothing
    
21. If Err.number<>0 then
    
22. Err.Clear
    
23. End If
    
24. End Function
    
25. '------------------------------
    
26. '将获取的源码转换为中文
    
27. '------------------------------
    
28. Function BytesToBstr(Body,Cset)
    
29. Dim Objstream
    
30. Set Objstream = Server.CreateObject("adodb.stream")
    
31. objstream.Type = 1
    
32. objstream.Mode =3
    
33. objstream.Open
    
34. objstream.Write body
    
35. objstream.Position = 0
    
36. objstream.Type = 2
    
37. objstream.Charset = Cset
    
38. BytesToBstr = objstream.ReadText
    
39. objstream.Close
    
40. set objstream = nothing
    
41. End Function
    
42. '------------------------------
    
43. 'UrlEncoding 转换编码
    
44. '------------------------------
    
45. Function UrlEncoding(DataStr)
    
46. Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
    
47. StrReturn = ""
    
48. For Si = 1 To Len(DataStr)
    
49. ThisChr = Mid(DataStr,Si,1)
    
50. If Abs(Asc(ThisChr)) < &HFF Then
    
51. StrReturn = StrReturn & ThisChr
    
52. Else
    
53. InnerCode = Asc(ThisChr)
    
54. If InnerCode < 0 Then
    
55. InnerCode = InnerCode + &H10000
    
56. End If
    
57. Hight8 = (InnerCode And &HFF00)\ &HFF
    
58. Low8 = InnerCode And &HFF
    
59. StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
    
60. End If
    
61. Next
    
62. UrlEncoding = StrReturn
    
63. End Function
    
64. '------------------------------
    
65. '截取字符串
    
66. '------------------------------
    
67. Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
    
68. If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
    
69. GetBody="$False$"
    
70. Exit Function
    
71. End If
    
72. 
    
73. Dim Start,Over
    
74. Start = InStrB(1, ConStr, StartStr, vbBinaryCompare)
    
75. If Start<=0 then
    
76. GetBody="$False$"
    
77. Exit Function
    
78. Else
    
79. If IncluL=False Then
    
80. Start=Start+LenB(StartStr)
    
81. End If
    
82. End If
    
83. Over=InStrB(Start,ConStr,OverStr,vbBinaryCompare)
    
84. If Over<=0 Or Over<=Start then
    
85. GetBody="$False$"
    
86. Exit Function
    
87. Else
    
88. If IncluR=True Then
    
89. Over=Over+LenB(OverStr)
    
90. End If
    
91. End If
    
92. GetBody=MidB(ConStr,Start,Over-Start)
    
93. End Function
    
94. '------------------------------
    
95. '开始截取
    
96. '------------------------------
    
97. Dim id,Url,Code
    
98. kwid=request.QueryString("id")
    
99. Url="http://my.kugou.com/player/getrealurl.aspx?allowwma=false&hash="&kwid&""
    
100. Code=GetHttpPage(Url)
     
101. Dim BodyCode
     
102. '======================================================
     
103. BodyCode=GetBody(Code,"http://",".mp3",False,False)
     
104. 'http://这段为开始截取字段 "";这段为最后截取的字段，遇到"需要多加一个" 不然会出错的
     
105. '======================================================
     
106. Response.redirect "http://"&BodyCode&".mp3"
     
107. '------------------------------------------
     
108. '莫忘缘分 QQ:408825033 http://www.mwyfw.cn
     
109. '------------------------------------------
     
110. %>

复制代码

调用方法例如： 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

赞！{:2_99:}

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

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

回复 3# ccyyccc


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

小偷代码。。。

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

牛人！谢谢！

看不懂 路过

都是高人!          .

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

楼主是高人啊，学习一下

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

回复 13# ddvcc


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

回复 14# wtujoxk


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

牛啊，不错，

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

没用酷狗，一直千千

不懂路过～

不懂，纯路过

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