socket通讯问题?
编了一个socket的程序通讯例子,在win7系统下通讯一切正常,但是把程序放到win2012 RT系统下,就不能接收数据了,请问这是怎么回事?使用一个网上下载的通讯测试的程序,只要主机win2012 RT不给目标电脑发送一遍数据,他也不会接收数据,发送一遍后数据接收就正常了。下面是接收数据的线程:
Public Sub waitData() '等待接收数据(RFID)
Dim NumData As Integer
Try
mySocket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) '‘声明一个socket,使用UDP协议
Dim localEndPoint As New IPEndPoint(Dns.GetHostByName(Dns.GetHostName).AddressList(0), PortNumber)
mySocket.Bind(localEndPoint) '‘绑定到一台服务器
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "错误提示!")
Finally
End Try
While True
Try
NumData = mySocket.Receive(bytes) '‘接收数据
setText(0, bytes) '‘处理接收到的数据
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "错误提示!")
Finally
End Try
End While
End Sub