vb.net 模拟UDP通信

页面导航:首页 > 软件编程 > vb.net > vb.net 模拟UDP通信

vb.net 模拟UDP通信

来源: 作者: 时间:2016-01-15 15:10 【

Imports System.NetImports System.Text.EncodingPublic Class Form1 Dim publisher As New Sockets.UdpClient(0) Dim subscriber As New Sockets.UdpClient(2000) Private S...
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


 

 

 

\

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<