百度音乐无损Flac解析下载工具[已失效]

wqy168 · 发表于 2013-12-5 16:51

本帖最后由 wqy168 于 2014-5-20 19:59 编辑

百度音乐无损Flac解析下载工具
喜欢听高品质歌曲的朋友可以试试
原码写得很烂，暂时先不上传了，为证明是原创，只要在软件的“歌曲播放地址”中输入52pojie即会弹出俺的ID{:1_912:}

注：在百度音乐网站上只有歌曲名称后面有无损图标才能获取得到。

因有些网友有对非原创的误解，下面贴出一些代码
procedure TForm1.edt1Change(Sender: TObject);
begin
  if edt1.Text='52pojie' then
  begin
ShowMessage('By：wqy168');
edt1.Clear;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i:Integer;
  S,Lurl,Mname,Msong,Sid:string;
  mhx,wlx:TStringStream;
begin
  S:='';
  Lurl:=edt1.Text;
  if Lurl='' then
  begin
ShowMessage('请输入歌曲播放地址！');
Exit;
  end;
  if chk2.Checked=True then
lv1.Clear;
  i:=Pos('song/',Lurl);
  if i<>0 then
  begin
Sid:=Copy(Lurl,i+5,Length(Lurl));
if Pos('#',Sid)<>0 then
   Sid:=Copy(Sid,1,Pos('#',Sid)-1);
if Pos('?',Sid)<>0 then
   Sid:=Copy(Sid,1,Pos('?',Sid)-1);
  end;
  idhtp1.HandleRedirects:=True;
  mhx:=TStringStream.Create;
  Application.ProcessMessages;
  try
idhtp1.Get('http://musicmini.baidu.com/app/link/getLinks.php?songId='+Sid,mhx);  //这个是主要的接口
//这里往下是处理返回的信息，大家自己动手吧！

百度音乐无损Flac解析下载工具.rar (944.05 KB, 下载次数: 1608)

ainishanvhai · 发表于 2014-5-7 12:02

提示: 作者被禁止或删除内容自动屏蔽

多长知识 · 发表于 2014-5-1 13:08

感谢分享，下载试试。

无尽依然 · 发表于 2013-12-5 17:04

貌似不错，顶一个

rainprince · 发表于 2013-12-5 17:05

亲，有免CB的链接吗？

OPkyd · 发表于 2013-12-5 17:08

前排支持个！

pjianjian · 发表于 2013-12-5 17:21

下载下来试试效果

30869777 · 发表于 2013-12-5 17:21

谢谢分享！

ccss101 · 发表于 2013-12-5 17:27

崇拜!好资源哇...感谢分享了!

wjwwei1314 · 发表于 2013-12-5 17:31

这个牛B哄哄！！

夜梦- · 发表于 2013-12-5 18:34

无损音乐好阿

liurq · 发表于 2013-12-5 19:12

好软件谢谢了。。

帐号		自动登录	找回密码
密码			注册[Register]

ainishanvhai ainishanvhai 当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	ainishanvhai 发表于 2014-5-7 12:02 提示: 作者被禁止或删除内容自动屏蔽
	【吾爱破解论坛总版规】 - [让你充分了解吾爱破解论坛行为规则]
	回复支持举报

[原创工具] 百度音乐无损Flac解析下载工具[已失效]

免费评分