各位matlab爱好者,在MATLAB编程的时,我们还想听听music,为什么不考虑用matlab来实现呢?一个MATLAB函数帮你解决所有问题。music.mfunction wmp=music(songname)%%输出: wmp——COM.wmplayer_ocx组件对象%%输入:songname——歌曲名称%%示例:%music('好心分手');%%停止播放:wmp.close 如果无WMP,自动存为ans。%%音量调节 wmp.setting.volume=10%@王小川_matlab 制作 http://weibo.com/hgsz2003/%@baby_wolf 制作 http://weibo.com/n/%E8%9C%80%E5%B1%B1%E6%8E%8C%E9%97%A8V clear wmpclear ansstr=dec2hex(unicode2native(songname));str=[repmat('%',size(str,1),1) str];str=reshape(str',1,[]);% str=songnamesong_url=['http://mp3.baidu.com/m?f=ms&rf=idx&tn=baidump3&ct=134217728&lf=&rn=&word=',str,'&lm=-1'];webfile_stream=urlread(song_url);%filelist=regexp(webfile_stream,'http://box\.zhangmen\.baidu\.com/m\?word=mp3.{1,300}target','match'); music_page_url=regexp(webfile_stream,'http://mp3\.baidu\.com/d\?song=.{1,400} target="_blank" onclick="return ','match'); music_page_url; if ~isempty(music_page_url) spc = strfind(music_page_url{1}, ' ') ; music_page_url{1}=[music_page_url{1}(1:spc-1) '%20'music_page_url{1}(spc+1:end)]; music_page=urlread(music_page_url{1}(1:end-47)); else %wmp=nan; disp(['没有找到与《',songname,'》相关的歌曲']); return; end filelist=regexp(music_page,'a id="downlink" href=".{1,200}" onclick','match');%22 ***** 1fileurl=['http://mp3.baidu.com' filelist{1}(23:end-9)]; % http...... " target close all; figure('visible','off'); disp(['作者:@王小川@matlab & @baby_wolf 新浪微博:http://weibo.com/hgsz2003/ ; http://weibo.com/n/%E8%9C%80%E5%B1%B1%E6%8E%8C%E9%97%A8V']) disp('歌曲连接成功'); disp(['歌曲下载链接:', music_page_url{1}(1:end-46),'' ]);%disp(music_page_url{1}(1:end-46)); clipboard('copy',fileurl); % fprintf('%s\n',song_url);% fprintf('%s\n',filelist{1}(1:end-8));% web=actxcontrol('shell.explorer.2',[0 0 400 400 ]);% web.Navigate(filelist{1}(1:end-8))% web(filelist{1}(1:end-8),'-browser');wmp=actxserver('wmplayer.ocx');wmp.url=fileurl;%wmp.setting.volume=10;disp(['当前的播放状态为:',wmp.status]);disp('停止播放请清除在变量空间清除COM.wmplayer_ocx,或者输入:名称.close');disp('如需要调整音量,请按照如下设置:名称.setting.volume=10'); end% end 清除暂时请用wmp.close 如果无WMP,自动存为ans,即为ans.close大家觉得这个cool吗?
2012-02-23 16:10
player directly from Firefox with the FoxyTunes extension.您喜欢在浏览时听音乐吗? 现在,您可以直接使用FoxyTunes扩展程序从Fire...
2022-01-21 11:47
NCV33164电压检测,MOSFET低压栅极驱动保护的典型应用电路。 NCV33164系列是欠压检测电路,专门设计用作便携式微处理器系统中的复位控制器,可延长电池寿命。应用包括直接监控家电,汽车,消费和工业设备中使
2020-08-03 10:17
便携设备中的模拟电路设计?Founded in Jan. 08, 2001 in Shanghai, China.?Fabless IDH focused on Analog &
2009-10-12 09:52
` 随着便携式移动设备的日趋细巧轻便,对电源IC也提出更高的需求,比如高可靠性、高集成度、抗干扰、低噪声、低功耗等。 从便携式移动设备电源IC的发展趋势来看,需思考
2015-09-29 15:19
` 电源IC在便携式移动设备领域的应用 随着便携式移动设备的日趋细巧轻便,对电源IC也提出更高的需求,比如高可靠性、高集成度、抗干扰、低噪声、低功耗等。 从
2015-10-10 10:44
0、前言音乐频谱显示说白了就是“儿童版”频谱仪。笔者平时比较喜欢听音乐,闲暇之余听音乐的时候如果有个频谱显示的小玩具在旁边跳来跳去的也挺有意思的,所以笔者去万能的某宝上搜索了一下,发现便宜的都很小,大一点的都很贵,而
2021-08-03 07:08
便携设备ESD应用之TVS二极管 便携式设备如笔记本电脑、手机、PDA、MP3播放器等,由于频繁与人体接触极易受到静电放电(ESD)的冲击,如果没有选择合适的保护器件,
2014-03-25 10:03
发烧友的青睐。不过,利用一般功放的耳机插口聆听音乐的效果还不够理想,比较好的办法是为耳机专门定制一台耳机放大器,现在已成为用耳机欣赏音乐的共识。 原文位置 本文介绍用3只电子管组装的低阻抗线路放大器兼
2021-05-11 06:37
`便携式手持设备创新型解决方案内容包括:智能连接解决方案推动可穿戴设备革新;品类齐全的弹簧夹产品组合及其扩展性;SIM卡连接器快速参考指南;移动设备电池连接器快速参考指
2018-10-23 11:21