Socket Udp connection : Udp « Socket Network « VB.Net Tutorial

1. VB.Net Tutorial
2. Socket Network
3. Udp

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class Tester
    Public Shared Sub Main
    
        Dim client1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim server1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim MyIP As IPAddress

        Dim str As String
        Dim bytes1(200) As Byte
        Dim bytes2(200) As Byte
        Dim Port1 As Integer = 8080
        Dim port2 As Integer = 3128

        MyIP = IPAddress.Parse("168.169.1.81")
        Dim server2 As New IPEndPoint(MyIP, Port1)
        Dim client2 As New IPEndPoint(MyIP, port2)
        client1.Bind(client2)

        Try
            str = "asdf"
            bytes1 = Encoding.ASCII.GetBytes(str)
            client1.SendTo(bytes1, server2)

            client1.ReceiveFrom(bytes2, server2)
        Catch ex As Exception
        End Try
        client1.Close()
    End Sub

End Class