Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As Socket
s = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
s.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, True)
Dim ep As IPEndPoint
ep = New IPEndPoint(IPAddress.Broadcast, 1500)
Dim data() As Byte
data = Encoding.ASCII.GetBytes("Hello")
s.SendTo(data, ep)
s.Close()
End Sub
代碼執行到s.SendTo（data,ep)時就會報錯，提示資訊如標題。
菜鳥求助！
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/235260.html
標籤：VB.NET
上一篇：untiy VR 虛擬軟鍵盤