Imports System.Net Imports System.Text.Encoding Public Class Form1 Dim publisher As New Sockets.UdpClient(0) Dim subscriber As New Sockets.UdpClient(2000) Private Sub Timer1_Tick_1(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick Try Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any,0) Dim rcvbytes() As Byte = subscriber.Receive(ep) TextBox4.Text = ASCII.GetString(rcvbytes) Catch ex As Exception End Try End Sub Private Sub Form1_Load_1(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load subscriber.Client.ReceiveTimeout = 100 subscriber.Client.Blocking = False End Sub Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click publisher.Connect(TextBox1.Text,TextBox2.Text) Dim sendbytes() As Byte = ASCII.GetBytes(TextBox3.Text) publisher.Send(sendbytes,sendbytes.Length) End Sub End Class
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。