SOCKET编程， Visual Studio 2013, Visual Basic, UDP收发，单播，广播，接收超时，发送超时，blocking mode



Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

 Dim ip As String = txt_Dst_IP.Text '""
        Dim port As Integer = CType(txt_Port.Text, Integer)
        Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim udpIP As IPAddress = IPAddress.Parse(ip)
        Dim udp_endpoint As New IPEndPoint(udpIP, port)
        Dim groupEP As New IPEndPoint(IPAddress.Any, port)
        Dim senderRemote As EndPoint = CType(groupEP, EndPoint)
        Dim WistronId As String = ""
        Try
            s.SetSocketOpti