昨天闲着没事，用VB弄了个百度随心听桌面版1.0！欢迎试用！

天风 · 发表于 2013-3-26 11:31:34

昨天闲着没事，用VB弄了个百度随心听桌面版1.0！欢迎试用！<br />用百度的网页版听着不方便，一不小心就关闭了，想着弄个桌面版，但不会编程，就想着用VB随便折腾一个得了。<br />大家下载测试！

[ 本帖最后由天风于 2013-3-26 11:32 编辑 ]

hsieh2h · 发表于 2013-3-26 14:39:36

非常谢谢天风的分享了

2012微笑 · 发表于 2013-3-27 14:29:43

牛啊。。。。。。。。。。

指南针 · 发表于 2013-3-27 20:42:10

反馈一下啊，不知道算不算BUG

第一次打开无效，没背景，无音乐，必须关闭重新打开才好。。。

麻烦老大看看啊，呵呵。。。

还有，能不能点击最小化时该程序自动隐藏到托盘图标啊，不要在任务栏出现。。。

做的真不错。。。

[ 本帖最后由指南针于 2013-3-27 21:11 编辑 ]

天风 · 发表于 2013-3-28 08:08:28

第一次打开白时是在自动读取百度数据，需要等一会，不用重新打开。
最小化自动隐藏图标我还暂时没学会，学会了修正一下。

逍遥独醒 · 发表于 2013-3-28 15:39:38

牛逼啊下载了这个不错

快雪时晴 · 发表于 2013-3-28 20:47:58

咋弄的啊，IE控件？

天风 · 发表于 2013-3-28 21:40:09

是的,VB的一个控件搞定。

天风 · 发表于 2013-3-28 21:40:44

百度只提供了手机版，不给提供PC桌面版，咱只有自己弄了。

terry528746 · 发表于 2013-3-29 10:43:15

非常谢谢天风的分享！

2012HFM · 发表于 2013-3-29 11:52:19

好啊，已经很不错了。

2012mlss · 发表于 2013-4-8 19:19:51

牛逼啊谢谢天风的分享

feifanll · 发表于 2013-4-9 10:31:00

高呀，崇拜......

哈小福 · 发表于 2013-4-9 16:10:54

高手下来用用~~

cxyun · 发表于 2013-4-10 22:43:54

还在折腾98没？

2010hry · 发表于 2013-4-15 23:10:35

收藏下

佳佳 · 发表于 2013-4-17 08:25:53

技术铁啊，必须顶

2010ttt · 发表于 2013-4-18 17:31:34

这个必须顶。
特别需要顶的是天风大不需回复即可见的精神！

佳佳 · 发表于 2013-4-20 21:54:55

水区的技术帖, 不能沉

阿弥陀佛 · 发表于 2013-5-17 06:35:06

好像不错。mark

nikkiwara · 发表于 2013-5-18 09:58:57

good job!

20121adgjmptw · 发表于 2013-6-25 09:12:26

灰常可耻的球源代码

caocaofff · 发表于 2013-6-25 09:44:10

20121adgjmptw 发表于 2013-6-25 09:12
灰常可耻的球源代码

fm.baidu.com

content · 发表于 2013-6-25 12:23:39

牛*!下载用用!

ppszxc · 发表于 2013-7-8 16:33:28

本帖最后由 2012ppszxc 于 2014-10-26 15:59 编辑

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Form1
BorderStyle    = 1  'Fixed Single
Caption       = "Form1"
ClientHeight = 5565
ClientLeft    = 45
ClientTop    = 390
ClientWidth    = 8325
LinkTopic    = "Form1"
MaxButton    = 0 'False
ScaleHeight    = 5565
ScaleWidth    = 8325
StartUpPosition = 3  '窗口缺省
Begin SHDocVwCtl.WebBrowser WebBrowser1
   Height       = 5535
   Left          = 0
   TabIndex       = 0
   Top          = 0
   Width          = 8295
   ExtentX       = 14631
   ExtentY       = 9763
   ViewMode       = 0
   Offline       = 0
   Silent       = 0
   RegisterAsBrowser= 0
   RegisterAsDropTarget= 1
   AutoArrange    = 0 'False
   NoClientEdge = 0 'False
   AlignLeft    = 0 'False
   NoWebView    = 0 'False
   HideFileNames = 0 'False
   SingleClick    = 0 'False
   SingleSelection = 0 'False
   NoFolders    = 0 'False
   Transparent    = 0 'False
   ViewID       = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
   Location       = "http:///"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
WebBrowser1.Navigate "http://fm.baidu.com/?embed"
End Sub
Private Sub Form_Resize()
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Height = Form1.ScaleHeight
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height ' 浏览器高度随窗口大小调整而变化
End Sub
说明：
上面是Form1.frm的代码

rqzj · 发表于 2013-11-12 22:17:07

牛人！！！！！！！！！！！

zds1210 · 发表于 2013-11-14 13:15:43

强烈支持天风师祖重新出山。

gun2rose · 发表于 2014-1-10 10:39:55

这个简洁好用，不用开网页了。

wuyiu · 发表于 2014-6-18 16:21:23

很牛的样子。

		自动登录	找回密码
密码			注册

昨天闲着没事，用VB弄了个百度随心听桌面版1.0！欢迎试用！

点评