vb.net - 已经运行的应用程序现在出现套接字错误 10013

Question

我在 VB.NET 中完成了一个应用程序，该应用程序监听特定的 UDP 端口并通过同一端口应答发送数据包的 IP。从几年到上个月，它都运行良好；现在当尝试回答由于套接字错误 10013 导致的崩溃时。

我什至尝试了一个旧版本，我知道它也可以工作，但遇到了同样的崩溃。

我尝试禁用 Microsoft Security Essentials 实时保护和 Windows 防火墙，但没有成功。

在代码中我有一行

MyUdpClient.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, True)

我不知道该怎么做，我迷路了。

知道如何解决这个问题吗？

编辑:这是代码

#Region "UDP Send variables"
   Dim GLOIP As IPAddress
   Dim GLOINTPORT As Integer
   Dim bytCommand As Byte() = New Byte() {}
#End Region

Dim MyUdpClient As New UdpClient()

Private Sub StartUdpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartUdpBtn.Click
      If StartUdpBtn.Tag = 0 Then
          '   If Not UdpOpen Then
          StartUdpReceiveThread(CInt(ListeningPortLbl.Text))
          'End If
      Else
          If ThreadReceive.IsAlive Then
              ThreadReceive.Abort()
              MyUdpClient.Close()
              PrintLog("UDP port closed")
              StartUdpBtn.Tag = 0
              UdpOpen = False
              StartUdpBtn.Text = "Start UDP"
          End If
      End If

      If UdpOpen Then
          StartUdpBtn.Tag = 1
          StartUdpBtn.Text = "Stop UDP"
      Else
          StartUdpBtn.Tag = 0
          StartUdpBtn.Text = "Start UDP"
          TimerUDP.Enabled = False
          TiempoUDP.Stop()
          TiempoUdpLbl.Text = "--:--:--"
      End If

  End Sub

Private Sub StartUdpReceiveThread(ByVal Port As Integer)
    Dim UdpAlreadyOpen As Boolean = False
    Try
        If Not UdpOpen Then
            MyUdpClient = New UdpClient(Port)
            MyUdpClient.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, True)
            UdpAlreadyOpen = True
        Else
            Me.Invoke(Sub()
                          TiempoUDP.Restart()
                          If TimerUDP.Enabled = False Then
                              TimerUDP.Enabled = True
                          End If
                      End Sub)
        End If

        ThreadReceive = New System.Threading.Thread(AddressOf UdpReceive)
        ThreadReceive.IsBackground = True

        ThreadReceive.Start()
        UdpOpen = True

        If UdpAlreadyOpen Then 
                PrintLog(String.Format("UDP port {0} opened, waiting data...", Port.ToString))
        End If
    Catch ex As Exception
        PrintErrorLog(ex.Message)
        PrintErrorLog(ex.StackTrace)
    End Try
End Sub

Private Sub UdpReceive()
    Dim receiveBytes As [Byte]() = MyUdpClient.Receive(RemoteIpEndPoint) 
    DstPort = RemoteIpEndPoint.Port
    IpRemota(RemoteIpEndPoint.Address.ToString)
    Dim BitDet As BitArray
    BitDet = New BitArray(receiveBytes)
    Dim strReturnData As String = System.Text.Encoding.ASCII.GetString(receiveBytes)
    If UdpOpen Then
        StartUdpReceiveThread(CInt(ListeningPortLbl.Text))
    End If

    PrintLog("From: " & RemoteIpLbl.Text & ":" & ListeningPortLbl.Text & " - " & strReturnData)
    AnswersProcessor(strReturnData)

End Sub

Private Sub UdpSend(ByVal txtMessage As String)
    Dim pRet As Integer
    GLOIP = IPAddress.Parse(RemoteIpLbl.Text)
    'From UDP_Server3_StackOv

    Using UdpSender As New System.Net.Sockets.UdpClient()
        Dim RemoteEndPoint = New System.Net.IPEndPoint(0, My.Settings.UDP_Port)
        UdpSender.ExclusiveAddressUse = False
        UdpSender.Client.SetSocketOption(Net.Sockets.SocketOptionLevel.Socket, Net.Sockets.SocketOptionName.ReuseAddress, True)
        UdpSender.Client.Bind(RemoteEndPoint)
        UdpSender.Connect(GLOIP, DstPort)
        bytCommand = Encoding.ASCII.GetBytes(txtMessage)
        pRet = UdpSender.Send(bytCommand, bytCommand.Length)
    End Using

    PrintLog("No of bytes send " & pRet)
End Sub

Answer 1

10013 是 WSAEACCES，即 documented如下:

Permission denied.

An attempt was made to access a socket in a way forbidden by its access permissions. An example is using a broadcast address for sendto without broadcast permission being set using setsockopt(SO_BROADCAST).

Another possible reason for the WSAEACCES error is that when the bind function is called (on Windows NT 4.0 with SP4 and later), another application, service, or kernel mode driver is bound to the same address with exclusive access. Such exclusive access is a new feature of Windows NT 4.0 with SP4 and later, and is implemented by using the SO_EXCLUSIVEADDRUSE option.