vb.net 模拟UDP通信
发布时间:2020-12-17 08:09:09 所属栏目:百科 来源:网络整理
导读:Imports System.NetImports System.Text.EncodingPublic 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) H
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
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |