189 8069 5689
先给个在线听广播的好地方，如果想用网络收音机看下面。
专注于为中小企业提供成都做网站、成都网站制作、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业宜丰免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
网络电台地址：
参考资料：
《NoFox网络广播》是不错的网络收音机、网络电视，比《龙卷风网络收音机 V2.7》好得多，后者因没人管理、更新，许多电台已失效。我试过许多网络收音机和网络电视，就收音和综合性来说，我认为NoFox是最好的，非常稳定，可收看世界各地收音、电视及看部分电影，可满足你“收听收音机、收看电视，台要多、稳定、清晰、免费”的全部要求，还有其它一些功能，有兴趣的可去以下网址下载：
简约.Net网络收音机 V1.2
V1.2加入国内(包括港、澳、台)最新178台网络广播电台，加入国外最新32台网络广播电台加入最新专栏\\\"推荐电台\\\"，推荐国内外好的电台
简约.Net网络收音机收录了国内95%以上的网络电台
简约.Net网络收音机收录了全球近千个电台，还在不断添加中
简约.Net网络收音机是一个纯绿色软件
简约.Net网络收音机占用非常少的内存，是一个只有几百K的软件
简约.Net网络收音机是用vb.net编写的软件
简约.Net网络收音机把界面做到最简单，更容易使用
简约.Net网络收音机是一个终生免费的软件
简约.Net网络收音机的宗旨是\\\"简约打造网络新生活\\\"
使用本软件需要装.NET Framework(只可在WIN2000以上版本才能安装)
...Net框架大小约为20MB，这是框架的下载地址：
下一代软件有一半以上要用到.net框架,微软的下一代视窗就内置了.Net框架，由此可知.Net框架的重要性。
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
《NoFox网络广播》是不错的网络收音机、网络电视，比《龙卷风网络收音机 V2.7》好得多，后者因没人管理、更新，许多电台已失效。我试过许多网络收音机和网络电视，就收音和综合性来说，我认为NoFox是最好的，非常稳定，可收看世界各地收音、电视及看部分电影，可满足你“收听收音机、收看电视，台要多、稳定、清晰、免费”的全部要求，还有其它一些功能，有兴趣的可去以下网址下载：
简约.Net网络收音机 V1.2
V1.2加入国内(包括港、澳、台)最新178台网络广播电台，加入国外最新32台网络广播电台加入最新专栏\\\"推荐电台\\\"，推荐国内外好的电台
简约.Net网络收音机收录了国内95%以上的网络电台
简约.Net网络收音机收录了全球近千个电台，还在不断添加中
简约.Net网络收音机是一个纯绿色软件
简约.Net网络收音机占用非常少的内存，是一个只有几百K的软件
简约.Net网络收音机是用vb.net编写的软件
简约.Net网络收音机把界面做到最简单，更容易使用
简约.Net网络收音机是一个终生免费的软件
简约.Net网络收音机的宗旨是\\\"简约打造网络新生活\\\"
使用本软件需要装.NET Framework(只可在WIN2000以上版本才能安装)
...Net框架大小约为20MB，这是框架的下载地址：
下一代软件有一半以上要用到.net框架,微软的下一代视窗就内置了.Net框架，由此可知.Net框架的重要性。
雅米fmAPP是款全新上线的广播剧播放平台，涵盖了各种不同类型的广播剧资源素材。
频道分类，对不同的内容进行分类。超多频道由用户选择，内容及时更新，内容丰富。
下载音频，可以随时下载大量新颖的音频，可以在无聊的时候不加注意的播放。
太多了
最有名的
龙卷风网络收音机 V2.7
龙卷风收音机是一个免费软件。随着宽带网的普及，网速越来越快，网上听广播已不成问题。使用龙卷风收音机，只用鼠标轻轻一点，就能让您听遍全世界的声音。内建有100多个中文电台（包括国语、粤语）及一些国际著名电台。程序已经内置了在线更新电台信息及在线升级程序功能，免去每当新版本发布时又得重新到网站下载之烦事。
还有其他
如
简约.Net网络收音机 V1.2
V1.2加入国内(包括港、澳、台)最新178台网络广播电台，加入国外最新32台网络广播电台加入最新专栏\\\"推荐电台\\\"，推荐国内外好的电台
简约.Net网络收音机收录了国内95%以上的网络电台 简约.Net网络收音机收录了全球近千个电台，还在不断添加中
简约.Net网络收音机是一个纯绿色软件 简约.Net网络收音机占用非常少的内存，是一个只有几百K的软件
简约.Net网络收音机是用vb.net编写的软件
简约.Net网络收音机把界面做到最简单，更容易使用
简约.Net网络收音机是一个终生免费的软件
简约.Net网络收音机的宗旨是\\\"简约打造网络新生活\\\"
使用本软件需要装.NET Framework(只可在WIN2000以上版本才能安装)
...Net框架大小约为20MB，这是框架的下载地址：
下一代软件有一半以上要用到.net框架,微软的下一代视窗就内置了.Net框架，由此可知.Net框架的重要性。
小小收音机 V4.0
虎群收音机 V1.6 SP1
客收音机(NetRadio Express) V2.0 正式版
参考资料：在线听
给你个udp多播例子，广播不是很清楚，呵呵
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Dim port As String
Dim ipadd As String
Dim ipend As IPEndPoint
Dim sendudp As New UdpClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim ipadress As IPAddress
ipadress = IPAddress.Parse(TextBox1.Text)
'sendport = Int32.Parse(TextBox2.Text)
'ipend = New IPEndPoint(ipadress, sendport)
Try
sendudp.JoinMulticastGroup(ipadress)
MessageBox.Show("启动完成！")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub