创建socket实例出错，不知道为什么

[xiao88yan]

下面为我的代码
Private Sub listen()
Dim localhostname As String = Dns.GetHostName
Dim ipadd As IPAddress
Try
’得到本机IP地址
Dim addressList As System.Net.IPAddress()
addressList = Dns.GetHostByName(Dns.GetHostName()).AddressList
ipadd = addressList(0)

Catch
End Try
Dim ep As IPEndPoint = New IPEndPoint(ipadd, 8000)
Dim listener As Socket
listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Udp) ------>>>>>‘这句出错
listener.Bind(ep)
listener.Listen(10)
setupreceivecallback(listener)
End Sub
调试时出错，错误提示为：
未处理的“System.Net.Sockets.SocketException”类型的异常出现在 system.dll 中

其他信息：请求的协议还没有在系统中配置，或者没有它存在的迹象。
请高手诊断

[xiao88yan]

我刚才又试了一下
listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
将udp 换成了tcp,不再报错，为什么？
我本意是想用UDP的

[xiao88yan]

up

[sg_stone]

UDP 方式的链接哪里来的Listen呢?

[xiao88yan]

我知道了
还有一个问提：接收到消息时如何知道发送方的机器名或IP地址

[scegg]

ReceiveFrom后面给一个IPEndPoint，这个是ByRef的，接收后，被修改成来源地址。

[scegg]

如果你要接收所有地址，那么创建新的IPEndPoint的使用使用Any。
Dim anIPEP as New Net.IPEndpoint(Net.IPAddress.Any,0)